テキストファイルの読み込みと書き出し

質問

全行数の取得はできたのですが、

テキストファイルの中で、文字を検索して、その検索文字のある行番号を取得したいのですが、
どうやったらいいですか？

（accessからテキストファイルを開いて読みこんでいます）

回答No.1

nicotinism

その『行』というのが改行コードによるもので
自動的に右端で折り返された見た目の改行ではない場合です。

春よ来い
夏休み
小さい秋
春夏秋冬
冬が来る前に

という内容のテキストファイル（d:\songs.txt) があったとして
標準モジュールにて
Sub　testF()
　 Dim fSo As Object
　 Dim tTxt As Object
　 Dim i As Integer
　 Dim tStr As String, buf As String
　 Const ForReading As Integer = 1

　　Set fSo = CreateObject("Scripting.FileSystemObject")
　　Set tTxt = fSo.GetFile("d:\Songs.txt").OpenAsTextStream(ForReading, -2)

　　Do Until tTxt.atEndOfStream
　　　　i = i + 1
　　　　tStr = tTxt.readLine
　　　　If InStr(tStr, "春") > 0 Then
　　　　　　buf = buf & vbCrLf & i & "---" & tStr
　　　　End If
　　Loop

tTxt.Close: Set tTxt = Nothing
　　Set fSo = Nothing

　　buf = Mid(buf, 3)
　　DoCmd.RunCommand acCmdDebugWindow　　
　　Debug.Print buf
end Sub
で
1---春よ来い
4---春夏秋冬
がイミディエイトウィンドウに出力されます。
ということ？