３．ファイル処理
プログラムによっては，大量のデータを入出力したり，あるいは計算の過程で途中の計算結果をファイル
（フロッピーディスクやハードディスクなどの記憶装置・媒体を通常ファイルと呼ぶ）に書き出したり，読み込んだり
する必要が生ずる。このようなデータをデータファイルと呼ぶが，これにはシーケンシャルアクセスファイル，ランダム
アクセスファイルおよびバイナリアクセスファイル（ファイルをレコード単位としてではなく，書式化されていないバイト列
として扱う。詳細については，Ｑｕｉｃｋ Ｂａｓｉｃ Ｈａｎｄｂｏｏｋ ｐ１４０〜１４５参照）の３種類がある。
以下ではこれらのデータファイルの取り扱いについて説明する。
（１）シーケンシャルアクセスファイル
１つのレコードがＣＲ／ＬＦ（キャリジリターン・ラインフィードと呼び，区切り記号として１ レコード毎に挿入
される）で終了する１行のテキストとしてファイルに格納される。例えば，数値でも各桁ごとにＡＳＣＩＩ文字
（テキスト形式）で表した文字列として保存する。したがって，一般のスクリーンエディタを用いて表示や変更
ができる。
可変長レコードとして扱われる。各レコードのフィールド長も可変長として扱われる。
詳しくは，Ｑｕｉｃｋ Ｂａｓｉｃ Ｈａｎｄｂｏｏｋ ｐ１２０〜１３０参照のこと。
１ レコードは次のように通常複数のフィールドから成り，レコードの末尾に区切りとしてＣＲ／ＬＦが入る。
フィールド，フィールド，フィールド，フィールド，フィールド．．．．．．ＣＲ／ＬＦ
・ファイルの入出力：
データをファイルに出力する或いはファイルからデータを入力するためには，使用の前後で必ずファイルの
ＯＰＥＮとＣＬＯＳＥを行う必要がある。
（例）ファイルからの入力（読み込みモード）
ＯＰＥＮ ＜”ファイル名”＞ ＦＯＲ ＩＮＰＵＴ ＡＳ ＃＜ファイル番号＞
ＩＮＰＵＴ ＃くファイル番号＞，く変数名＞
ＣＬＯＳＥ ＃＜ファイル番号＞
注） ファイル名：
ファイル名の指定には，ドライブ名やパス名も指定できる。また，ＤＯＳは大文字と小文字を
区別しないのでファイル名もそれに従い，区別されない。
ファイル番号：
１〜２５５の整数で指定し，ファイルに固有の番号を割り当てる。同時にＯＰＥＮしている他の
ファイルと同じ番号を割り当てることは出来ない。
ＣＬＯＳＥ：
ファイルをＣＬＯＳＥすることにより，ファイルバッファーに格納されている全てのデータをファイル
ヘ書き込み，割り当てられていたファイル番号を開放する。なお，ファイル番号を省略した場合
あるいはＢＡＳＩＣのプログラムが終了した場合には全てのファイルがＣＬＯＳＥされる。
（例）ファイルヘの出力（書き出しモード；ファイルの作成）
ＯＰＥＮ ＜”ファイル名”＞ ＦＯＲ ＯＵＴＰＵＴ ＡＳ ＃＜ファイル番号＞
ＷＲＩＴＥ ＃＜ファイル番号＞，＜データを保存している変数名＞
ＣＬＯＳＥ ＃＜ファイル番号＞
ただし，・既存のファイルと同じ名前のデータファイルをＯＰＥＮして書き込む場合，既存のデータファイル
を削除してから新しいレコードを書き込むので注意。
・既存のデータファイルに追加して出カするには，ＯＰＥＮ文をＡＰＰＥＮＤモードに変更する。
ＯＰＥＮ ＜”ファイル名”＞ ＦＯＲ ＡＰＰＥＮＤ ＡＳ ＃＜ファイル番号＞
・データの書き出し方法は，ＷＲＩＴＥ ＃文の他に次の方法もある。
ＰＲＩＮＴ ＃＜ファイル番号〉，＜データを保存している変数名＞
両者の違いは次の通りである。
ＷＲＩＴＥ ＃文 〜レコードの各フィールドがカンマで区切られる。
文字列式は” ”で囲まれる。
ＰＲＩＮＴ ＃文 〜ＰＲＩＮＴで画面に表示されるのと同じイメージでファイルに書き出される。
即ちカンマで区切られない。” ”でも囲まれない。
注） ＰＲＩＮＴ ＃文で格納されたデータをＩＮＰＵＴ ＃文で読み込むときには，データに
よっては予期せぬエラー（Ｑｕｉｃｋ Ｂａｓｉｃ Ｈａｎｄｂｏｏｋ ｐ１２６参照）を生ずることがある。
したがって，支障の無い限りＷＲＩＴＥ ＃文を使用した方が無難である。
・データの読み込み方法は，ＩＮＰＵＴ ＃文の他に次の方法もある。
ＬＩＮＥ ＩＮＰＵＴ ＃文 〜フィールド単位で読み取らないで，ファイル中の１行のテキスト，
即ちＣＲ／ＬＦで区切られた１レコード単位で文字変数に読み込む。
（例） ＬＩＮＥ ＩＮＰＵＴ ＃１，Ｘ＄（ｉ）
ＩＮＰＵＴ＄ ＃文 〜シーケンシャルファイルからデータを書式化されていないバイト列として
読み込む。あるいはバイナリファイル（ＡＳＣＩＩ形式でないファイル）を読み
込むときに使用する。
（例） Ｘ＄＝ＩＮＰＵＴ＄（１００，＃１）…・ファイル番号１のファイルから１００バイト
読み出して文字変数Ｘ＄に代入する。
（２）ランダムアクセスファイル
ランダムアクセスレコードは固定長で定義され，同様に各フィールドも固定長で定義される。データが固定長で
あるため，フィールドを区切るカンマやレコード間のＣＲ／ＬＦが無い。数値データの場合はバイナリ形式で保存する
のでＡＳＣＩＩ形式で保存するシーケンシャルファイルよりも一般的にディスクスペースを節約できる。
以下にランダムアクセスファイルのデータの入出力手順について示す。
・各レコードのフィールドを定義
・ファイルをランダムアクセスモードでＯＰＥＮし，各レコードの長さを指定
・レコードに新しいデータを保存しファイルに格納。あるいはファイルから読み込み
（ａ）フィールドおよびレコードの定義
ＴＹＰＥ〜ＥＮＤ ＴＹＰＥ ステートメントを用いる。
（例） ’Definition
of Ｒｅｃｏｒｄ Ｔｙｐｅ
丁ＹＰＥ Ｒtｙｐｅ ．．．Ｒtｙｐｅは，構造体の名前
Ｎａｍｅ ＡＳ ＳＴＲＩＮＧ ３０ ．．．この場合Ｎａｍｅは文字型変数であるが，
Ａｇｅ ＡＳ ＩＮＴＥＧＥＲ その後ろに＄は付けない。
Ｓａｌａｒｙ ＡＳ ＳＩＮＧＬＥ
ＥＮＤ ＴＹＰＥ
’Declare
ＲｅｃｏｒｄＶａｒ as the variable with Ｒtｙｐｅ
ＤＩＭ ＲｅｃｏｒｄＶａｒ ＡＳ Ｒtｙｐｅ
．．．ＲｅｃｏｒｄＶａｒは，文字列と整数型と単精度実数型のデータから成るユーザー
定義型の複合データ型変数として定義される。これはレコードを格納するため
の変数。
（ｂ）ファイルのＯＰＥＮとレコード長の指定
ランダムアクセスレコードは固定長であるため，各レコードの長さをプログラム内で
指定しなければならない。
（例） ＴＹＰＥ〜ＥＮＤ ＴＹＰＥで定義したレコードに対するレコード長の指定
ＯＰＥＮ ”ＥＭＰＬＯＹＥＥ．ＤＡＴ” ＦＯＲ ＲＡＮＤＯＭ ＡＳ ＃１ ＬＥ＝ＬＥＮ（ＲｅｃｏｒｄＶａｒ）
ＲＡＮＤＯＭには，シーケンシャルファイルのような書き出しモードと読み込み
モードの区別がない。
（ｃ）レコードの格納
（例） ＩＮＰＵＴ ”Ｎａｍｅ” ；ＲｅｃｏｒｄＶａｒ．Ｎａｍｅ
ＩＮＰＵＴ ”Ａｇｅ” ；ＲｅｃｏｒｄＶａｒ．Ａｇｅ
ＩＮＰＵＴ ”Ｓａｌａｒｙ” ；ＲｅｃｏｒｄＶａｒ．Ｓａｌａｒｙ
ＰＵＴ ＃１，レコード番号，ＲｅｃｏｒｄＶａｒ
（読み込みの場合：ＧＥＴ ＃１，レコード番号，ＲｅｃｏｒｄＶａｒ）
（ｄ）ファイルのクローズ
（例） ＣＬＯＳＥ ＃１
目次へ戻る