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

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


ehsankhan

سوال

سلام

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

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

salam#ehsankhan#basic4android.org#test

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

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

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

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

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

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

ehsa

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

 

 

کسی نیست کمک کنه  :oops:  :crazy:  :oops:

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

کسی نیست کمک کنه  :oops:  :crazy:  :oops:

 

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

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

ehsa

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

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

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

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

 

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

 

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

 

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

ehsankhan#test#basic4android.org#

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

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

سلام

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

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

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

موفق باشید

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

سلام.

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

 

سلام.

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

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 ) رو هم تایپ کرد بخاطر اینکه چهار حرف اول این کلمه در دیتابیس هست ، برنامه پیقام بده 

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

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

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

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

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

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

 

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

 

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

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

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

ممنون

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

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

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

salam#ehsankhan#basic4android.org#test

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

 

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

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

ehsa

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

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

بایگانی شده

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

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

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