metinde belli kelimler arasındakileri bulmak
Tarih
03/04/2013 16:56
Konu Sahibi
accessman
Yorumlar
10
Okunma
1872
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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


Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
09/12/2016,22:27
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
   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


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
ç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@İSTANBUL\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
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
kod un bir kısmı böyle olacakmış

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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


Ek Dosyalar
.rar   kelime.rar (Dosya Boyutu: 30,41 KB / İndirme Sayısı: 8)
@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  web sayfasının belli bir kısmını gösterme maras321 2 85 30/11/2016, 17:38 maras321
Çözüldü liste kutusundan kayıt bilgilerini belli bir şablonla dışa aktarma mehmetb84 2 383 03/03/2016, 14:52 mehmetb84
Çözüldü Kredi Kartı Hesap Kesim Tarihine Kalan Gün Sayısını Bulmak sfenksturk 5 655 26/09/2015, 20:15 sfenksturk
Çözüldü belli kritere göre otomatik artan sayı karaayhan 4 1.454 16/09/2015, 16:25 oosmaner
Çözüldü sorguda iki tarih arasındaki gün sayısını bulmak husem 2 526 25/06/2015, 11:32 husem


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya