🚀 go-pugleaf

ki6044ty@ex.ecip.osaka-u.ac.jp wrote:
> こういったファイルをどこに保存しておけばいいのでしょうか?

それは何処でも良いんじゃないですか?
というか、こう聞かれるとどう答えて良いか分かりません。
好きなディレクトリに入れておけば良いだけだと思いますが。

> また、どのようにしてプログラム側からこれらのファイルを指定すればいいのでしょうか?
> よろしくお願いします。

  ファイルにアクセスするには、まず
var f: file; { 型なしファイルの場合(resetまたはrewriteでバイト数を決める
) }
または
var f: file of 型; { 任意の型のファイルの場合 }
または
var f: textfile;  { テキストファイルの場合 }
のような宣言が必要です。

  その後プログラム中でAssignFile(f, ファイル名)という風にして
ファイル名を決めます。次にreset又はrewriteでファイルに対して
アクセスし、read, readln, write, writeln, blockread, blockwrite
などを使用して読み書きし、最後にCloseFile(f)でクローズして
終わりです。それぞれの詳細はヘルプを見て下さい。

-- 
--------------------------------
Mailto:Noboru_Miwa@mb1.nkc.co.jp
--------------------------------

　こんにちは。島田です。

ki6044ty@ex.ecip.osaka-u.ac.jp wrote in article <ki6044ty.96Dec11141123@toyonaka262.ex.ecip.osaka-u.ac.jp>...
>   具体的に言いますと、大学の課題として
> "図書館にあるような本の検索システムをまねたものを作成せよ"
> というのがあたえられています。
> だから、あらかじめ検索される本のリストを(テキスト)ファイルとしてさくせいしておいて
> プログラムを実行したときにそのリストを読み込み、その結果をファイルに出力したいのです。

　ということは、

    入力ファイル  :  書籍のリスト
    出力ファイル  :  検索に引っかかった書籍のリスト

ということでいいのでしょうか。
　書籍のリストの書式はどうなのでしょうか。たとえば、

    ----------------------------
    タイトル 著者名 出版社<改行>
    ----------------------------

などといった形式で永遠と続いているのでしょうか。
　でしたら、

    var
        InFile, OutFile: TextFile;
        Title, Author, Publisher: AnsiString;
                                  (* コンパイル・オプションに依存しないように *)
    begin
        AssignFile(InFile, '入力ファイル名.TXT');
        Reset(InFile);
        AssignFile(OutFile, '出力ファイル名.TXT');
        ReWrite(OutFile);
        while not Eof(InFile) do begin
            Readln(InFile, Title, Author, Publisher);
            if 検索条件に一致 then
                Writeln(OutFile, Title + ' ' + Author + ' ' + Publisher);
        end;
        CloseFile(InFile);
        CloseFile(OutFile);
    end;

　骨格は、こんなところでいいのでしょうか。
　お役に立ちましたら幸いです。


-- 
-----------------------------------------------------------------------
Mail: shimaden@annie.co.jp   Home Page: http://www.annie.co.jp/~shimaden/
Hiroyuki Shimada
島田博幸
-----------------------------------------------------------------------

　こんにちは。島田です。

Hiroyuki Shimada <shimaden@annie.co.jp> wrote in article <01bbe839$2f0bc120$LocalHost@shimaden.vision.annie.co.jp>...
>         while not Eof(InFile) do begin
>             Readln(InFile, Title, Author, Publisher);
>             if 検索条件に一致 then
>                 Writeln(OutFile, Title + ' ' + Author + ' ' + Publisher);
>         end;

    Writeln(OutFile, Title + ' ' + Author + ' ' + Publisher);

だとなんだか変でした（なぜか行末に余分な SPC が 2 個つく）。単純に、

    Writeln(OutFile, Title, Author, Publisher);

で正常に出力されました。
　でもなぜなのでしょう (?_?)


-- 
-----------------------------------------------------------------------
Mail: shimaden@annie.co.jp   Home Page: http://www.annie.co.jp/~shimaden/
Hiroyuki Shimada
島田博幸
-----------------------------------------------------------------------