VB读取TXT文件中的指定列并计算
000000000000001159.0000159.00002.0000000
000000000000001159.0000159.00001.0000000
000000000000001159.0000159.00005.0000000
这是和TXT文件，行数不固定，如何用VB读出第四列 159.000乘第五列2.00，并把每一行这个乘积相加，比如159*2+159*1+159*5,急啊，那位大侠能帮我写一下
[解决办法]
Public Function 判断文件是否存在(ByVal file As String) As Boolean
1 On Error Resume Next
2 If (GetAttr(file) And vbDirectory) = False Then 判断文件是否存在 = True
3 If Err Then 判断文件是否存在 = False: Err.Clear
End Function
Function 读取文本文件3(ByVal fileName As String) As String
Dim handle As Integer
' 判断文件存在性
If Not 判断文件是否存在(fileName) Then Exit Function
' 以binary模式打开文件
handle = FreeFile
Open fileName$ For Binary As #handle
' 读取内容，关闭文件
读取文本文件3 = Space$(LOF(handle))
Get #handle, , 读取文本文件3
Close #handle
End Function
Private Sub Command1_Click()
Dim zongshu As Long, tmpstr As String, tmpstrsplit, strsplit
tmpstr = 读取文本文件3("y:\xt.txt")
tmpstrsplit = Split(tmpstr, vbCrLf)
For i = 0 To UBound(tmpstrsplit)
strsplit = Split(tmpstrsplit(i), " ")
If UBound(strsplit) > 4 Then
zongshu = zongshu + Val(strsplit(3)) * Val(strsplit(4))
End If
Next
MsgBox zongshu
End Sub
