自学自習自力文系プログラマーコミュのn88互換BASIC

こんにちは！もちゃといいます♪えっと、今N88互換BASICで、あるプログラムの「'--HEADER--」と「'--HEADER_END--」で挟まれている部分だけを読み込んで別に保存するというプログラムを作ろうとしているのですが、なかなかうまくいきません。途中でとまってしまったりするんですね～～。どなたかいいアイディアありませんか？？ちなみに今の進行状況はこんな感じです！

OPEN "C:\TEST.BAS" FOR INPUT AS #1
OPEN "C:\TEST2.BAS" FOR OUTPUT AS #2
WHILE NOT EOF(1)
LINE INPUT #1,A$
IF A$="'--HEADER--" THEN
WHILE A$<>"'--HEADER_END--"
LINE INPUT #1,A$
PRINT #2,A$
WEND
END IF
WEND
CLOSE #1
CLOSE #2
END

コメント(3)

最初
全て
最新の40件

[2] mixiユーザー 09月20日 07:27

大昔使ってましたがｎ８８ってこんなんでしたっけ？
とりあえず

OPEN "C:\TEST.BAS" FOR INPUT AS #1
OPEN "C:\TEST2.BAS" FOR OUTPUT AS #2
WHILE NOT EOF(1)
LINE INPUT #1,A$
PRINT #2,A$
WEND
CLOSE #1
CLOSE #2
END

で動くなら条件指定がおかしいです。
"'--HEADER--"
がインクリメントされてたりハイフンの種類や数、全角・半角など。

あと、木田さん同様LINE INPUTが疑わしいです。
自動でインクリメントされるなら２度目の呼び出しにより１行飛びになります。されないなら延々と１行目を読み続けます。
A$を自分でインクリメントしなければならないとか、そんなんじゃないですか？

[3] mixiユーザー 09月20日 08:10

N88互換BASICって、
http://www.vector.co.jp/soft/win95/prog/se055956.html
これのことですよね？
もしそうなら、そもそもブロックIF文が使えません。
メニューから、「表示→命令カウンタ表示」として
実行している行を常に表示させておきましょう。
END IFがある行で止まっていませんか？

いや、しかしそもそもN88互換BASICは、行番号が必須の筈。
となると、別の環境???

ログインすると、みんなのコメントがもっと見れるよ