مشکل در جداسازی متن بین دو کاراکتر خاص

[vahid_visualbasic]

سلام

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


data for use show = "alijoon#other text...

حالا من میخوام علی جون رو پیدا کنم ، توی تکست باکس، علی جون همیشه بینه " و # قرار داره ولی ممکنه این اسم تغیر کنه ، و در واقع من فقط میخوام تو یه متن بزرگ کلمه بینه " و # رو بکشم بیرون ، مثال های سایت رو دیدم ، چیزی که کارم رو راه بندازه ندیدم ، استاتید لطف بفرمائید راهنمایی کنید

[ali.rezaei7]

سلام. یک نمونه کد گذاشتم:
Dim s As Integer
Dim l As Integer

Dim strPick As String
s = InStr(1, Text1, """")
l = InStr(s, Text1, "#") - s

strPick = Mid(Text1, s + 1, l - 1)
MsgBox strPick

البته یکی دیگر روش ها استفاده از Regular expressions می باشد. ولی تا اونجایی که من می دونم توسط وی بی پشتیبانی نمیشه.

[محسن واژدی]

سلام علیکم

تاپیگ زیر را نیز بررسی کنید:
http://barnamenevis.org/showthread.php?294481-%D9%BE%D8%A7%DA%A9-%DA%A9%D8%B1%D8%AF%D9%86-%D9%82%D8%A8%D9%84-%D9%88-%D8%A8%D8%B9%D8%AF-%D9%86%D9%82%D8%B7%D9%87

موفق باشید