[lxa85]

Pashka, какими средствами программирования вы владеете?
Может проще будет написать самому?
Просто сам собой напрашивается некий скрипт. Только надо сделать так, чтобы в дальнейшем вы смогли его адаптировать под дальнейшие нужды.

[Pashka]

Чуть-чуть пишу на фоксе-дос. Я не знаю как перебрать эти даты в файле (читать построчно или сразу можно весь файл) и их заменить на другие. REPLACE не получается

[lxa85]

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

[Pashka]

содержимое файла примерно такое:

????????????????????????????20100115??????????????????????
???????????????????? ??201001152010011520100115??????????? ?????????????????????? ...
???????????????????? ??201001152010011520100115??????????? ?????????????????????? ...
???????????????????? ??201001152010011520100115??????????? ?????????????????????? ...
???????????????????? ??201001152010011520100115??????????? ?????????????????????? ...

и все эти даты мне нужно заменить на дату 20100117

[ganselo]

Pashka, Используйте какой нибудь текстовый редактор(если конечно диапазон дат не меняется) . Там есть функция "Найти и заменить".

[alex77755]

REPLACE не получается

??
На форме RichTextBox1 с сылкой на файл и два тксбокса. Всё меняется

Форма1.RichTextBox1.Text = Replace(Форма1.RichTextBox1.Text, Форма1.Текст1.Text, Форма1.Текст2.Text)
потом только сохранить

А объём файла большой?
и так можно

Код:

 Dim File As String, CF As String
   
   File = "D:\КиРпИчИ\Задания\Замена\1.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
Debug.Print CF
CF = Replace(CF, "20100115", "20100117")
Debug.Print
Debug.Print CF
   File = "D:\КиРпИчИ\Задания\Замена\2.txt"
   Open File For Output As #1
Print #1, CF
Close #1
End Sub

[Pashka]

Всем большое спасибо! Проблемку решил с помощью функции STRTRAN. Оказалось все легко и просто.