[решено] FoxPro 2.6 Замена фрагментов текста в txt-файле

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] FoxPro 2.6 Замена фрагментов текста в txt-файле (http://forum.oszone.net/showthread.php?t=163601)

Pashka

15-01-2010 16:28 1321054

FoxPro 2.6 Замена фрагментов текста в txt-файле

Всем привет!

Есть txt-файл, в котором встречаются даты (годмесяцдень). Мне нужно эти даты заменить на другие и оставить файл под старым именем.
Подскажите, пжт, как это сделать.

Заранее благодарен всем, кто откликнется!

lxa85

15-01-2010 16:41 1321067

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

Pashka

15-01-2010 16:48 1321076

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

lxa85

15-01-2010 17:26 1321096

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

Pashka

15-01-2010 18:05 1321122

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

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

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

ganselo

15-01-2010 22:39 1321323

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

alex77755

16-01-2010 00:54 1321441

Цитата:

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

18-01-2010 19:20 1323671

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

Время: 19:32.