iyi günler
çok uzun bir metin var bu metin içerisinden
"\u003E@
karakter öbeğinden sonra gelen (tek tek değil ["\u003E@]bu şekilde olacak) ve
\u003C
karakter öbeğinden önce biten kalimeleri bulup çıkaracak bir kodu nasıl yazabilirim
misal
jhgjgjgjgjhgjhgjhgjhg"\u003E@
accessman\u003CUIUOWIRUWORIUWORIU
Yukarıdaki satırdan ACCESSMAN kelimesini çıkarmalı
umarım anşaşılmıştır
teşekkürler
ilk = InStr(1, Me.Text0, "\u003E@") ' 7 karakterlik aradığımız için For Next Döngüsünde +7 vermek gerekli
son = InStr(ilk + 1, Me.Text0, "\u003") ' for next döngüsünde -1 yapmak lazım
MsgBox ilk & " " & son
Yazi = ""
For T = ilk + 7 To son - 1
Yazi = Yazi & Mid(Me.Text0, T, 1)
Next
MsgBox Yazi
çok güzel çalışıyor teşekkürler
şimdi olayın ikinci ve önemli kısmını nasıl yapabilirim
çok uzun bir metin var. bu metinde bu ACCESSMAN gibi yüzlerce kelime var yani belirtilen karakterler arasında aynı şartları taşıyan birbirinden farklı bir çok kelime
bunları metinden yakalayıp bir tablonun alanına yerleştirip listelemek istiyorum
mesela
jhgjgjgjgjhgjhgjhgjhg"\u003E@
accessman\u003CUIUOWIRgjhg"\u003E@
istanbul\u003CUUWORIgjgjgjhggjhg"\u003E@
ankara\u003CUIULŞKKLKŞLKŞ
satırlarından
ACCESSMAN
İSTANBUL
ANKARA
kelimelerini bulup tablo1 in metin1 alanına ekleyecek
bunu nasıl yapabiliriz
teşekkürler
bir durum daha var o da şu ki
aramam gereken ilk kelime öbeği
\u003E@
değil başında bir adet çift tırnak var yani
"\u003E@
olmalı bu durumda
ilk = InStr(1, Me.Text0, "\u003E@")
satırını yazmak zorlaşıyor.çünkü tek tarafta çift tırnak var yani şöyle yazılmalı
ilk = InStr(1, Me.Text0, ""\u003E@")
ama buda yanlış oluyor bunu nasıl halletmek lazım
teşekkürler
kod un bir kısmı böyle olacakmış
Kod:
Private Sub Command2_Click()
Dim yazi, ilk, son, kriter1, kriter2 As String
kriter1 = Chr(34) & "\u003E@"
kriter2 = "\u003C"
ilk = InStr(1, Me.Text0, kriter1)
son = InStr(ilk + 1, Me.Text0, kriter2)
yazi = ""
For T = ilk + 8 To son - 1
yazi = yazi & Mid(Me.Text0, T, 1)
Next
MsgBox yazi
End Sub
iyi günler
metinde belli kelimeler arasındaki kelimeleri bulup listeye ekleyen programı inceleyebilirmisiniz
bu yaptığım programda metin nekadar uzun olursa olsun kelimeleri bulup eklesin istiyorum
bunun için döngüdeki "12" sınırı metin bitene kadar olmalı
bunu do loop ile yapmak gerekiyor galiba