مشکل در سرچ مولتی پنل

[vistamobile 1,700]

سلام دوباره !!

من متن لیبل مولتی پنل رو از تکست میگیرم به اسم : list.txt

الان نمیدونم چجوری سرچ کنم. یه کلمه خاص مورد نظر کاربر رو چجوری لیست کنم. یعنی مثلا کاربر کلمه (پنیر) رو سرچ کنه بعد پنلهایی که واژه مورد نظر رو دارن مشاهده بشن.

[vistamobile 1,700]

up lotfan

[AMiN.M7892 1,029]

سلام و درود؛

خب چجوری توی فایل متنی داده های مولتی پنل رو ذخیره کردید؟

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

[vistamobile 1,700]

در هم اکنون، AMiN.M7892 گفته است :

سلام و درود؛

خب چجوری توی فایل متنی داده های مولتی پنل رو ذخیره کردید؟

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

ذخیره نکردم امین جان. متن لیبلهای مولتی پنل رو از فایل تکست میگیرم. :

l = File.ReadList(File.DirInternal,"list1.txt")
For i = 0 To l.Size - 1
	'	ScrollView1.Panel.Height = top
		ScrollView1.Panel.Height=ScrollView1.Panel.Height+top
		Dim p As Panel
         p.Initialize("p")
		 ScrollView1.Panel.AddView(p,0,fasele,100%x,100%y)
		
		p.LoadLayout("aghahi_pn")
		ads_lbl.Text =l.get(i)

الان اینو چجوری سرچ کنم. مثلا واژه عروسک رو بسرچم

[AMiN.M7892 1,029]

متوجه شدم.

درمورد متد IndexOf شک دارم که همون چیزی هست که فکر میکنم یا نه، بخاطر همین اجازه بدید اساتید بیان و راهنمایی کنن در این مورد، ولی به شکل دیگه ای شما میتونید عمل کنید، به این شکل:

	Dim l As List
	l = File.ReadList(File.DirInternal,"list1.txt")
	Dim searchList As List
	searchList.Initialize
	For i = 0 To l.Size-1
		Dim item As String = l.Get(i)
		If item.Contains("عبارت مورد نظر") Then
			searchList.Add(item)
		End If
	Next
	لود کردن مولتی پنل با searchList

 

[vistamobile 1,700]

در هم اکنون، AMiN.M7892 گفته است :

متوجه شدم.

درمورد متد IndexOf شک دارم که همون چیزی هست که فکر میکنم یا نه، بخاطر همین اجازه بدید اساتید بیان و راهنمایی کنن در این مورد، ولی به شکل دیگه ای شما میتونید عمل کنید، به این شکل:

	Dim l As List
	l = File.ReadList(File.DirInternal,"list1.txt")
	Dim searchList As List
	searchList.Initialize
	For i = 0 To l.Size-1
		Dim item As String = l.Get(i)
		If item.Contains("عبارت مورد نظر") Then
			searchList.Add(item)
		End If
	Next
	لود کردن مولتی پنل با searchList

 

داداش تست میزنم ، من مشکلم این ایتم بود که بدستش بیارم. اگر نشد خبر میدم همین جا 

[AMiN.M7892 1,029]

یه اصلاحیه هم الان به ذهنم رسید

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

Dim l As List
	l = File.ReadList(File.DirInternal,"list1.txt")
	For i = 0 To l.Size-1
		Dim item As String = l.Get(i)
		If item.Contains("عبارت مورد نظر") Then
			لود کردن مولتی پنل در اینجا و با این آیتم
		End If
	Next

 

[vistamobile 1,700]

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

یه اصلاحیه هم الان به ذهنم رسید

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

Dim l As List
	l = File.ReadList(File.DirInternal,"list1.txt")
	For i = 0 To l.Size-1
		Dim item As String = l.Get(i)
		If item.Contains("عبارت مورد نظر") Then
			لود کردن مولتی پنل در اینجا و با این آیتم
		End If
	Next

 

سلام. هر کاری کردم نشد!! انواع کلک رشتی زدم. نمیدونم مشکل کجاست. داداشا اصلا کدهای خودمو ول کنین . واسه جستجو یه اکتیویتی جدید میزنم تو اون چجوری بگم که بیا پنلهایی که تکست لیبلشون با تکست ادیت تکست یکیه رو لیست بفرما . آپ رو باید تا فردا عصر تحویل بدم. 

[vistamobile 1,700]

up !!

[امین مهدی نژاد 2,142]

بهتره شما از همون گام اول اصولی قدم بردارید تا مشکلات کمتری براتون پیش بیاد

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

«موفق باشید.»