Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: jak odczytać linię
nokio




Typ: neutral
Postów: 5
Zarejestrowany: Jul 2003
jak odczytać linię

Wiem zapewne to bardzo proste.
Chcę dodać jakiś tekst do ostatniej lini wpliku tekstowym.
Jak odczytać ile jest lini w pliku tekstowym?

13-07-2003 17:57
Pokaż profil nokio  Wyślij email do nokio   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
A może tak...


Function asasa() As Long
Dim strTmp As String

Open "a.txt" For Intput As #1
    Do While Not EOF(1)
        Line Input #1, strTmp
        i = i + 1
    Debug.Print MójZnak
Loop

Close #1

asasa = i

End Function



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

14-07-2003 20:04
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
nokio




Typ: neutral
Postów: 5
Zarejestrowany: Jul 2003

losmac - dzięki to jest chyba to czego chciałem

15-07-2003 10:39
Pokaż profil nokio  Wyślij email do nokio   
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1