如何读取TXT文件的数据，并将计算结果生成在一个TXT文件中？

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:49:26
有一个TXT文件里面，存放了一百个整数。我要对他们进行一系列的运算。
将结果存放在一个out.txt文件内。
这一百个数字原本是用空格隔开的。

我想问的是，如果让VB调用这些数字。是用input函数么？具体应该如何操作？比如把他们全都加起来，或者乘起来。得到一个结果，然后存放到out.txt文件夹里面。这个out.txt文件又如何生成？我曾经看到的方法是类似于open app path之类的。只记得这几个次了。不用标准对话框来做这个程序行么？
EOF有什么用？经常看到他的出现。

Private Sub Command1_Click()
Dim s As String
'写100个随机数据
On Error Resume Next
For i = 1 To 100
s = s & Int(Rnd * 100) & " "
Next
Open "c:\1.txt" For Output As #1
Print #1, s
Close #1
End Sub

Private Sub Command2_Click()
Dim s As Long
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, m1
m = m & m1
Loop
Close #1

'分离数据
k = Split(m, " ")
p = InputBox("输入操作符号（+,-）")

If p = "+" Then
For i = 0 To UBound(k)
s = s + k(i)
Next
s1 = "操作符号为+的结果：" & s
ElseIf p = "-" Then
For i = 0 To UBound(k)
s = s - Val(k(i))
Next
s1 = "操作符号为-的结果：" & s
End If