vb 6.0中怎么样让text读取text文件后一行一行计算

来源：百度知道 编辑：UC知道 时间：2024/05/27 14:05:36
例如在电脑里有个文件里面内容是
p=a+b
p=a-b
p=a+b+c
p=a-b-c
然后在vb 里有两个text1.text各text2.text
还有一个Command1和Command2
我想让文件中的东东按Command1时读入text1.text
按Command2时运算结果在text2.text中输出（要一行一行的算，因为文件中可能有N条，）
并保存在电脑的一个text文件中
我明天还挣点分来，希望有好的答案，在这先谢谢了

Dim Bds$(), Jg$()

Private Sub Command1_Click()
Dim i&
ReDim Bds$(10000)
Open "表达式文件地址" For Input As #1
Do While Not EOF(1)
Line Input #1, Bds(i)
i = i + 1
Loop
Close #1
If i > 1 Then
ReDim Preserve Bds(i - 1)
ReDim Jg(i - 1)
Text1 = Join(Bds, vbCrLf)
End If
End Sub

Private Sub Command2_Click()
Dim i&
For i = 0 To UBound(Bds)
Bds(i) = Replace(Bds(i), "a", Text3) '替换变量a,为text3文本框的内容
Bds(i) = Replace(Bds(i), "b", Text4) '替换变量b,为text4文本框的内容
'如果你有更多变量,都如此替换, 或是如我所说,使用数组,使用用for next来替换
Jg(i) = WZcalc(Bds(i))
Next
Text2 = Join(Jg, vbCrLf)
End Sub

Function WZcalc(Tmpstr$) As Double
Dim sc
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
WZcalc = sc.Eval(Tmpstr)
Set sc = Nothing
End Function