OriosのActiveBasic講座(1-5): ファイル操作

2.ファイルの読み込み

前回はファイルへの書き込みについてやりましたが、やっぱりファイルに書いたら今度は……ということで今回はファイルの読み込み方をします。

では早速下の……といきたいところですが、今回はプログラムを動かす前に少し準備していただきたいことがあります。 Lesson1-5-2.txtを右クリックしてダウンロードしていただき、下のプログラムを保存するところと同じフォルダに入れてください。 準備はできましたでしょうか？ それでは早速下のプログラムを実行してみてください。

'lesson1-5-2
#console
Dim file_str As String
Dim comma_pos As Integer
Dim prefecture As String
Dim population As Integer
Open "Lesson1-5-2.txt" For Input As #1
Print "場所", "人口(万人)"
Do
    Input #1, prefecture, population
    Print prefecture, population
Loop Until Eof(1) = -1
Close #1
Print "人口データを追加します。"
Print "入力し終えたら0,0と打ってください。"
Open "Lesson1-5-2.txt" For Append As #1
While -1
    Input "追加する場所名と人口をコンマで区切って入力 -->", prefecture, population
    If prefecture = "0" And population = 0 Then
        Exit While
    End If
    Print #1, prefecture;
    Print #1, ",";
    Print #1, population
WEnd
Close #1
Exec "Lesson1-5-2.txt"
End

実行すると次のようなウィンドウが表示されます。

この後、実際に -->Hokkai,568 のようにどんどん入力していき、最後に -->0,0 と入力すれば下のように"Lesson1-5-2.txt"が開かれてプログラムが終了します。 このとき"Lesson1-5-2.txt"には入力した内容が追加されています。

では、今回の説明に入ります。

Orios
ActiveBasic,Course
5,2,2

今回は「ファイルの読み込み」「ファイルへの追加書き込み」をやりましたがいかがでしたでしょうか？ 前回と今回の内容をマスターすると、ファイルの読み書きが大体できるようになってより実用的なプログラムが組めるようになります。 あなたが自作ソフトを公開する日も近いかも知れませんよ。

ではこのレッスンの内容がどれくらい定着したかを確かめる「やってみよう」です。