رفتن به مطلب

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


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

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

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

با سلام و خسته نباشید خدمت دوستان.تو این آموزش یاد میگرین که چطور یک کلمه رو در یک متن (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

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

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

  • 1 ماه بعد...

مرسی کسری جان

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

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

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

سلام

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

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

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

ممنون داداش

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

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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