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

解決

---

多分さんからいただいた↓ができませんでした。
====================================================
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で始まるというのはどのように記述すればいいのでしょうか？

編集 削除

---

"Frequencies"から，ですから，先頭の11文字が"Frequencies"と等しい，という条件になります。

If Left$(sData, Len("Frequencies")) = "Frequencies" Then
ですかね。

そうそう，Chr(&HD) & Chr(&DA)はvbCrLfとかvbNewLineを使う方がよいかと。

編集 削除

---

ありがとうございます！Frequenciesから始まる行の読み込み成功しました！！

編集 削除

---

目的のものを作ることができました！ありがとうございました(^-^)

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。