はじめまして
Visual Basic 6を使用して、リッチテキストファイルを1行ずつ読込んで処理をしたいのですが、
どうしたらできるのかわかりません。
読み込み時の文字属性は、そのままで取り込みたいのです。
リッチテキストファイルを一行読込んで、フォーム上のリッチテキストボックスに表示させて、
また次の一行を読込んだらリッチテキストボックスの次の行に表示をさせるという繰り返し処理
です。
もし可能でしたら、教えてください。よろしくお願いします。

http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200609/06090065.txt

ハンドルが一緒で、質問内容もほぼ同じですけど、同じ方ですか？
もし同一人物であるなら、あちらには回答ついてますけど、何ゆえ掲示板を移動したのでしょうか
？

> http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200609/06090065.txt
>
> ハンドルが一緒で、質問内容もほぼ同じですけど、同じ方ですか？
> もし同一人物であるなら、あちらには回答ついてますけど、何ゆえ掲示板を移動したのでしょ
うか
> ？
はい、同一人物です。我龍院忠太さんの回答を頂いて、マイクロソフトのサイトを紹介してもらっ
たのですが、全て英語表示で全然分からない為暫く他の人の回答を待っていました。でも、他に回答
が無かった為、断念してパソコンをシャットダウンしました。日が経つうちに質問をしていたことを
忘れてしまって、つい解決済みにせず放置してしまいました。今、解決済みとメッセージをして、終
わらせました。
もし、この質問について何かお分かりでしたら、よろしくお願いします。

> もし、この質問について何かお分かりでしたら、よろしくお願いします。
何を期待しているのかわかりませんが、私も一時探したことがありますが、
日本語のものは見つけられませんでした。で、くじけましたけど。

リンク先の
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnrtfspec/html/rtfspec.asp
を解読するしかないでしょう。ヤフーやグーグルで翻訳サービスがあるから、
原文と両方をにらみながら解読してください。

ごまかしですが、RichTextBoxを２つ用意しておき１つを見えないようにして、全部読み込んで
おいて、もう１つを表示用にして１行ずつ処理するとか？

>何を期待しているのかわかりませんが、私も一時探したことがありますが、
何を期待しているのか？と言われましても、ただその手法を知りたいだけです。

すみませんが、これって断念するしかないのでしょうか？
英文を和訳しても、多分理解できないかもしれません。
もう少し待ってみます。

> >何を期待しているのかわかりませんが、私も一時探したことがありますが、
> 何を期待しているのか？と言われましても、ただその手法を知りたいだけです。

何のために、その手法を知りたいのでしょうか?

期待していることは、RTFのデータ解析? 技術的好奇心? 速度向上目的?
それがわからないので、求める答えになっているかどうかはわかりませんが、
とりあえずデータの部分的な切り出しだけならば、SelRTF プロパティを使う事ができます。


Private Sub Command1_Click()
    ' ==== テスト用データ ====>
    RichTextBox1.Text = "AB"
        
    SetRichTextBoxPosition 0, 1
    RichTextBox1.SelColor = vbRed

    SetRichTextBoxPosition 1, 1
    RichTextBox1.SelBold = True
    ' <==== テスト用データ ====

    'テキスト全体をコピー
    Text3.Text = RichTextBox1.TextRTF
    RichTextBox4.TextRTF = Text3.Text
    
    '最初の一文字だけをコピー
    SetRichTextBoxPosition 0, 1
    Text2.Text = RichTextBox1.SelRTF
    RichTextBox2.TextRTF = Text2.Text
    
    '二文字目だけをコピー
    SetRichTextBoxPosition 1, 1
    Text3.Text = RichTextBox1.SelRTF
    RichTextBox3.TextRTF = Text3.Text
End Sub

Private Sub SetRichTextBoxPosition(ByVal Start As Integer, ByVal Length As Integer)
    RichTextBox1.SelStart = Start
    RichTextBox1.SelLength = Length
End Sub


> すみませんが、これって断念するしかないのでしょうか？
断念するかどうかは、BeBenさん自身が決める事なので、こちらからは何とも言えませんが、
内容は中学英語＋幾つかのコンピュータ用語という程度なので、解析や理解は、十分に
可能かと思います。

確かに文書量が多いので、時間的制約がある場合は難しいかも知れませんが、今回は
> もう少し待ってみます。
という事ですので、時間的には余裕があるのですよね? ならば、チャレンジしてみては
如何でしょう。諦めるのは、その後でも良いかと思いますよ。

> 何のために、その手法を知りたいのでしょうか?
>
> 期待していることは、RTFのデータ解析? 技術的好奇心? 速度向上目的?
> それがわからないので、求める答えになっているかどうかはわかりませんが、
説明不足で申し訳ございません。
目的は、仕事の資料整理、及び教育資料に役立てたい為です。
リッチテキストファイルの一行を読込んで、必要な内容の文章があれば、
リッチテキストボックスの文字に色、サイズ、太さなどを変えたりして、
表示をさせたいのです。そして、その内容によって選別して、いくつかの
リッチテキストファイルに振り分けて書き込みます。
このような、プログラムなのです。
プログラムも最近始めたばかりの初心者なので、分からないところばかりですが、
何とかして、作成したいと思っています。
何らかのヒント等頂ければ、助かります。
よろしくお願いします。

> リッチテキストファイルの一行を読込んで、必要な内容の文章があれば、
> リッチテキストボックスの文字に色、サイズ、太さなどを変えたりして、
> 表示をさせたいのです。そして、その内容によって選別して、いくつかの
> リッチテキストファイルに振り分けて書き込みます。
> このような、プログラムなのです。
> プログラムも最近始めたばかりの初心者なので、分からないところばかりですが、
> 何とかして、作成したいと思っています。
> 何らかのヒント等頂ければ、助かります。
> よろしくお願いします。

私の
>ごまかしですが、RichTextBoxを２つ用意しておき１つを見えないようにして、全部読み込んで
>おいて、もう１つを表示用にして１行ずつ処理するとか？
とか、
魔界の仮面弁士さんのサンプルソースは十分ヒントと思いますけど・・・
私のは案だけですけど、魔界の仮面弁士さんのはRichTextBoxを複数使うサンプルですよ。
> 表示をさせたいのです。そして、その内容によって選別して、いくつかの
> リッチテキストファイルに振り分けて書き込みます。
に対しても有効な手段ですが。。。

ありがとうございました。
もう少し、勉強をしないとだめみたいです。
即席に、出来るほど、甘くはないですね。
色々とお世話になりました。
レベルアップ後、再度現れるかもしれませんが、
その際よろしくお願いします。
では