آموزش پیدا کردن کلمه در متن

[کسری نعمتی مهمان]

با سلام و خسته نباشید خدمت دوستان.تو این آموزش یاد میگرین که چطور یک کلمه رو در یک متن (text) پیدا کنید که برای جستجو کردن کاربرد داره

Sub FindWordInText (word As String, txt As String) As Boolean
   Dim matcher1 As Matcher

   matcher1 = Regex.Matcher(word, txt)
   If matcher1.find = True Then
       Return True
   Else
       Return False
   End If
End Sub

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

Sub Button1_Click
Label1.Text = Log(FindWordInText("mashtiGoli","mashtiGoli rafte gol bechine"))
End Sub

اگه سوالی بود در خدمتم . موفق باشید

[dostmobile 329]

مرسی کسری جان

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

ینی 50تا لیبل داریم و همه رو با هم جمع کنیم و اگه متن پیدا شد بیاد تو همون لیبل؟؟؟

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

سلام

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

تست نکردم فقط راهنمایی بود جهت تست کردن

[Intelligent 93]

ممنون داداش

عزیز این matcher دقیقا چیکارست؟ میتونی یه توضیحی در مورد بعضی اعمال پرکاربرد regex بدی؟

[alifard 10]

Label1.Text = Log(FindWordInText("mashtiGoli","mashtiGoli rafte gol bechine"))

این کد رو برا من ارور میده