| 投稿日 | ： 2006/10/02(Mon) 10:42 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: VB6でリッチテキストファイルを1行ずつ読み書きするには？ |
> >何を期待しているのかわかりませんが、私も一時探したことがありますが、
> 何を期待しているのか？と言われましても、ただその手法を知りたいだけです。
何のために、その手法を知りたいのでしょうか?
期待していることは、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さん自身が決める事なので、こちらからは何とも言えませんが、
内容は中学英語＋幾つかのコンピュータ用語という程度なので、解析や理解は、十分に
可能かと思います。
確かに文書量が多いので、時間的制約がある場合は難しいかも知れませんが、今回は
> もう少し待ってみます。
という事ですので、時間的には余裕があるのですよね? ならば、チャレンジしてみては
如何でしょう。諦めるのは、その後でも良いかと思いますよ。