TXT sorunu

[aherab]

Arkadaşlar ben dışardan bir txt dosyası okutup arama yaptırıp listboxa arama sonucunu eklemek istiyorum fakat şurada takıldım kodlarım şunlar

Private Sub Command1_Click()
Dim sonuc As String
Open "C:\241a.txt" For Input As #1 ( burada text dosyası)
Do While Not EOF(1)
Input #1, mehmet
???????????????????????????? ( buraya arama kodu gelecek ama nasıl )
List1.AddItem ??
Loop
Close #1
End Sub

yani bi command var , textbox ve listbox , textboxa yazdığımı aratıp listboxta sonucunu görecem

yardım ederseniz sevinirim

 

[Orion1]

Örnek excel ve txt dosyasını ekleyiniz.Veriler ne ile ayrılmış.Ona bakıcam.

 

[halit3]

Arkadaşlar ben dışardan bir txt dosyası okutup arama yaptırıp listboxa arama sonucunu eklemek istiyorum fakat şurada takıldım kodlarım şunlar

Private Sub Command1_Click()
Dim sonuc As String
Open "C:\241a.txt" For Input As #1 ( burada text dosyası)
Do While Not EOF(1)
Input #1, mehmet
???????????????????????????? ( buraya arama kodu gelecek ama nasıl )
List1.AddItem ??
Loop
Close #1
End Sub

yani bi command var , textbox ve listbox , textboxa yazdığımı aratıp listboxta sonucunu görecem

yardım ederseniz sevinirim

bunu denermisiniz.

Private Sub Command1_Click()
Dim sonuc As String
Open "C:\241a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
If TextBox1 = a Then
List1.AddItem a
End If
Loop
Close #1
End Sub

 

[aherab]

dosya ektedir

 

[Orion1]

Veriler belirli bir sekme ile ayrılılmamaış.Kimisinin arası aha açık kimisinin arası daha kapalı.Ondada bir standart yok.
Ama yinede bakıcam .Burada ne sorgulanacak?
ABONE NUMARASI 'mı sorgulanacak?

 

[aherab]

bunu denermisiniz.

Private Sub Command1_Click()
Dim sonuc As String
Open "C:\241a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
If TextBox1 = a Then
List1.AddItem a
Loop
Close #1
End Sub

hata verdi sanırım end if olması gerek ayrıca direk textbox1 olmaz sanırım ben text1.text olacak işlemler

 

[aherab]

evet abone numarası ben şöyle düşündüm text1.text yazdığımı arttırıcam zaten max 7 karakter olacaktır , numaralarda 29 karakterde başlıyor

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim dosya, x As Long, a As String, deg As String, b As String
ChDir (ThisWorkbook.Path)
dosya = Application.GetOpenFilename(filefilter:="Txt dosyaları,*.txt", _
Title:="Txt dosyaları----evrengizlen@hotmail.com")
If dosya = False Then Exit Sub
b = InputBox("Aranılacak Abone Nosunu giriniz : ", "Abone No", "241 30 03")
If b = "" Then Exit Sub
Open (dosya) For Input As #1
Do While Not EOF(1)
    Line Input #1, a
    deg = Right(a, 9)
    If b = deg Then
        ListBox1.AddItem deg
    End If
Loop
Close #1
End Sub

 

[aherab]

teşekkürler fakat çıktısı şöyle oluyor ( ilgili resim ektedir )

 

[Orion1]

teşekkürler fakat çıktısı şöyle oluyor ( ilgili resim ektedir )

Siz nasıl olsun istiyorsunuz?

 

[aherab]

sadece rakam

 

[Orion1]

sadece rakam

Dosyayı güncelledim.
8 numaralı mesajdan dosyayı indirebilirsiniz.

 

[aherab]

teşekkürler şimdi bakabildim ellerinize sağılık

 

[aherab]

şunu merakımdan soruyorum ben ortadaki lan veya na okutmaya çalışsaydım onu nasıl yapacaktım ? , sizin bu kodunuz daha basit ve sadece ben uzun yolu tercih etmişim

 

[Orion1]

şunu merakımdan soruyorum ben ortadaki lan veya na okutmaya çalışsaydım onu nasıl yapacaktım ? , sizin bu kodunuz daha basit ve sadece ben uzun yolu tercih etmişim

Onlar için şartlar nelerdir?
Lan ve na nın karakter uzunlukları sabitmidir?
Kaçıncı karakterlerden başlarlar?
Devamlı ayni sıradamı başlarlar?
falan,falan,falan.
Gördüğünüz gibi bazı soruların cevaplanması lazım.
Bu yöntem önceki yaptığım yöntem.
Başka bir yöntemi daha yapılabilir.
oda split yaparak olabilir.
Yani demokrasilerde çağreler tükenmez.

 

[aherab]

yani dediğim şu hani bizler numarayı liste yazdırdık başka bir liste na nasıl yazdırabilirim sonuçta o ortada daha zor sadece NA olacak

 

[halit3]

yani dediğim şu hani bizler numarayı liste yazdırdık başka bir liste na nasıl yazdırabilirim sonuçta o ortada daha zor sadece NA olacak

ekli dosyada verileri ayrıştırarak sayfa1 e alıyor buradan hangi veriyi alacaksanız kendiniz belirliyebilirsiniz.

 

[aherab]

hocam tamam da sen ayrışmasını yaptın bizler aratmayı diyoruz sonuç olarak ben şöyle bir şey yaparsam

Tel No:
Na :
Lan : bunların karşısına tek tek gelecek yani ben telefon numarasını yazdığımda o telefonu txt dosyasından bulacak ve o satıra ait Na Lanıda oraya listboxa yazacak

o boşlukları hepsininde silme şansım var mı mesela ilk satırı
1 1202 129 241 30 00 yerine 112021292413000 gibi yapabilir miyim ?

 

[Orion1]

hocam tamam da sen ayrışmasını yaptın bizler aratmayı diyoruz sonuç olarak ben şöyle bir şey yaparsam

Tel No:
Na :
Lan : bunların karşısına tek tek gelecek yani ben telefon numarasını yazdığımda o telefonu txt dosyasından bulacak ve o satıra ait Na Lanıda oraya listboxa yazacak

o boşlukları hepsininde silme şansım var mı mesela ilk satırı
1 1202 129 241 30 00 yerine 112021292413000 gibi yapabilir miyim ?

NA ları gösteriyor.
Dosya ektedir.

Private Sub CommandButton1_Click()
Dim dosya, x As Long, a As String, deg As String, b As String
Dim z, say As Byte
ChDir (ThisWorkbook.Path)
dosya = Application.GetOpenFilename(filefilter:="Txt dosyaları,*.txt", _
Title:="Txt dosyaları----evrengizlen@hotmail.com")
If dosya = False Then Exit Sub
b = InputBox("Aranılacak Abone Nosunu giriniz : ", "Abone No", "241 30 03")
If b = "" Then Exit Sub
Open (dosya) For Input As #1
Do While Not EOF(1)
    Line Input #1, a
    deg = Right(a, 9)
    If b = deg Then
        z = Split(a, " ")
        For x = LBound(z) To UBound(z)
            If z(x) <> "" Then say = say + 1
            If say = 2 Then
                ListBox1.AddItem z(x)
                Exit For
            End If
        Next
    End If
Loop
Close #1
End Sub

 

[aherab]

çok teşekkürler ilgilenen herkese güzel bir uygulama oldu