آوردن اطلاعات از فایل تکست و لیست ویو

[amiro72 17]

سلام

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

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

 

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

 

این اکتیویتی اول

Sub Process_Globals
	Dim id As  Int	
	Dim list1 As List
End Sub

Sub Globals

Private ListView1 As ListView

End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("booot")
list1 = File.ReadList(File.DirAssets,"mmm.txt")
For i=0 To list1.Size-1
ListView1.AddSingleLine2(list1.Get(i),id)
Next
End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
id=Value
StartActivity(ggg)	
End Sub

اینم  کد های اکتیویتی دوم

 

 

Sub Activity_Create(FirstTime As Boolean)
mtn=File.ReadString(File.DirAssets,Main.id&"s.txt")
End Sub

توی  اسست  هم فایل های تکستم 

0s.txt

1s.txt

2s.txt

 

همینجوری به ترتیب 

[razavioo 310]

Id رو از نوع string تعریف کنید شاید حل بشه مشکل

[shahab.msb 326]

Sub ListView1_ItemClick (Position As Int, Value As Object)

ggg.id=Value

StartActivity(ggg)

End Sub

متغیر id رو توی اکتیویتی دوم توی پروسس گلوبال تعریف کنید

فقط اینو توی اکتیویتی اول بنویسید مشکلتون حل میشه

اگه هم کار نکرد بجای توی خط دوم بجای value از position استفاده کن

[مهدی ایزدی 9,203]

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

 

لطفا مشکل را ذکر نمایید 

[amiro72 17]

لطفا مشکل را ذکر نمایید 

 

روی هر ایتم لیست ویو که میزنم فقط یکی از متن های توی اسست باز میشه ولی میخام هر ایتم  یه متن جدا رو توی اکتیویتی دوم نشون بده مثلا ایتم 4 اگه زدم  توی اکتیویتی دوم متن شماره 4  ینی  4s.txt رو نشون بده 

[razavioo 310]

کد زیر رو

ListView1.AddSingleLine2(list1.Get(i),id)

تبدیل کنید به این کد

ListView1.AddSingleLine2(list1.Get(i),i)

امیدوارم مشکلتون دیگه حل بشه.

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

دوست عزیز این کارا خیلی سادس

Sub ListView1_ItemClick (Position As Int, Value As Object)
Dim ar As AriaSharedPreferences
ar.Initialize("ar")
ar.SaveInt("id",Value)
StartActivity(ggg)	
End Sub

حالا اکتیویتی دوم

Sub Activity_Create(FirstTime As Boolean)
Dim ar As AriaSharedPreferences
ar.Initialize("ar")
mtn=File.ReadString(File.DirAssets,ar.GetInt("id",0)&"s.txt")

End Sub

موفق باشید