前々回の続きになりますが、
ち
地デジコールセンタ
0570-07-01
このようにTEL.DATに入れることができました。
INPUTに#1というふうにファイル番号をつけることで、ファイルを読み込むことができます。
OPEN"TEL.DAT"FORINPUT#1
INPUT#1,D$(1)
INPUT#1,D$(2)
INPUT#1,D$(3)
このように3つのデータがそれぞれD$の配列変数に入ります。
100 LINEINPUT"検索する文字:";S$
110 OPEN"TEL.DAT"FOR INPUT AS #1
120 INPUT#1,D$(1)
130 INPUT#1,D$(2)
140 INPUT#1,D$(3)
150 IF D$(1)=S$ GOTO 170
160 GOTO 120
170 CLOSE #1
180 PRINT D$(1)
190 PRINT D$(2)
200 PRINT D$(3)
少し組んでみますと、検索する文字が見つかるまで検索をします。
見つかった場合はファイルを閉じて表示します。
検索した文字列が見つからない場合はエラーになります。
このエラーはファイルの読み込みの終わりがないエラーです。
このような仕組みを作ることで、すぐに電話番号を調べることができます。
こんなことも★
このプログラムはMSXで実行可能なプログラムですが、
99BASIC、N88BASICなど他のBASICと互換性があります。
ただ、N88互換BASICなどでは試すことはできますが、
ファイルを保存できないのでエラーになります。
MSXはスペースを詰める書き方ができるところがあり、
私のプログラムにはそういう書式で実行できないところがあります。
また、MSXのROMBASICではそのままでは実行できませんが、
CALLMEMINI
を実行後に
OPEN”MEM:TEL.DAT”と書き換えることで試すことができます。
風評被害については
東北の地図、旅行といった雑誌が全て返本されている書店も多いです。
特に福島については福島第一原発という名からか多いです。
どちらの地域とも今は旅行にいけるような状態ではありませんが、
地域の観光は地域の発展に重要なことです。
事態が好転するまで待って考えてみるのもよいのではないでしょうか?
このような書店が増えることはあまりよいことではないと思います。