گرفتن تکست از یک فایل .txt آنلاین

[amirbeigi 192]

آقا من میخوام یه استرینگ داشته باشم که همیشه به روز باشه
میخوام بیاد متنو از یه فایل تکست روی هاست بگیره بریزه توی استریگنگ
چطوری میتونم این کارو بکنم ؟

[AMiN.M7892 1,029]

شما توی یک سرویس، یک جاب تعریف کنید و یک تایمر که هر مدتی که خودتون توی تایمر تنظیم میکنید، جاب رو اجرا کنه و  رشته رو بروز کنه.

[amirbeigi 192]

این کارارو کردم ولی وقتی مقدارو میده اون چیزی که توی فایل تکست بوده رو نمیده
یسری کد اچ تی ام ال میده و ...

[محمدرضا شاهپیری 5,579]

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

	Dim ht As HttpJob
	ht.Initialize("update",Me)
	ht.Download("yourtxtfilelink")

Sub JobDone(Job As HttpJob)
	If Job.Success = True Then
		Dim out As OutputStream 
		File.Delete(File.DirInternal,"youroldtxt.txt")'فایل تکست قبلی رو حذف کن
		out = File.OpenOutput(File.DirInternal,"youroldtxt.txt",False)
		File.Copy2(Job.GetInputStream,out)
		out.Close
		Else
		ToastMessageShow("خطا در برنامه",False)
	End If
End Sub

 

[amirbeigi 192]

در 17 ساعت قبل، محمدرضا شاهپیری گفته است :

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

	Dim ht As HttpJob
	ht.Initialize("update",Me)
	ht.Download("yourtxtfilelink")

Sub JobDone(Job As HttpJob)
	If Job.Success = True Then
		Dim out As OutputStream 
		File.Delete(File.DirInternal,"youroldtxt.txt")'فایل تکست قبلی رو حذف کن
		out = File.OpenOutput(File.DirInternal,"youroldtxt.txt",False)
		File.Copy2(Job.GetInputStream,out)
		out.Close
		Else
		ToastMessageShow("خطا در برنامه",False)
	End If
End Sub

 

داداش این کارارو خودم کردم
یسری کد اچ تی ام ال میده

[محمدرضا شاهپیری 5,579]

شما اصلا تست کردین که ببینین فایلتون دانلود میشه یانه؟

رو هاسته یا جای دیگه؟