VBでのテキストファイルの 読み込み & 書き出し について

いえいえどういたしまして。 みなさんのご意見を参考にして、私なりに考えてみました。 同じセクションの行頭に特定の文字を挿入しました。 [Section1]デ－タ1デ－タ1デ－タ1デ－タ1デ－タ1 [Section1]デ－タ1デ－タ1デ－タ1 [Section1]デ－タ1デ－タ1 [Section2]デ－タ2デ－タ2デ－タ2デ－タ2 [Section2]デ－タ2デ－タ2 [Section3]デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3 [Section3]デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3 [Section3]デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3デ－タ3 で、例えば[Section2]の文字列だけを抜き出してテキストボックスに表示 するコードを下のようにしてみました。 Dim aa, readdata, bb As String Open App.Path & "\" & "test.txt" For Input As #1 Do Until EOF(1) Line Input #1, aa bb = Left(aa, 6) If bb = "[Section2]" Then readdata = readdata & aa & vbCrLf End If Loop Close #1 Text1.Text = readdata こんな感じでどうでしょうか? 多分もっと効率のいいコードがあるかも知れませんが、へっぽこの私には これが限界です。

セクションの区切りを入れておいて読み込むという考え方は理解できるのですが、 どうすればいいのかが分かりません。 例えば、 [section 1] データ1データ1データ1データ1データ1データ1 データ1データ1データ1データ1データ1データ1 データ1データ1データ1データ1データ1データ1 データ1データ1データ1データ1データ1データ1 [section 2] データ2データ2データ2データ2データ2データ2 データ2データ2データ2データ2データ2データ2 データ2データ2データ2データ2データ2データ2 というテキストファイルがあったとして、[section 1]の部分の読み込みは Open App.Path & "\test.txt" For Input As #1 Do Until data = "[section 2]" Line Input #1, data alldata = alldata & data & vbCrlf Loop Close #1 aaa = Replace(alldata, "[section 2]", "") bbb = Replace(aaa, "[section 1]", "") text1.text = bbb 　　　　（初心者なので変なコードですが・・・） というふうに、次にくるセクションの頭までを指定して読み込めば良いと思う のですが、[section 2]の部分だけを読み込みたい時のコードが全く分かりません。 上記のやり方では、先頭のセクションだけを読み込むことは可能ですが、 以降のセクションだけを抜き出すのはできません。 ここが今ひとつ理解できないところです。 初心者なもので、へっぽこですみません。 どうか教えてください!!! お願いいたします。

回答いただき、ありがとうございます。 現在、ninja972さんに質問させていただいた内容で悩んでいます。 ご助言を!!!!!!!