[[20090502193533]]　『一度のＯＰＥＮで２回以上のＤｏ　Loopを繰り返す』（Ｍａｋｕ）　ページの最後に飛ぶ

『一度のＯＰＥＮで２回以上のＤｏ　Loopを繰り返す方法』（Ｍａｋｕ）

一度の「Open filename For Input As #1」～～～「Close #1」の間に、
「Do Until EOF(1)」～～～「Loop」を二回以上繰り返すことは可能でしょうか？
具体的には

 Open filename For Input As #1
 Do Until EOF(1)
 処理1
 loop
 Do Until EOF(1)
 処理2
 loop
 Close #1

って感じの事をしたいのですが・・・

 こんにちは。かみちゃん　です。

 > 二回以上繰り返す

 何をなさりたいのか、今ひとつわからないのですが、
 Do Until EOF(1)
   処理1
   処理2
 Loop
 という処理には、できないのでしょうか？

 (かみちゃん)
 2009-05-02 21:29

 衝突しましたが、そのままアップします。
 かみちゃん さんのでよければそれが一番ですが、

 Open filename For Input As #1
 Do Until EOF(1)
    処理1
 loop
 Close #1
 Open filename For Input As #1
 Do Until EOF(1)
    処理2
 loop
 Close #1

 としてもかまわないケースだとは思いますが、
 Open filename For Input As #1
 Do Until EOF(1)
    処理1
 loop
 Seek #1, 1
 Do Until EOF(1)
    処理2
 loop
 Close #1
 ということでしょうか。
 (Mook)

はい、おしゃる通りです。どうしてもできなかったので

 Open filename For Input As #1
 Do Until EOF(1)
    処理1
 loop
 Close #1
 Open filename For Input As #1
 Do Until EOF(1)
    処理2
 loop
 Close #1
 としていていまいちカッコわるかったのですが、おかげさまでできました。
かみちゃんさん、Mookさん、ありがとうございました。（Ｍａｋｕ）

コメント返信：

[ 一覧(最新更新順) ]

[[20090502193533]] 『一度のＯＰＥＮで２回以上のＤｏ Loopを繰り返す』（Ｍａｋｕ） ページの最後に飛ぶ

[[20090502193533]]　『一度のＯＰＥＮで２回以上のＤｏ　Loopを繰り返す』（Ｍａｋｕ）　ページの最後に飛ぶ