|
おはようございます
ichinose さん、ご指摘ありがとうございます
自分の思慮不足を痛感いたしました
EOFがTrueとなるのは[EOF]を読み込んだ時ですので
TXTファイルの最後の1行の形式が
パターン1
AxBBxCxDx[改行]
AyBByCyDy[改行]
[EOF]
パターン2
AxBBxCxDx[改行]
AyBByCyDy[EOF]
のどちらになっているかで処理を変えないといけませんでした
パターン1の場合
Get #1, , RData
Do While Not EOF(1)
[処理]
Get #1, , RData
Loop
これなら1行しかなくても処理されます
しかし、パターン2の形式だとご指摘のように最後の1行が処理されなくなります
パターン2の場合
Do While Not EOF(1)
Get #1, , RData
[処理]
Loop
のようにする必要があります
この場合、パターン1のデータだと
最後に空データで1回処理されてしまいます
私はパターン1のケースだと思い込んでいました
申し訳ありませんでした
質問(初心者A氏)さん
TXTファイルの形式によって処理の変更をお願いいたします
|
|