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

解決


サモエル  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

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

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


  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という方法

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

増えるたびに3>4>5などと変更するのも手間ですし

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


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

皆様無事解決しました。

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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加