MyTetra Share
Делитесь знаниями!
Подсчет количество строк в текстовом файле
Время создания: 16.03.2019 23:43
Текстовые метки: text, txt
Раздел: !Закладки - VBA - Text
Запись: xintrea/mytetra_db_adgaver_new/master/base/15145552625l2lz10wv2/text.html на raw.githubusercontent.com

На больших объемах текстовых файлов лучше вообще FSO применять - он частями подгружает. Input же использует Блокнот, на котором есть ограничение на размер открываемого файла txt. Для 32-бит это 1Гб, если не изменяет память. И попытка работать с файлом большего размера с очень большой вероятностью не увенчается успехом.


Dim F As Integer, i As Long, k As String

F = FreeFile
i = 0
Open "V:\08-aug-404.txt" For Input As #F
Input #F, k
Do Until EOF(F)
  i = i + 1
  Input #F, k
Loop
Close #F
MsgBox i


80 тыщ строк посчитал без проблем



Так же в этом разделе:
 
MyTetra Share v.0.60
Яндекс индекс цитирования