RichTextFileで指定した文字のみを表示するには？

解決

Z 2006-11-07 01:40:44 No: 133998

RichTextBox1.Loadfile(TextBox1.text,RichTextBoxStreamType.RichText)
でファイルを読み込むのはわかったのですが、読み込む際に指定した文字列を取得するのもできたのですが(Find関数)、指定した行を一行のみ取得するにはどうしたらよいのでしょうか？

我龍院 2006-11-07 06:07:03 No: 133999

テキストがあまり大きくなかったら、
Dim s() As String
s = RichTextBox1.Text.Split(CChar(Chr(10) + Chr(13)))
で一挙に行を取得する。
大きかったら、InStrで地道に行を取得する。

Z 2006-11-08 18:17:17 No: 134000

返答の書き込みが遅れてすいません。
試してみたいのですが、参考にしたいので何か具体的な例をあげていただけないでしょうか？
申し訳ありません。お願いします。

我龍院 2006-11-08 22:23:37 No: 134001

>s = RichTextBox1.Text.Split(CChar(Chr(10) + Chr(13)))
改行マークのChr(13) + Chr(10)も逆だし、何かとても変でした。(^^;
改行マークのChr(10)をデリミタとして、配列に仕込んで、
取り出すときに残ったChr(13)を消しておく。

Dim strText() As String
strText = RichTextBox1.Text.Split(Chr(10))
Debug.WriteLine(strText(100 - 1).Replace(Chr(13), "")) '100行目取得

Z 2006-11-09 00:07:34 No: 134002

具体例ありがとうございます。参考にさせていただきます。

Z 2006-11-13 18:02:44 No: 134003

試してみたら出来ました。我龍院さんありがとうございました。