write('Введите имя исходного файла:'),
read(SOURFILE),
check_exist(SOURFILE),
open(SOURFILE,read,FROM),
read_line_to_string(FROM,X),writef(" "),
writef(X),
writeln(" "),
write('Введите подстроку:'),
read(WR),
close(FROM),
write('Введите имя нового файла:'),
read(NEWFILE),
check_exist(NEWFILE),
name(S,X),
write_to_file(NEWFILE,S).
check_exist(Filename):-exists_file(Filename),!.
check_exist(_):-writeln('Такого файла нет'),
fail.
write_to_file(Filename,TEXT) :-
open(Filename, write, File),
write(File, TEXT),nl,
writeln('Данные упешно записаны'),
close(File).
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.