我采用了字节方式查找字串,为什么还是很慢呢?一下是部分代码:
Dim temp() As Byte
Dim CZ_zh As String
Dim CZ_Str As String
Dim CZ_zz As Double
Dim ass(15) As Integer
Dim cz_gv, cz_tol As Long
If Dir(CZ_text_F.Text) = "" Or CZ_text_D.Text = "" Then MsgBox "您输入的路径找不到程序!请检查后重试!", , "出错了": Exit Sub
Open CZ_text_F.Text For Binary As #1
Open CZ_text_D.Text For Output As #2
CZ_j.Max = FileLen(CZ_text_F.Text)
CZ_j.Value = 0
ReDim temp(1 To FileLen(CZ_text_F.Text))
Get #1, , temp
i = 0