Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Анатолий (Киев)
Если измененная строка той же длины (или короче, но дополненная пробелами), то можно заменить, открыв файл в режиме binary и вставив массив по указанному адресу..
Иначе, толбко вычитыванием всех строк, коррекцией и записью в другой файл.
Например, так:

Sub TestReplaseFile() Dim s As String, v As Variant, i As Long, l As Long     Open "C:\spisoc.txt" For Input As #1: s = Input(LOF(1), 1): Close #1     v = Split(s, vbCrLf)     Open "C:\spisoc1.txt" For Output As #1  For i = 0 To UBound(v) - 1     s = v(i) '   ... Здесь вносим коррекцию. Debug.Print s     Print #1, s  Next     Close #1: Kill "C:\spisoc.txt": Name "C:\spisoc1.txt" As "C:\spisoc.txt" End Sub