ساخت لیست txt با ورودی های داده شده

[mohammade79 127]

سلام دوستان من یه ادرس اینترنتی دارم میخوام وسط اون ادرس یسری عدد بزنم و تو یجایی سیو کنم. 

حالا برای این کار یه فایل تکست با کلی شماره ایجاد کردم و ادرس سایتمو بهش میدم میخوام وسط ادرس سایتم این اعدادی رو که بهش تو لیست .txt دادم رو برام بخونه و جایگذاری کنه و تو یه فایل تکست دیگه ای سیو کنه برام 

[AMiN.M7892 1,029]

بفرمایید من کد رو این دفعه آماده براتون نوشتم؛

Dim Numbers As List = File.ReadList(File.DirAssets,"numberlist.txt")
Dim NewList As List
NewList.Initialize
For i = 0 To Numbers.Size-1
	Dim Number As String = Numbers.Get(i)
	Dim Link As String
	Link = "http://example.com/"&Number&"/ADDRESS"
	NewList.Add(Link)
Next
File.WriteList(File.DirRootExternal,"newlist.txt",NewList)

که در این کد فرض شده که اون فایل متنی شما اسمش numberlist هست و در پوشه فایل های برنامه موجوده.

فقط باید مقدار Link رو به دلخواه عوض کنید.

و بعد هم خروجی رو به اسم newlist.txt دریافت میکنید.

پیشنهاد میکنم این کد رو بجای اینکه تحت اندروید اجرا کنید تحت دسکتاپ با B4J اجرا کنید(البته اگه نیازتون فقط اینه که خروجی ها رو به شکل رشته داشته باشید)

[mohammade79 127]

در در 1396/02/10, 17:10:11، AMiN.M7892 گفته است :

بفرمایید من کد رو این دفعه آماده براتون نوشتم؛

Dim Numbers As List = File.ReadList(File.DirAssets,"numberlist.txt")
Dim NewList As List
NewList.Initialize
For i = 0 To Numbers.Size-1
	Dim Number As String = Numbers.Get(i)
	Dim Link As String
	Link = "http://example.com/"&Number&"/ADDRESS"
	NewList.Add(Link)
Next
File.WriteList(File.DirRootExternal,"newlist.txt",NewList)

که در این کد فرض شده که اون فایل متنی شما اسمش numberlist هست و در پوشه فایل های برنامه موجوده.

فقط باید مقدار Link رو به دلخواه عوض کنید.

و بعد هم خروجی رو به اسم newlist.txt دریافت میکنید.

پیشنهاد میکنم این کد رو بجای اینکه تحت اندروید اجرا کنید تحت دسکتاپ با B4J اجرا کنید(البته اگه نیازتون فقط اینه که خروجی ها رو به شکل رشته داشته باشید)

دوست عزیزم ممنون بابت وقتی ک گذاشیتد برای کد نویسی خیلی کارم راه افتاد