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ış

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