text dosyasını tarama sorunu

[aherab]

c:\telefon.txt dosyam var
bunun içinde
3414567
5443232
7985647
3415555
3411111
7981111

gibi numaralar var

bu dosyanın içinde arama yaparak eğer başlangıcı
341 ise ahmet.txt
544 ise mehmet.txt
798 ise hasan.txt olarak kayıt etmesini istiyorum

sonuçta ahmet.txt dosyasını açtığımda içinde 3414567 , 3415555 ,3411111
mehmet.txt dosyasında ise 5443232
hasan.txt de de 7981111,7985647 numaraları kayıt olacak

bunun için herhangi fikri olan var mı ?

 

[aherab]

cevap :

Private Sub Command1_Click()
Dim a As String, c As String, deg As String, h As String, yaz As String, g As String, meh As String

Open "c:\acma.txt" For Input As #1
Do While Not EOF(1)
 Input #1, a
deg = Right(a, 7)
h = Left(a, 2)
g = Left(deg, 3)
c = h & " " & deg

List1.AddItem c
List2.AddItem g
If g = 555 Then

List3.AddItem deg
End If
Open "c:\yaz.txt" For Output As #2
For i = 0 To List1.ListCount - 1
deg = List3.List(i)

Write #2, deg
Next
Close #2
Loop
Close #1

End Sub

gerekenlere lazım olur belki fakat kayıt sırasında şu en başta ve sondaki " " kurtulamadım

 

[Korhan Ayhan]

Selamlar,

Forumda trim olarak arama yapın ve örnekleri inceleyin.

 

[aherab]

Selamlar,

Forumda trim olarak arama yapın ve örnekleri inceleyin.

Hocam txt dosyası taramayı halettim fakat istediğim bilgiyi yeni txt dosyasına yazdırdığımda şöyle kayıt ediliyor
"555123"
"4440444"

ben şu en baştaki ve en sondaki tırnakları istemiyorum yani şöyle olacak

555123
4440444

ayrıca trim fonksyonu boşluk kaldırır bildiğim kadarıyla di mi ?

Cevap ;

wirte yerine print kullanın işte bukadar