ذخیره لیست ویو در حالت AddTwoLines

[FarzamPlus 1]

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

 

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

 

در حالت ذخیره متنی و گرفتن اطلاعات از لیست ویو فقط یه گزینه getItem هستش که یک خط از لیست ویو رو میگیره و SecondLabel  رو ذخیره نمیکنه .

و موقع نمایش در لیست ویو SecondLabel  خالی هستش .

 

برای این مورد باید چکار کرد ؟

 

[MR.B4A 125]

سلام.

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

[امین شاهدی 5,773]

2 ساعت قبل، FarzamPlus گفته است:

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

 

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

 

در حالت ذخیره متنی و گرفتن اطلاعات از لیست ویو فقط یه گزینه getItem هستش که یک خط از لیست ویو رو میگیره و SecondLabel  رو ذخیره نمیکنه .

و موقع نمایش در لیست ویو SecondLabel  خالی هستش .

 

برای این مورد باید چکار کرد ؟

 

ببینید اینکه اصلاعات رو از لیست ویو بگیرید کار درستی نیست ، بهتر اینه زمانی که دارین اطلاعات رو به لیست ویو برای نمایش میدین همونجا ذخیره کنید

[FarzamPlus 1]

2 ساعت قبل، امین شاهدی گفته است:

ببینید اینکه اصلاعات رو از لیست ویو بگیرید کار درستی نیست ، بهتر اینه زمانی که دارین اطلاعات رو به لیست ویو برای نمایش میدین همونجا ذخیره کنید

خب میشه راهنمایی کنید چجوری میشه همون لحظه قبل از اینکه توی لیست ویو ثبت بشه توی فایل متنی ذخیره بشه ؟؟

و اینکه توی فایل متنی چجوری خط به خط ثبت کنم ؟؟

مثلا :  1245,3265

موقع بازخوانی میشه با split اعداد رو جدا کرد .

 

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

[امین شاهدی 5,773]

چون میخواین چند خط سیو کنید بهتره اطلاعات هر آیتم لیست رو تو یه Map بریزین : 

Dim mapRow As Map
	mapRow.Put("line1","felan")
	mapRow.Put("line2","felan")
	mapRow.Put("id",3)

بعد توی حلقه این map ها رو به یه لیست اضافه کنید : 

	Dim listTOsave As List

	For i=0 To 10
		listview.AddTwoLines(i,"felan")
		
		Dim mapRow As Map
		mapRow.Put("line1","item1")
		mapRow.Put("line2","felan")
		mapRow.Put("id",i)
		
		
		
		listTOsave.Add(mapRow)
	Next

بعد لیست رو مثل کد زیر ذخیره کنید : 

File.WriteList(File.DirInternal,"list",listTOsave)

و بعد میتونین اطلاعات لیست رو دوباره از فایل بگیرین : 

Dim listFromFiles As List = File.ReadList(File.DirInternal,"list")
	
	For Each row As Map In listTOsave
		Log(row.Get("line1"))
		Log(row.Get("line1"))
		Log(row.Get("line1"))
	Next

برای پاک کردن فایل : 

	If File.Exists(File.DirInternal,"list") Then
		File.Delete(File.DirInternal,"list")
	End If