جستجو در پارت بندی

[ehsankhan 256]

سلام

من یک فایل دارم به نام a.txt

متن داخل آن برابر است با :

salam#ehsankhan#basic4android.org#test

میخوام برنامه توی این فایل جستجو کنه و اگر چهار حرف اول برابر با یکی از پارت ها بود یک پیغام نشون بده

[ehsankhan 256]

مهم برا من اون قسمت چهار حرف هست

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

ehsa

برنامه تا این کلمه رو میبینه یک پیغام نشون میده و نیاز نیست کامل بنویسه ehsankhan

 

 

کسی نیست کمک کنه     

[Farzad Musavi 576]

کسی نیست کمک کنه     

 

مهم برا من اون قسمت چهار حرف هست

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

ehsa

برنامه تا این کلمه رو میبینه یک پیغام نشون میده و نیاز نیست کامل بنویسه ehsankhan

.Contains میاد همین کارو میکنه دگ :|

[Farzad Musavi 576]

اگه هم منظورت اینه حدس بزنه که از AutoCompleteEditText استفاده کن راحت

[ehsankhan 256]

ببخشید ایشالا اسپم نباشه

 

سعی میکنم بتر توضیح بدم

 

من یه دیتابیس دارم و داخل برنامه یک ادیت تکس هست که میخوام وقتی کاربر توی اون ادیت تکس چهار حرف یک متن را تایپ کرد برنامه سریع سرچ کنه و اگر چهار حرف داخل ادیت تکس برابر با چهار حرف اول یکی از کلمات داخل ادیت تکس بود یه مقدار بولین (true ,false) بهم بده

 

مثلا اطلاعات داخل دیتابیسم

ehsankhan#test#basic4android.org#

کاربر این چهار حرف رو وارد میکنه : basi و برنامه در مقابل true برمیگردونه

[مجید آرتا 5,875]

سلام

چیزی که فرزاد عزیز میگه درسته

حالا اگه میخوای توی رویداد تکست چینج اینو مشخص کنید که باید آرگومان New رو مورد مقایسه قرار بدی.

الان عجله دارم باید برم ارشا دجلسه دارم برگردم حتما یک روش استاندارد از جستجو داخل آرایه قرار میدم 

موفق باشید

[پژمان نیکروان 6,055]

سلام.

اگه چهار جزء چهار حرف اولش بود مسیج بده؟؟؟

Dim l As List
l.Initialize
l=Regex.Split("#","salam#ehsankhan#basic4android.org#test")
For i=0 To l.Size-1
Dim s As String
s=l.Get(i)
If s.StartsWith("1234")=True Then
Msgbox("در این کلمه چهار حرف پیدا شد",s)
End If
Next

اما اگه میخوای که کلا این چهار حرف وجود داشت حالا هرجا اینجوری:

Dim l As List
l.Initialize
l=Regex.Split("#","salam#ehsankhan#basic4android.org#test")
For i=0 To l.Size-1
Dim s As String
s=l.Get(i)
If s.Contains("1234")=True Then
Msgbox("در این کلمه چهار حرف پیدا شد",s)
End If
Next

[ehsankhan 256]

 

 

سلام.

اگه چهار جزء چهار حرف اولش بود مسیج بده؟؟؟

Dim l As List
l.Initialize
l=Regex.Split("#","salam#ehsankhan#basic4android.org#test")
For i=0 To l.Size-1
Dim s As String
s=l.Get(i)
If s.StartsWith("sala")=True Then
Msgbox("در این کلمه چهار حرف پیدا شد",s)
End If
Next

اما اگه میخوای که کلا این چهار حرف وجود داشت حالا هرجا اینجوری:

Dim l As List
l.Initialize
l=Regex.Split("#","salam#ehsankhan#basic4android.org#test")
For i=0 To l.Size-1
Dim s As String
s=l.Get(i)
If s.Contains("sala")=True Then
Msgbox("در این کلمه چهار حرف پیدا شد",s)
End If
Next

 

 

ممنون از پاسختون 

در سورس بالا اگرحروف بالا عینا داخل دیتابیس بود میاد و پیغام میده اما با توجه به دیتابیس من :

 

 

ehsankhan#test#basic4android.org#

 

من میخوام اگر کاربر حتی کلمه ( ehsa123 ) رو هم تایپ کرد بخاطر اینکه چهار حرف اول این کلمه در دیتابیس هست ، برنامه پیقام بده 

[Farzad Musavi 576]

اول اینکه چرا تو دیتابیس نمیذاری راحت سرچ کنی؟

اینارو هم بخون تو یه استرینگ بعد با شارپ جداشون کن بریز تو یه لیست بعد با یه حلقه جستجو کن یکی یکی آیتم های لیستو هرکدوم درست بود نشون بده

[ehsankhan 256]

اول اینکه چرا تو دیتابیس نمیذاری راحت سرچ کنی؟

اینارو هم بخون تو یه استرینگ بعد با شارپ جداشون کن بریز تو یه لیست بعد با یه حلقه جستجو کن یکی یکی آیتم های لیستو هرکدوم درست بود نشون بده

 

با دیتابیس هم اگه بشه خوبه

 

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

مشکل اصلی من توی قسمت :

 اگر چهار حرف اول برابر با یکی از پارت ها بود یک پیغام نشون بده

ممنون

[Farzad Musavi 576]

تازه ویندوز عوض کردم بیسیک ندارم ممکنه کدام اشتباه املایی و .. داشته باشه ولی مینویسم برات 

Dim str() As String
str = Regex.Split("#",salam#ehsankhan#basic4android.org#test)

For i = 0 To str.Length - 1
if str(i).Contains("4harf") then Label1.Text= str(i)
End If

[ehsankhan 256]

سلام

من یک فایل دارم به نام a.txt

متن داخل آن برابر است با :

salam#ehsankhan#basic4android.org#test

میخوام برنامه توی این فایل جستجو کنه و اگر چهار حرف اول برابر با یکی از پارت ها بود یک پیغام نشون بده

 

مهم برا من اون قسمت چهار حرف هست

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

ehsa

برنامه تا این کلمه رو میبینه یک پیغام نشون میده و نیاز نیست کامل بنویسه ehsankhan