notepad veri alma işlemi

[ismailayan]

merhaba arkadaşlar

vb6 da gun uzantılı bir dosyadan veri almaya çalışlıyorum. yalnız. ben 7 satırdan sonrakini almak istiyorum


bu konuda bana yardımcı olurmusunuz. genel kod ve gun dosyasının içindeki veri aşağıda sunuyorum.

Open "C:\Documents and Settings\bim5\Desktop\Mgm\Güneşli Mağaza-210910.GUN" For Input As #1
Do
Input #1, linetext

MsgBox linetext
'Text1.Text = Text1.Text & linetext
Loop Until EOF(1)
'End If
Close #1


Mağza IP : 10.0.0.7
Mağza Adı : Güneşli
Tarih : 21/09/2010
Gün Toplam KAPI-1: 454 (% 10 ) 409
Gün Toplam KAPI-2: 0 (% 10 ) 0
----------------------------------------------
Saat KAPI-1 KAPI-2
00 0 0
01 0 0
02 0 0
03 0 0
04 0 0
05 0 0
06 0 0
07 0 0
08 11 0
09 9 0
10 9 0
11 22 0
12 39 0
13 36 0
14 31 0
15 42 0
16 46 0
17 49 0
18 37 0
19 44 0
20 39 0
21 0 0
22 0 0
23 0 0

 

[hamitcan]

Veriyi aldıktan sonra ilk yedi satırı silseniz yada koda bu şekilde bir satır ekleseniz daha kolay olmaz mı ?

 

[ismailayan]

hayır

o dosya başka bir dosya tarafından oluşturuluyor.

benim o oluşturulan dosyadan veri çekicem ama 7 satırdan sonrakini çekmem lazım.


normalde veriyi çekebiliyorum ama 1 satırdan itibaren geliyor.

bu konuda bilginiz varmı.

 

[hamitcan]

Örnek dosya ekleyin.

 

[ismailayan]

hamit bey

projeyi vb6 üzerinde yapıyorum. onun için sadece kodları yazdım

aşağıdaki kodda satırı nasıl belirliyebilirim

mesela 7 satır.

Dim Bilgi As String
Open "C:\Documents and Settings\bim5\Desktop\Mgm\Güneşli Mağaza-210910.GUN" For Input As #1
Do While Not EOF(1)
Bilgi = Bilgi & Input(1, #1)
Loop
Close #1
MsgBox (Bilgi)

 

[ismailayan]

bir çözüm yolu yokmudur.

 

[hamitcan]

Sub DosyadanAl1()
  yol = "C:\test.txt"
  Open yol For Input As 1
    Do While Not EOF(1)
      Line Input #1, kayit1
      If kayit1 <> Empty Then
         c = c + 1
         If c >= 8 Then Bilgi = Bilgi & Chr(10) & kayit1
      End If
    Loop
  Close #1
  MsgBox (Bilgi)
End Sub

Şeklinde dener misiniz ?