Чтение текстового файла с пользовательского ввода

Question

find :- 
    write('Enter File Name: '), 
    see(File). 
    seen. 

Теперь пользователь может ввести имя текстового файла и прочитать текстовый файл, используя предикат (Файл). Но см. (Файл) должен соответствовать формату, например, см. («Файл.txt»), так как я могу прочитать базу текстовых файлов на имени входного файла пользователя?

Answer 1

find:- 
    write('Enter File Name: '), 
    read(File), 
    processFind(File). 
processFind(File):- 
    write('Enter A Name: '), 
    read(Name), 
    see(File), 
    repeat, 
    read(Term), 
    processCheck(Term, Name), 
    seen. 
processCheck(end_of_file, _):- 
    write('Record Not Found'), !. 
processCheck(Term, Name):- 
    Term = Name -> (write('Record Found'), !). 

Это правильно ответ что я наконец получил это. Введите имя файла, в том числе одной цитаты, а затем пойти на проверки ли это имя существует в файле или нет.

True возвращение Запись найденная еще запись не найдена.

Answer 2

Чтобы захватить ввод от пользователя, которые используются для чтения() предикат:

read(X). 

Таким образом, вы можете попробовать это:

find :- 
    write('Enter File Name: '), 
    read(File), 
    see(File), 
    seen.