سرچ کنه تا به یک کلمه خاص رسید اون رو برامون چاپ کنه ! خواهشا...

[dishlame]

سلام دوستان عزیزم
میخوام وقتی کلمه ای رو سرچ می کنم (بر فرض سلام ) چند کلمه بره جلو بعد از سلام هر چی کلمه هست رو بگیره و تا جایی که رسید به یک کلمه خاص مثل (-) برامون نمایش بده . همین !
مثال :
سرچ: salam
متن فایل : salam: man poria hastam - az shouma soal porsidam
حالا بگیم سلام رو بیخال و تا جایی برو جلو که برسی به " - " چاپ کن !
جوابش باید بشه : man poria hastam

ممنون می شم جواب بدید. لطفا !

 

[dishlame]

اینم جوابش :

Dim lngPOS As Long, lngLinePOS As Long

lngPOS = InStr(1, txtSTR.Text, txtFind.Text, vbTextCompare)

If lngPOS > 0 Then
lngLinePOS = InStr(1, txtSTR.Text, "-", vbTextCompare)
If lngLinePOS > 0 Then MsgBox Mid$(txtSTR.Text, lngPOS + Len(txtFind.Text), lngLinePOS - (lngPOS + Len(txtFind.Text)))
End If
​