metinde belli kelimler arasındakileri bulmak

1 2
03/04/2013, 16:56

accessman

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
03/04/2013, 23:07

Yandemir

   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
04/04/2013, 09:06

accessman

ç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
04/04/2013, 09:54

accessman

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
04/04/2013, 10:06

accessman

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
04/04/2013, 12:32

accessman

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
1 2