جستوجو در متن در textbox

[alirezabigdeli]

سلام

میخواستم بدونم چطوری میشه متن بین 2 تا کلمه رو از داخل تکس باکس در اورد؟؟

مثال :

این داستان ادامه دارد

کلمه اول : این
کلمه دوم : دارد

جواب بشه : داستان ادامه


خواهش میکنم لطفا اگه کسی میدونه راهنمایی کنه خیلی ضروریه

[SlowCode]

سلام
خب کاری نداره که!
با دستور instr متنت رو جستو میکنی. اینطوری:
mainText = "این داستان ادامه دارد"
key1 = "این"
key2 = "داستان"
pos1 = InStr(1, mainText, key1)
pos2 = InStr(pos1 + Len(key1), mainText, key2)
MsgBox Mid(mainText, Len(key1) + 1, pos2 - Len(key2))

[SlowCode]

اونو که جواب دادم:لبخند:
شما اسم سایت یا فایل رو بده ما نگاش کنیم.

[alirezabigdeli]

اگه متن من به این صورت بود که



این داستان ادامه خواهد داشت و این متن به صورت ازمایشی نوشته شده است

کلمه اول : ادامه
کلمه دوم : ازمایشی

بعد جواب بشه : خواهد داشت و این متن به صورت

اون وقت چی؟

[SlowCode]

اون وقت اینطوری بنویس.

mainText = " این داستان ادامه خواهد داشت و این متن به صورت ازمایشی نوشته شده است"
key1 = "ادامه"
key2 = "ازمایشی"
pos1 = InStr(1, mainText, key1) + Len(key1)
pos2 = InStr(pos1, mainText, key2)
MsgBox Mid(mainText, pos1, pos2 - pos1)

[program2vb]

سلام

میخواستم بدونم چطوری میشه متن بین 2 تا کلمه رو از داخل تکس باکس در اورد؟؟

مثال :

این داستان ادامه دارد

کلمه اول : این
کلمه دوم : دارد

جواب بشه : داستان ادامه


خواهش میکنم لطفا اگه کسی میدونه راهنمایی کنه خیلی ضروریه

salam khedmat shoma dost gerami

mazerat mikham ke en minevisam farsi nist

mitoni az dastor zir estefade koni kheyli rahat


Dim s As String

s = "in dastan edame darad"

Print Split(Split(s, "in")(1), "darad")(0)



va j soal dovometon .....


Dim s As String

s = "in dastan edame dasht va in matn be sorat azmayeshi neveshte shode ast"

Print Split(Split(s, "edame")(1), "azmayeshi")(0)



movafag va piroz bashi dar panah khoda .... ya Ali

[alirezabigdeli]

اگر کاراکتر " هم مورد جستوجو بود چطور باید بنویسم؟

[program2vb]

اگر کاراکتر " هم مورد جستوجو بود چطور باید بنویسم؟



Dim s As String

s = "in dastan" + Chr(34) + "edame dasht va in matn be sorat azmayeshi neveshte shode ast"

Print Split(Split(s, Chr(34))(1), "azmayeshi")(0)