ループを抜けるコードは？

解決

サモエル 2005-06-01 19:54:11 No: 122118

下のような形でファイルを読み込んで、
必要なものだけをS2に格納しています。
この記述だとファイルを全て読みにいくので、
これを見つけ終わったら、ループを
抜けるコードを書きたいのですが、どのようにしたらよいでしょうか？

SETから始まる行は3行しかありません。

宜しくお願いします。

   Do Until EOF(1)
      Line Input #1, S
      If Left(S, 3) = "SET" Then
         i = InStr(S, "=") + 1
         S2 = S2 & Mid(S, i)
      End If
   Loop

いな 2005-06-01 19:57:40 No: 122119

Do Until EOF(1)
      Line Input #1, S
      If Left(S, 3) = "SET" Then
         i = InStr(S, "=") + 1
         S2 = S2 & Mid(S, i)
         Exit Do '☆ これを追加
      End If
   Loop

サモエル 2005-06-01 20:32:53 No: 122120

いなさん回答ありがとうございます。

>Exit Do '☆ これを追加
これだと、1行見つかった時点で、S2に格納されてしまいます。
残り2行を見つけて、抜け出したいのですが・・・

宜しくお願い致します。

いな 2005-06-01 20:47:49 No: 122121

必ず３行だけしかないという前提であれば・・・。

カウンタなどを設け
これに何回目か？を判断すればよいのでは？

龍 2005-06-01 20:52:28 No: 122122

どうなファイル形式でしょうか？
例えば：
SET=AAAAA
SET=BBBBB
SET=CCCCC
・・・
または
SET=AAAAA
BBBBB
CCCCC
異なるファイルだならば、書き方も違うと思います。

葉月α 2005-06-01 21:18:16 No: 122123

SETが今後増える予定が無いなら
IFの中でSETの数を数えて
3になったらExit Doという方法

今後増える予定があるならば馬鹿でかいファイルでなければ
最後まで読ませてもいい気もしますが？

増えるたびに３＞４＞５などと変更するのも手間ですし

龍さんの仰るようにファイルの形式にもよりますし
今後の仕様的展開にもよりますね

サモエル 2005-06-01 21:40:47 No: 122124

皆様無事解決しました。

ありがとうございました。

＞カウンタなどを設け
＞これに何回目か？を判断すればよいのでは？
この方式にしました。