Отредактировать текстовый файл в FSO

[Lexoos]

Доброе время суток!
Подскажите плиз, как в FSO отредактировать (а не переписывать весь файл) одну из строк текстового файла (строки произвольной длины)?
Или какие другие подходящие средства подскажите?
Заранее благодарен за помощь!

[Twister]

Пишешь файл в массив, изменяешь что надо, пишешь файл на диск.
Кажись нет способа переписать строку "на лету"...

[Lexoos]

а может какие другие способы работы с текстовыми файлами есть, которые позволяют редактировать одну из строк произвольной длины?

[AndreyIl]

Я таким образом заменил только "regedit" на "regedit" в текстовом файле. Пример, конечно, примитивен. Код надо доработать, но работает.

f = FreeFile()
i = 0
Open "w:\tempfolder\Копия Reg.txt" For Binary As #f
While Not EOF(f)
Input #f, St
Put #1, InStr(St, "regedit"), Replace(Mid(St, InStr(St, "regedit"), 7), "regedit", "regedot")
Wend
Close #f

Это то, что надо или нет?

[AndreyIl]

Разумеется, сначала идет проверка:
If InStr(St, "regedit")>0 Then ...

Можно просто
Put #1, InStr(St, "regedit"), "regedot"

[Lexoos]

мне то в принципе нужно редактировать только одну конкретную строку целиком, а не отдельные слова в ней (но вот проблема, строка энта может быть разной длины)

[AndreyIl]

Есть примерный файл, в котором надо заменить текст?
Можно было бы с ним попробовать.

[GSerg]

Я фигею с этой дискуссии...

Lexoos
Объясни, что из перечисленного вызывает проблему конкретно.

• Открыть файл
• Прочитать содержимое в переменную
• Изменить содержимое переменной
• Записать переменную в файл

[Lexoos]

Ну я рад за тебя. Видно точно фигеешь, если не понял, нужно в текстовом файле заменить скажем третью строку длиной 23 (а может и 45) символов на другую строку не переписывая остальных 20 строк.

[Lexoos]

Вот прмиерный файл и в нем препоследнюю строку нужно заменить на строку "654321" не переписывая по новому остальных.

[Lexoos]

"
C:\Documents and Settings\User\Desktop\Base\proga.exe
5
1234567
100
"

[AndreyIl]

Вот пример кода, который заменяет все строки "диски" на "хрень".

Private FSO As FileSystemObject
Private Fl As Object
Private Fle As Object

Private Sub Form_Load()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fl = FSO.OpenTextFile("w:\tempfolder\Scan.rep", ForReading, True, TristateUseDefault)
Set Fle = FSO.OpenTextFile("w:\tempfolder\Scan1.rep", ForAppending, True, TristateUseDefault)
Fle.Write Replace(Fl.Read(FileLen("w:\tempfolder\Scan.rep")), "диски", "хрень")
Fle.Close
Fl.Close
FSO.DeleteFile "w:\tempfolder\Scan.rep", True
FSO.MoveFile "w:\tempfolder\Scan1.rep", "w:\tempfolder\Scan.rep"
End Sub

Введи свои данные. Напиши результат.

[Lexoos]

спасибо за помощь!
проблему решил, но немного иначе - скачал класс для работы с ini файлами, все работает

[Twister]

Хочу заметить что GSerg (ну и я) был прав - на "физическом" уровне запись в файл осуществляется именно таким способом: прочитал, изменил, записал. Других способов НЕТ.
(ну кроме, конечно, прямой записи на диск )

[GSerg]

Видно точно фигеешь, если не понял, нужно в текстовом файле заменить скажем третью строку длиной 23 (а может и 45) символов на другую строку не переписывая остальных 20 строк.

Я фигею не с вопроса, я фигею с диалога, в чём можно убедиться, внимательно перечитав мой пост.
Диалог офигительный, в свете сказанного Twister'ом чуть выше, ибо тесно граничит с вопросом "Как прочитать файл, не открывая его", а также потому, что специально подчёркивается несуществующая разница между строками разной и одинаковой длины.

http://bbs.vbstreets.ru/viewtopic.php?t=22749
Геморрой распространяется...

[Lexoos]

Опять же, надобно читать внимательно и ответы и понимать логику конкретного человека в изложении его мыслей (в этом беспорно геморой проявляется в разной степени), а не в своей логике выстраивать существующие ответы прочитав осмысленно только первые слова или выдернув знакомые.
И ежу наверное понятно, что данные файла невозможно прочитать, а тем более изменить, не открыв его. А критерий длины строк я думаю довольно значимый в выборе методов работы с ними (допустим файлы последовательного, произвольного доступа или двоичные). Бесспорно, можно конечно подсчитывать длину строк искать символ возврата коретки, но на фига козе баян, если необходимую задачу можно выполнить значительно быстрее, а главное проще?
Вот, можно так сказать, мораль или подоплека вопроса.

[alibek]

Бесспорно, можно конечно подсчитывать длину строк искать символ возврата коретки, но на фига козе баян, если необходимую задачу можно выполнить значительно быстрее, а главное проще?

Нельзя.
Попробуй подумать.
Например о том, что если ты изменишь длину строки, то все последующие байты файла надо сдвинуть вперед или назад. Из чего следует, что файл в любом случае придется переписывать.
Можно оптимизировать данную операцию, переписывая не весь файл, а только смещаемую часть (хотя это не даст эффекта, если будут изменяться первые строки), но если бы ты мог это сделать, то не задавал бы таких вопросов.

[Lexoos]

Это я уже понял и разобрался в своем вопросе. Спасибо Вам за разъяснения и помощь.
Малость возмутило только то, что большинство с высока так посмотрели на мой вопрос (может быть и детский) и наср.. сюда вместо того чтоб разъяснить что к чему и намекнуть, как решить задачу.

[alibek]

Возможно дело в том, что твой вопрос не оригинален и поиском по форуму находится минимум трижды.

[Lexoos]

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

[alibek]

Поищи по "Line Input", а потом скажи, что такой задачи на форуме не было.