ループを抜けるコードは2？ (ID:122237)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以前、ここで、お世話になりましたサモエルです。 http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200506/05060002.txt Cnt = 0 Do Until EOF(1) Line Input #1, S If Left(S, 3) = "SET" Then i = InStr(S, "=") + 1 S2 = S2 & Mid(S, i) If Cnt = 3 Then Exit Do End If Loop 上のようなコードを組んでいますが、 すぐにSET行が3行見つかればよいのですが、 何万行もあるときに最後の3行がSETから始まる形式だと、 時間がかかります。 なにかいい方法はないものでしょうか？ 宜しくお願い致します。 データはこのような形式でSET行があれば、3行連続してあります。 SET=AAAAA SET=BBBBB SET=CCCCC