رفتن به مطلب
  • 0

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


amiro72

سوال

سلام

من دوتا اکتیویتی دارم  تو اولیش یه  لیست ویو اوردم که  عنواناش رو با رید لیست از فایل تکست میخونم  بعد میخام رو هر کدوم از ایتما که کلیک شد  بیاد توی اکتیویتی دوم  حالا توی اکتیویتی دوم یه فایل تکست رو من لود کردم   میخام روی هر ایتم اون لیست ویو که زد بیاد توی اکتیویتی دوم و فایل تکست مخصوص شماره هر ایتم رو باز کنه 
ینی اگر روی ایتم 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

 

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

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

6 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

Sub ListView1_ItemClick (Position As Int, Value As Object)

ggg.id=Value

StartActivity(ggg)

End Sub

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

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

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

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

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

 

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

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

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

 

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

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

کد زیر رو

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

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

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

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

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

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

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

موفق باشید

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...