| |
|
|
| | Подскажите пожалуйста как из ACCESS можно в текстовом файле изменить только вторую строку ничего более не трогая.
Или накрайняк первую и вторую строку поменять , а остальные строки не трогать. | |
| |
| |
| |
|
|
| | FileSystemObject, собираением файла построчно заново | |
| |
| |
| |
|
|
| | Жаль...  | |
| |
| |
| |
|
|
| | Если измененная строка той же длины (или короче, но дополненная пробелами), то можно заменить, открыв файл в режиме 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
|
| |
| |
| |
| |
|
|
| | ********************************************
Строка той же длинны один смвол
# меняется на @
********************************************
Это признак, что файл прочтён. | |
| |
| |
