Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Liczenie lini w pliku...
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003
Liczenie lini w pliku...

Jest jakaś funkcja, która zwraca ilość lini w pliku. Mam np. 5 wartości txtBoxów do zapisania, ale program nie będzie przy otwieraniu ich potem wiedział, że ich było 5, a ja chcę żeby wiedział...

Zna ktoś taką funkcję, która liczy ilosc lini w pliku...

18-04-2003 00:43
Pokaż profil AFRO  Wyślij email do AFRO   
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

hyhy troche sie z tym pogryzlem.. ale wyszlo.. mala rzecz a cieszy .. oto przykladowa funkcja (z uzyciem Scripting runtime)

Function CountLines(ByVal Path As String)

Dim FSO As New FileSystemObject, File

    Set File = FSO.OpenTextFile(Path)


        Do While Not File.AtEndOfLine
            File.SkipLine
        Loop

CountFiles File.Line

End Function

i tak mozna jej uzyc: MsgBox CountLines("C:\test.dat"


_____________________________________________
www.KURDE.pl

19-04-2003 01:20
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1