[リストへもどる]
一括表示

投稿時間:2004/07/01(Thu) 18:37
投稿者名:リュウ
Eメール:murakami@temairazu.com
URL :
タイトル:
ファイルの読み取りについて
作ったプログラムを載せます
Dim 変数宣言
グラフィックスメソッドを使って表を作成しました
変数=split(読み込み変数,",")
Open ファイル For Input As #1
        Do Until EOF(Filenum)
           Line Input #1, 読み込み変数   'データの読み込み
      Line Input #1, 読み込み変数2
      Line Input #1, 読み込み変数3
      call 変数(x座標,y座標,split(読み込み変数)) 'データの表示
        loop
close #1
たとえば、ファイルにデータが2行あるとします、
プログラムを実行すると「ファイルにこれ以上のデータがありません」
というエラーが発生します。
とうしたらエラー処理ができますか?教えてください
よろしくお願いします

投稿時間:2004/07/01(Thu) 19:01
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: ファイルの読み取りについて
>         Do Until EOF(Filenum)
>            Line Input #1, 読み込み変数   'データの読み込み
>       Line Input #1, 読み込み変数2
>       Line Input #1, 読み込み変数3
>       call 変数(x座標,y座標,split(読み込み変数)) 'データの表示
>         loop

多分、下記にすれば大丈夫のはずです。(データに問題がなければ)
         Do Until EOF(Filenum)
            Line Input #1, 読み込み変数   'データの読み込み
      call 変数(x座標,y座標,split(読み込み変数)) 'データの表示
         loop

投稿時間:2004/07/01(Thu) 19:58
投稿者名:リュウ
Eメール:murakami@temairazu.com
URL :
タイトル:
回答ありがとうございます
またお願いします