Работа с файлами

@JJ · Регистрация: 21.09.2010

Author24 — интернет-сервис помощи студентам

Как нужно считывать и записывать данные из файла в файл? Например перенести данные из одного файла в другой.

Prolog

domains
file = file1;file2
openread(file1,"f1.txt"),
readdevice(file1),
/*Получить данные из файла в виде строки символов*/
closefile(file1),
 
openwrite(file2,"f2.txt"),
writedevice(file2),
/*Записать эту строку в этот файл*/
closefile(file2).

@Грымзик · 13.05.2012, 21:33

Prolog

domains
file = file1;file2
 
predicates
read_write.
 
clauses
read_write:-readln(L),!,write(L),nl,read_write.
read_write.
 
goal
openread(file1,"f1.txt"),
readdevice(file1),
openwrite(file2,"f2.txt"),
writedevice(file2),
read_write,
closefile(file1),
closefile(file2).

@JJ · 13.05.2012, 23:13 **[ТС]**

Спасибо, то что нужно. А могу ли я например применить для поиска вхождений в строку вашу функцию

Prolog

check(Word):-frontchar(Word,C,Tail),check(1,C,Tail).
 
opp(1,0).
opp(0,1).
 
check(1,'k',W):-frontchar(W,'a',_),!.
check(N,'k',W):-frontchar(W,_,W1),opp(N,N1),check(N1,'k',W1).
check(_,_,W):-frontchar(W,C,W1),check(1,C,W1).

или мне придется ее каким-то образом модифицировать?

	13.05.2012, 23:13