جستجو text

[aleas2]

سلام خسته نباشید
دوستان داخل text محتویات زیادی هسته من میخوام با کلیک روی command1 داخل text هرچی کد

<strong . نمیدونم چه کدی هسته.. >
هسته پیدا کنم (... یعنی نمیدونم چه کدی هسته)حذفشون کنم و با کلیک روی command2 داخل textهرچی کد

<strong . نمیدونم چه کدی هسته.. >
هسته پیدا کنه (... یعنی نمیدونم چه کدی هسته) جاش <br>بذاره
فقط این که خودم این روش بلدم

i = InStr(1, text1.Text, "<STRONG")
Do While i <> 0
j = InStr(i + 1, text1.Text, ">") + 1
text1 = Replace(text1, Mid(text1, i, j - i), Textb.Text)
i = InStr(1, text1.Text, "<STRONG")
Loop

یعنی منظورم اینه تابعی برای اینکار وجود نداره ... نقطه رو خودش تشخیص بده هر چی بود؟که مثل تابع

i = InStr(1, text1.Text, "<STRONG")
سریع باشه تا اینکه بخواهی تک تک کلماتو برسی کنی
و برای حذف
</strong>
هم که باید از کد

text1 = Replace(text1, "</STRONG>", " ")
استفاده کنم

امیدوارم متوجه منظورم شده باشین

[aleas2]

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

[kitcat_m18]

دوست عزيز حرف گوش نمي دي ها! :چشمک:
گفتم که با عبارات منظم به راحتي مي توني اينکارو کني براي قسمتي هم که نمي دوني توش چي نوشته و چه طولي داره از کدي مثل اين استفاده کني:

"href=(.*?)target=(.*?)</a>"

مثلا با اين کد لينک ها رو پيدا مي کني.

موفق باشي :لبخندساده:

[aleas2]

والا بنده عبارات منظم رو خوندم ولی نمیدونستم اون کد ها تو vb6 هم جواب میده حالا اینی گفتین چک میکنم ممنون

[aleas2]

سلام با عبارات منظم هم انجام دادم ولی شدنی نیست

Text1 = Replace(Text1, "<STRONG(.*?)>", " ")

[kitcat_m18]

:متعجب: دمت گرم اما واقعا رو اعصابي :لبخند: داداشم از عبارات با قاعده اينطوري استفاده مي کنن؟؟؟
شما برو تو نت يه سرچ درباره Regular Expression بزن
قبلا مطرح کردم بازم مي گم اگه مي خواي تو اين مورد تخصصي کار کني منبع عبارات منظم لينوکس هست
موفق باشي :لبخندساده:

[mr-adler]

سلام

شما برو تو نت يه سرچ درباره Regular Expression بزن
منظور همون برنامه نویسی مدیریت شده و مدیریت نشده هست؟:متفکر:

[aleas2]

دوست عزیز حالا شما نمیتونین یه نمونه سورس که از عبارات باقاعده استفاده شده بدین که بنده بدونم تو vb6 چطور از عبارات با قاعده استفاده میکنن؟
البته علائم عبارات باقاعده رو میدونم فقط میخوام بدونم چطور باید تو vb6 ازشون استفاده کنم

[kitcat_m18]

سلام،


منظور همون برنامه نویسی مدیریت شده و مدیریت نشده هست؟
نه متاسفانه


دوست عزیز حالا شما نمیتونین یه نمونه سورس که از عبارات باقاعده استفاده شده بدین که بنده بدونم تو vb6 چطور از عبارات با قاعده استفاده میکنن؟
البته علائم عبارات باقاعده رو میدونم فقط میخوام بدونم چطور باید تو vb6 ازشون استفاده کنم

تو انجمن مي گشتي پيدا مي کردي :چشمک:

http://barnamenevis.org/showthread.php?283969-%DA%86%D8%B7%D9%88%D8%B1-%D8%AD%D8%B0%D9%81-%DA%A9%D8%B1%D8%AF%D9%86-%D8%A7%DB%8C%D9%85%DB%8C%D9%84-%D9%87%D8%A7%DB%8C-%D9%86%D8%A7%D8%AF%D8%B1%D8%B3%D8%AA-%28%D8%A7%D8%B2-%D9%86%D8%B8%D8%B1-%D8%B3%D8%A7%D8%AE%D8%AA%D8%A7%D8%B1-%D8%A7%DB%8C%D9%85%DB%8C%D9%84%29-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D8%A7%D8%AA%D9%88%D9%85%D8%A7%D8%AA%DB%8C%DA%A9-%D8%A7%D8%B2-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%9F&highlight=Regular

موفق باشين :لبخندساده:

[aleas2]

اینم روش جایگزین کردن با عبارات منظم

Dim Regx As New RegExp
Dim a As Boolean
Regx.Pattern = "<STRONG(.*?)>"
Do While Regx.Test(Text1) = True
Text1 = Regx.Replace(Text1, " ")
Loop
میذارم که اگرکسی به مشکل من برخورد سرگردون نشه تو نت خیلی کم درباره این عبارات منظم صحبت شده که خودمم بقیه تابع هاشو هنوز نفهمیدم مثلا وقتی که

"<STRONG(.*?)>"
پیدا کرد بدون تغییر دادن این قسمتی که پیدا کرده بریزه تو متغییر یا تکست باکس


برای اینکه بتوانید از عبارات با قاعده در VB6 استفاده کنید، باید از کتابخانه vbscript استفاده کنید. (از منوی Project، گزینه References رو انتخاب کنید و بعد از بین لیست dll ها گزینه Microsoft VBScript Regular Expressions 5.5 رو انتخاب کنید)

[aleas2]

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

"<STRONG(.*?)>"
اگر این شکلی باشه تشخیص نمیده میخوام تشخیص بده به حروف کوچک بزرگ حساس نباشه

<StROnG NEM="test">

[_behnam_]

برای اینکه به حروف بزرگ و کوچک حساس نباشه Regex.IgnoreCase = True رو بزنید بهتره توی متنهای بزرگ مثل محتویات وب ها Regex.MultiLine هم برابر True کنید
برای برنامه شما کد زیر لازمه

Regx.Pattern = "<STRONG[\S\s]+>"