Алгоритм для правки файла

[FreiDer]

Имеем:
Текстовик, в котором (неизвестно где) есть определённая строка, которую нужнго исправить. Я это делаю следующим образом: считываю построчно весь файл в массив, организовываю поиск и заменяю нужный элемент.
Вопрос:
помоему этот метод несколько "тяжеловат", особенно для больших файлов. Нет ли чего попроще (покрасивее )?

[alibek]

Строка содержит символы перевода строки?
Если нет, то лучше всего поиск осуществлять внутри Do ... Line Input ... Loop, а вывод осуществлять во временный файл. После отработки процедуры исходный файл затирается, а новый переименовывается.

[codemaster]

см. http://www.rsdn.ru/article/alg/textsearch.xml

[FreiDer]

2 alibek - символ "перегона коретки" есть...

2 codemaster - мерсибо за полезную ссылочку

[Qubicz]

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

Dim st$, fi$(), n As Long
Open "c:\11.txt" For Binary As #1
st = Input(LOF(1), #1)
Close #1
fi = Split(st, vbCrLf)
MsgBox "6 строка:" & vbCrLf & fi(5)
'Исправление в нужной строке
fi(5)="<CENSORED>"
'запись файла
Open "c:\my.txt" For Output As #1
For n = 0 To UBound(fi)
Print #1, fi(n)
Next
Close #1

[FreiDer]

Всё спасибки так оно попроще будет!

[alibek]

И чем оно отличается от первого варианта?

[alibek]

Вдобавок, этот код будет добавлять лишние два байта в конец файла.

[Qubicz]

Ну если так мешает vbCrLf в конце тогда:

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

Dim st$, fi$(), n As Long
Open "c:\11.txt" For Binary As #1
st = Input(LOF(1), #1)
Close #1
fi = Split(st, vbCrLf)
MsgBox "6 строка:" & vbCrLf & fi(5)
'Исправление в нужной строке
fi(5) = "<CENSORED>"
'запись файла
Open "c:\my.txt" For Output As #1
For n = 0 To UBound(fi) - 1
Print #1, fi(n)
Next
Print #1, fi(n);
Close #1

[alibek]

Дело не в лишнем vbCrLf, а в том, что этот код подвесит (или повесит) машину при загрузке 500-600 мегабайтного файла.

[Qubicz]

В binary можно по частям загрузить. Выход?
Ну и наконец про 500-600 метров никто не спрашивал. fso еще есть