اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


ah313mad

دریافت متن فایل تکست از اینترنت در لیبل

15 ارسال در این موضوع قرار دارد

سلام دوستان

 

عزیزان یه صوال دارم .من داخل صفحه برنامه ام یک لیبل هست  که میخوام به یه فایل تکست از اینترنت وصل باشه . هر وقت خالی بود چیزی نشون نده هر وقت فایل تکست متنی داخلش قرار گرفت در صورت وصل بودن به اینترنت متن رو دریافت کنه و داخل لیبل قرار بده . در ضمن میخوام بدون باز شدن برنامه هر وقت گوشی اینترنتش وصل شود اتوماتیک فایل تکست رو بررسی کنه و داخل لیبل قرار بده .

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

درود

ببینید این که بخواهید بدون باز بدون برنامه کار کنه که خب مشخصه باید با سرویس کار کنید

در مورد دانلود و نمایش دادنش هم

باید کتابخانه HttpUtils2 رو فعال کنید

بعدش توی Globals بگید :

dim httpjob1 as httpjob

بعدش توی Service Create :

httpjob1.initialize("httpjob1",me)

بعدش میتونید یک تایمر هم با زمان مشخص تعریف کنید و توی کد تایمر بگید که

httpjob1.download("linke morede nazar")

بعدش این Sub رو هم بنویسید:

sub JobDone(Job as httpjob)
if job.success = true then
label.text = job.GetString
end if
end sub

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

ببخشید من مبتدی هستم 

 

تایمر رو چجور تعریف کنم . اگه بشه کدش رو بزارید ممنون میشم 

 

برای سرویس چجور تعریف کنم  . چجور با بسته بودن برنامه دانلود انجام بشه؟!؟!

 

ممنون میشم جناب ایزدی

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام

توی process_globals تایمیر رو تعریف کن

dim timer1 as timer

activity_create

timer1.Initialize("timer1",5000)


sub timer1_tick
httpjob1.download("linke morede nazar")
end sub

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
sub JobDone(Job as httpjob)
if job.success = true then
label.text = job.GetString
end if
end sub

 

 

سلام

آقای ایزدی وقتی sub رو می نویسم . با خطای زیر مواجه میشم

Parsing code.                           Error
Error parsing program.
Error description: Undeclared variable 'label' is used before it was assigned any value.
Occurred on line: 61
Label.text = Job.GetString
 
 
باید این ساب رو داخل صفحه    """سرویس""""    بزاریم یا داخل    """صفحه مورد نظرمون"""   ؟؟؟؟ 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

عزیز دل آقای ایزدی مثال زد یا اشتباه تایپی بود که اونجا نوشتن label

شما جای ای اسم لیبل خودتون رو قرار بدید. مثلا label1

یا میتونید متن رو با مسیج باکس نشون بدید ، این دیگه سلیقه شماست:

مسیج باکس

sub JobDone(Job as httpjob)
if job.success = true then
msgbox(job.GetString,"")
end if
end sub

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

داخل فایل تکست من فقط یه لینک هست میخام اون رو بخونم

 

من این کد رو مینویسم :

Sub JobDone(job As HttpJob)
	If job.Success Then
		Msgbox(job.GetString,"Success")
	Else
		Msgbox("error","")
	End If
End Sub

ولی یک عالمه متن برام میاره

 

من فقط لینکمو میخام

 

چه کار کنم ؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

دوستان عزیز . 

من همین مشکل رو دارم . 

یک فایل Txt به آدرس 

http://yoursite.ir/up1.txt 

رو میخوام داخل label1قرار بدم . 

 

مبتدی هستم لطفا سطح پایین توضیح بدید. 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

دوستان عزیز . 

من همین مشکل رو دارم . 

یک فایل Txt به آدرس http://yoursite.ir/up1.txt رو میخوام داخل label1قرار بدم . 

 

مبتدی هستم لطفا سطح پایین توضیح بدید. 

سلام

ببین ، شما بیا و دانلودش کن

این کد برای دانلودش-کتابخونه httpUtills2 رو هم تیک بزن

dim ht as httpjob
ht.initialize("ht",me)

ht.download("http://yoursite.ir/up1.txt")

اینم ساب جاب دان

sub jobdone(job as httpjob)
if job.success = true then
if job.jobname = "ht" then
lbl.text = job.getstring
end if
end if
end sub

فقط پیشنهاد میکنم قبل از دانلود، ادرس سایتت رو توی مرورگر باز کنی و ببینی همچین فایل هست اصن ، متنش درسته و ...

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام و درود و خسته نباشید .

دوستان عزیز من یه کلید(دکمه) دارم که میخوام یه لینک براش قرار بدم . 

منتهی میخواهم لینک رو از یه فایل تکست http://sitesitesite.ir/nemone.txt بگیره . یعنی هر وقت اون صفحه باز میشه . آدرس لینک رو از فایل txt اینترنت بگیره که هر وقت خواستم لینک رو عوض کنم فقط فایل Txt رو تغییر بدم و با کلیک بروی کلیک به اون آدرس بره با مرورگر. ممنون میشم راهنمایی کنید . 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام

خوب از یه فایل تکست دانلودش کنید :gol:

فقط کتابخونه phone و httputills2 رو تیک بزنید


Sub Globals
Dim ht As HttpJob
End Sub

Sub Activity_Create(FirstTime As Boolean)
ht.Initialize("ht",Me)
End Sub



Sub myButt_Click
	ht.PostString("http://myAddress.com/text.txt","")
End Sub

Sub jobdone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "ht" Then
			Dim p As PhoneIntents
			StartActivity(p.OpenBrowser(job.GetString))
		End If
	End If
End Sub

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
StartActivity(p.OpenBrowser(job.GetString))

ممنون از راهنمایی تون

 

اگر بخوایم بجای مرورگر خودش اتوماتیک مثلا(کروم و مرورگر و بازار یا گوگل پلی )رو بیاره خود کاربر انتخاب کنه . باید چی جایگزین این بکنیم؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

ممنون از راهنمایی تون

 

اگر بخوایم بجای مرورگر خودش اتوماتیک مثلا(کروم و مرورگر و بازار یا گوگل پلی )رو بیاره خود کاربر انتخاب کنه . باید چی جایگزین این بکنیم؟

با همین تکه کد آقا شهاب خود برنامه هایی که قابلیت باز کردن اون لینک رو دارن میاره. مثل انواع مرورگر ها ، مارکت و..

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام به اساتید عزیز 
پست رو بالا میارم چون تنهاپستی که پیدا کردم و مربوط بود همین پست بود لطفا اگر ممکنه راهنمایی بفرمایید ممنون میشم

من یم فایل تکس دارم روی هاست با 4 خط محتوی
که 4 آدرس هست که در دیتابیس ذخیره میشه

همه با اینتر از هم جدا شده مثلا داخل فایل تکس نوشته

www.google.com

www.ir.com

www.ams.com

www.aaa.com

 

حالا یه دکمه دارم که کاربر میزنه 

باید بیاد این فایل رو از هاست بخونه و این 4 تا رو نمایش بده در 4 لیبل متفاوت

چه طور میتونم این کار رو انجلم بدم

ممنون از راهنمایی دوستان

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
dim str() as string = regex.splite(crlf,job.getString)
'khate avval => str(0)
'khatte dovvom => str(1)
'.
'.
'.

سلام

توی ساب جاب دان بذار ارسطو

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری