BASIC!の基礎

14：管理人：2013/10/25(金) 12:55:52: 今回はファイル入力のサンプルです。

【プログラム】

REM Start of BASIC! Program
Text.open r, file_num2, "samp.txt"
do
text.readln file_num2,msg$
if msg$="EOF" then
else
popup msg$,0,0,1
pause 4000
print msg$
endif
until msg$="EOF"
text.close file_num2
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=4604069398.png
http://www.fastpic.jp/images.php?file=1721744199.png

【説明】

２行目のtext.open文で読込(r)指定で指定したファイル
SAMP.TXTを開きます。file_num2には、ファイル番号が自動で
セットされます。

３ー１１行目の do-until文の間の処理をファイル内の行数分
繰り返します。

４行目のtext.readln文で指定されたファイル番号のファイルから
１行文分のみ読込します。

５行目からのif-then-else文では、ファイルの最後に到達すると
４行目の text.readln文の結果で特殊コード「EOF」が返されるので
そのときはなにも処理しないように条件を分けています。

12行目でファイルを閉じています。

2chMate 0.8.5.4/unknown/L01A/4.0.3

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板