Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Pliki
~`Mhz`~




Typ: neutral
Postów: 40
Zarejestrowany: Jan 2003
Pliki

Jak sprawdzić ile linijek ma plik ???

29-04-2003 16:48
Pokaż profil ~`Mhz`~  Wyślij email do ~`Mhz`~   Odwiedź stronę ~`Mhz`~  
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003
tu masz kod

Dim Fso As New FileSystemObject
Dim Fil As File
Dim ts As TextStream

Set Fil = Fso.GetFile(App.Path & "\kz.pol"
Set ts = Fil.OpenAsTextStream(ForReading)

i=0

do until ts.AtEndOfStream
  i=i+1
  ts.skip
loop

msgbox i      '''- i masz ilosc linijek

moze jest jakis count ale w tej chwili nie pamietam
jesli plik ma do 10000 linii to i tak zliczy w moment

ps: dodaj referencje "microsoft scripting runtime"

29-04-2003 18:27
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
Ushy




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

to juz drugi post jesli nie trzeci na ten temat... rozgladac sie troche


_____________________________________________
www.KURDE.pl

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