| 投稿日 | ： 2003/04/10(Thu) 09:56 |
| 投稿者 | ： mitu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: RichTextBox使用のファイル比較 |
説明不足ですみません。
myTextにテキスト文字列が入っています。
For i = 0 To maxRow - 1
'リターンコード検索
rtLen = InStr(1, myText, vbCrLf)
'1行取得
onetxt = Mid$(myText, 1, rtLen + 1)
'各セルの値を取得
Call Get_CellStr(onetxt, Dno())
--- 比較 ---
'残りの文字列
myText = Mid$(myText, rtLen + 2)
Next i
Private Sub Get_CellStr(str As String, Dno() As String)
Dim strLen As Long
Dim strCnt As Long
Dim vi As String
Dim p As Long
vi = str
strCnt = 1
Do
'","調査
strLen = InStr(1, vi, ",")
If strLen = 0 Then Exit Do
strCnt = strCnt + 1
vi = Mid$(vi, strLen + 1)
Loop While (1)
ReDim Dno(strcnt - 1)
vi = str
p = 1
Do
'","調査
strLen = InStr(1, vi, ",")
If strLen <> 0 Then
'番号格納
Dno(p - 1) = Left$(vi, strLen - 1)
vi = Mid$(vi, strLen + 1)
p = p + 1
End If
If p = strCnt Then
Dno(p - 1 ) = vi
Exit Do
End If
Loop While(1)
End Sub
長くなってしまいましたが、このような感じで、
それぞれのテキストから
１行取得して、各セルの値を取得して、比較する。
というのを行数分行っています。
遅くなる気は、しているのですが、
他に早くなる方法が思いつきませんでした。
最後まで、行ってないので、正確な時間はわかりませんが、
５分以上は掛かります。
色につきましては、魔界の仮面弁士さんよりご指摘頂いた
RTFについて調べます。
よろしくお願いします。