find :-
write('Enter File Name: '),
see(File).
seen.
これで、ユーザーはテキスト ファイル名を入力し、see(File) 述語を使用してテキスト ファイルを読み取ることができます。しかし、see(File) は see('File.txt') のような形式に従う必要があるため、ユーザー入力ファイル名に基づいてテキスト ファイルを読み取るにはどうすればよいでしょうか?
find :-
write('Enter File Name: '),
see(File).
seen.
これで、ユーザーはテキスト ファイル名を入力し、see(File) 述語を使用してテキスト ファイルを読み取ることができます。しかし、see(File) は see('File.txt') のような形式に従う必要があるため、ユーザー入力ファイル名に基づいてテキスト ファイルを読み取るにはどうすればよいでしょうか?