Как сделать цикл считывания текст. файла построчно?

[Maitris]

В файле 605 строк, надо их каждую отдельно обработать.
Как ему объяснить какую именно строку я хочу?

Строчки типа такие:

ORANGE
LIGHT
SNOW
THUNDER

и т.д.

[Морфий]

Возможно это прокатит:

Код: Выделить всё

Dim strsplit as variant
Open xfile For Binary As #F
flen = LOF(F)
Str = Input(flen, F)
Close #F
SplitStr = Split(Str, vbCrLf) ' получаешь массив со всеми строками


[kif]

dim f as integer

Код: Выделить всё

f=freefile
open "c:\1.txt" for input as f
do while not eof(f)
   input #f,tempstring
   if tempstring="LIGHT" then
      ......
   endif
loop
close f


наверное так, если я правильно понял.

[Maitris]

kif Да нет, мне просто надо к каждой строчке кое-что прибавить, т.е. это слово для вставки в предложение.

В ручную заколебаться можно, т.к. 605 строк, вот мне надо автоматизировать этот процесс...

[Maitris]

kif
Точнее так можно сказать, просто мне к каждой строчке надо прибавить кое-какой текст + vbCrLf
и добавить это в тестовое поле.

Все, изменил чуть-чуть и все ок

[Sirik]

вот код быстрого считывания файла:

Код: Выделить всё

    Dim Fso As New FileSystemObject, FileManager, tmp_Mas() As String
   
    Set FileManager = Fso.OpenTextFile("имя файла")
    ReDim tmp_Mas(0)
   
    Do While FileManager.AtEndOfStream <> True
        ReDim Preserve tmp_Mas(UBound(tmp_Mas) + 1)
        tmp_Mas(UBound(tmp_Mas)) = FileManager.ReadLine
    Loop


1. массиве tmp_Mas будут все твои строки
2. количество записей Ubound (tmp_Mas)

[Cryonyx]

А что значит Preserve? Я несколько раз уже сталкивался с этим определением, но не въехал, что оно значит...

[uhm]

Preserve сохраняет содержимое массива при ReDim'е. Про это есть в хелпе по VB/VBA.

[Ruslan Demidow]

Возможно это прокатит:

Код: Выделить всё

Dim strsplit as variant
Open xfile For Binary As #F
flen = LOF(F)
Str = Input(flen, F)
Close #F
SplitStr = Split(Str, vbCrLf) ' получаешь массив со всеми строками


Кстати, а попробуй с помощью этого кода получить текст reg-файла. Т.е. экспортируй в любую ветку из реестра и получи текст этого файла.

[Ramzes]

dim Filestr() as string

open "c:\1.txt" for input as #1

i=lof(1)

redim filestr(1 to i)

for q = 1 to i
line input #1, txt
filestr(i) = txt & "SomeText" & vbcrlf
next
close #1

open "C:\1.txt" for output as #1
for w = 1 to i
print #1, filestr(i)
next
close #1

[alibek]

LOF это не количество строк, это размер файла
Для режима INPUT размер указывается в блоках (размер разделенный на 128, округленный вверх).