テキストファイルより特定のデータのみを抽出したいのですが・・・の続き (ID:104914)

名前

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

本文 多分さんからいただいた↓ができませんでした。 ==================================================== openで書き出すファイルを開く openで読み込むファイルを開く 繰り返し始まり 読み込むファイルを一行読む ↑で読んだ文字列をLEFT関数を使用して。Frequenciesと比較 ↑Frequenciesなら書く出すファイルに書く 比較終了 繰り返し終了 読み込むファイルを閉じる 書き出すファイルを閉じる ==================================================== 現在までに書いたプログラムは矢印です。LEFT関数を使用して。Frequenciesと比較というのができないのですがどうしたらいいでしょうか？ ==================================================== Private Sub Command1_Click() Dim sData As String 'エラー発生に備えます。 On Error GoTo FileReadError '既存のファイルを開きます。 Open Text2.Text For Input As #1 'テキストボックスの内容を消去します。 Text1.Text = "" 'ファイルからデータを読み出します。 Do Until EOF(1) Line Input #1, sData If sData = "Frequencies" Then←この行の問題があると思われます！ sData = Left(sData, 72) & Chr(&HD) & Chr(&HA) Text1.Text = Text1.Text & sData Else sData = "" Text1.Text = Text1.Text & sData End If Loop 'ファイルを閉じます。 Close #1 'イベントを終了します。 Exit Sub 'エラー処理を行います。 FileReadError: MsgBox "ファイルの読み出しエラーです" End Sub ==================================================== sDataがFrequenciesで始まるというのはどのように記述すればいいのでしょうか？