| 投稿日 | ： 2003/04/10(Thu) 22:58 |
| 投稿者 | ： mitu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: RichTextBox使用のファイル比較 |
ご指摘、ありがとうございます。
文字列に色を指定する部分は、セル毎に違う部分だけ色を変えているので、
違う部分が多い場合に遅くなってしまうだけでした。
やはり、比較処理をする段階の読み込み時で、相当時間が掛かっていました。
ファイルの読み込みは、早いですが、同時に比較となりますと、
RichTextBoxは、編集可能なので、常にRichTextBoxのテキストで比較を考えています。
花ちゃんさんのご指摘のSplit関数や、API関数は、まだ試してはいませんが、
FileSystemObject関連で、相当早くなりました。
比較に関しましては、If文なので、それほどの速度向上は望めないかと思っています。
ただ、MsFlexGridで行う方法も考えています。
MsFlexGridの方が、見た目綺麗な気がしますが、
行数、列数の指定が限られてしまいますし、
ファイル比較には、
RichTextBoxとMsFlexGridのどっちが適しているのでしょう？
そこで、MsFlexGridでお尋ねしたいのですが、
セルの色を変えるのに、
With grdData
For i = 0 To 9999
For j = 0 To 34
.Row = i
.Col = j
.CellBackColor = vbRed
Next j
Next i
End With
のような、一つ一つ変える他に方法はあるでしょうか？
また、各セルのテキストを全て取得するのにも
With grdData
For i = 0 To 9999
For j = 0 To 34
myStr(i,j) = .TextMatrix(i,j)
Next j
Next i
End With
以外に方法はありますか？
宜しくお願いします。