جستجو سریع در بین هزاران کاراکتر textbox

[aleas2]

سلام خسته نباشید خواهشن یه راهی بگین من یه textbox ساختم داخلش 85535 کاراکتر هسته میخوام داخلش مثلا دنبال aliraza554 بگردم پیداش کنم بریزم داخل textbox2 یه راهی بگین که در کمترین زمان ممکن اینکارو بکنه من با left , right جستجو کردم وقت زیاد میبره؟
به این صورت


Do While Right(Left(Text1, i), 10) <> "aliraza554"
i = i + 1
Loop
text2=right(left(text1,i+),10)

[daniyal_1363]

سلام

بهترین ، ساده ترین و سریعترین روش





If InStr(1, Text1.Text, Text2.Text, vbTextCompare) <> 0 Then
MsgBox "لغت مورد نظر یافت شد", vbInformation, ""
End If






تابع InStr :

تابعی که جستجوی یک رشته در یک رشته ای دیگر رو انجام میده

پارامتر ها :

Start : شماره کارکتر شروع جستجو است (در این مثال از 1 شروع میشه یعنی اول نوشته)

String1 : نوشته ای که در اون جستجو صورت میگیره (در اینجا Text1)

String2 : نوشته ای که قرار جستجو بشه (در اینجا Text2)

VBCompureMethod : که نوع جستجو (در اینجا vbTextCompare )

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

[hossein71]

میتونید از تابع زیر استفاده کنید.


Instr(x,y,z)
x:مکان کاراکتر شروع جستجو
y:رشته ای که z را در آن جستجو کنیم.
z:رشته مورد جستجو