执行效率咋这么大反差呢?
编了个小程序修改数据文件(源码如下),但执行Command1_Click()时效率好低,速度好慢,还希望朋友们多多指教!
谢谢!
Private Sub Command1_Click()
Dim strTemp As String, strModify As String
strModify = ""
Open App.Path & "\SZLISHI.DATA" For Input As #1
Do While Not EOF(1)
Line Input #1, strTemp
strModify = strModify & strTemp & vbCrLf
If Trim(strTemp) = "COMPDAT" Then
Line Input #1, strTemp
Arrtemp = Split(Trim(strTemp), " ")
If Arrtemp(0) = Trim(Combo1.Text) Then
strTemp = ""
Arrtemp(3) = Combo2.Text: Arrtemp(4) = Combo3.Text
For i = LBound(Arrtemp) To UBound(Arrtemp)
strTemp = strTemp & Arrtemp(i) & Space(1)
Next i
strTemp = strTemp & vbCrLf
End If
strModify = strModify & strTemp & vbCrLf
End If
Loop
Close #1
Open App.Path & "\SZLISHI.DATA" For Output As #1
Print #1, strModify
Close #1
End Sub
Private Sub Form_Load()
Dim strTemp As String
Open App.Path & "\SZLISHI.DATA" For Input As #1
Combo3.AddItem 0
Do
If EOF(1) Then Exit Do
Line Input #1, strTemp
If Trim(strTemp) = "COMPDAT" Then
Line Input #1, strTemp
Arrtemp = Split(Trim(strTemp), " ")
Combo1.AddItem Arrtemp(0)
Combo3.ListIndex = 0
If Val(Arrtemp(4)) > Val(Combo3.Text) Then
Combo3.RemoveItem 0
Combo3.AddItem Arrtemp(4)
End If
End If
Loop
Close #1
maxtemp = Val(Combo3.Text)
Combo3.RemoveItem 0
For i = 1 To maxtemp
Combo2.AddItem Str(i)
Combo3.AddItem Str(i)
Next i
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = maxtemp - 1
End Sub