Skip to main content

AccessTr.neT


metinde belli kelimler arasındakileri bulmak

metinde belli kelimler arasındakileri bulmak

Çözüldü #1
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
@benbendedeilem
Cevapla
Çözüldü #2
   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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #3
ç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
@benbendedeilem
Son Düzenleme: 04/04/2013, 09:09, Düzenleyen: accessman.
Cevapla
Çözüldü #4
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
@benbendedeilem
Cevapla
Çözüldü #5
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

@benbendedeilem
Son Düzenleme: 04/04/2013, 10:20, Düzenleyen: accessman.
Cevapla
Çözüldü #6
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
.rar kelime.rar (Dosya Boyutu: 30,41 KB | İndirme Sayısı: 8)
@benbendedeilem
Son Düzenleme: 04/04/2013, 12:44, Düzenleyen: accessman.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task