Question

VB如何读取TXT文件的数据，然后将数据运算结果再输出到该文件中

该txt文件中有几行数据，每行有3个数据，将这三个数据相加，得到的结果依次输出到这三个数据的后面，请问怎么用VB语言实现？如果是WORD文件呢？

若以下回答无法解决问题，邀请你更新回答

Answer 1

用悔弯VB很容易实现，前提要知道你TXT里每行的数据祥悉格式是怎么样的？就是说每行中三个谨前乎数据之间是怎样分隔的？

追问

直接用空格分隔的，但是有几个空格不清楚，因为数据大小也不清楚

追答

Private Sub Command1_Click()
Dim ss() As String, s As String
Dim tt() As String, t As String
Dim sum As Long
Dim myfile As String
Dim i As Integer, j As Integer

myfile = "d:\1.txt" ‘要读取的文件
Open myfile For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ss = Split(s, vbCrLf)

Open myfile For Output As #1
For i = 0 To UBound(ss)
tt = Split(ss(i), " ")
t = ""
For j = 0 To UBound(tt)
If tt(j) "" Then
t = t & tt(j) & "+"
sum = sum + Val(tt(j))
End If
Next j
t = Left(t, Len(t) - 1) & "=" & sum
Print #1, t
Next i
Close
End Sub

追问

谢谢大大，成功了，程序我慢慢研究，再次感谢