MyTetra Share
Делитесь знаниями!
Подсчет количество строк в текстовом файле
29.12.2017
16:47
Текстовые метки: vba,text,txt
Раздел: VBA - Text

На больших объемах текстовых файлов лучше вообще 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.52
Яндекс индекс цитирования