2 текстовых файла - Pascal ABC
Формулировка задачи:
есть 2 текстовые файла, созданные в редакторе Блокнот. (1.txt 2.txt).в 1 записана строка оканчивающаяся "."!как во второй перенести эту строку, но без который стоит до "."!
заранее спасибо
Решение задачи: «2 текстовых файла»
textual
Листинг программы
var f, f2: text; i: integer; st, dir, dir2: string; begin dir:='C:\Documents and Settings\Admin\Рабочий стол\1.txt'; dir2:='C:\Documents and Settings\Admin\Рабочий стол\2.txt'; assign(f, dir); reset(f); readln(f, st); i:=(pos('.',st)); st:=copy(st,1,pos('.',st)-2); assign(f2, dir2); rewrite(f2); write(f2, st); close(f); close(f2); end.