find ve belli veriyi alma

[venora]

merhaba,

userform uzerine bir textbox ekledim, multiline ozelligi true yapildi.
icine uzunca bir yazi yapistirdim ve bunun icinden "adi" kelimesini aramayi, "adi" kelimesini bulduktan sonra da ordan itibaren 25 karakter okumak ve baska bir textbox 'a aktarmak istiyorum. nasil yapabilirim yardimci olabilir misiniz ?

tesekkurler.

 

[Tarkan VURAL]

yanıt

Merhaba,

Private Sub CommandButton1_Click()
Dim metin As String
evn = Split(TextBox1.Value, "ADI")
metin = Mid(evn(1), 1, 25)
MsgBox metin
End Sub

 

[venora]

tesekkurler Tarkan bey,

bende tam arastirirken su kodu bulmustum ;

yer = InStr(1, TextBox1.Value, "adi")
daranan = Mid(TextBox1.Value, yer, 25)
TextBox2.Value = daranan

iyi calismalar.

 

[Tarkan VURAL]

yanıt

İyi çalışmalar.