请问：如何用VB实现读取TXT文件指定列数据？
如图：
并将得到这6个数值得出一个平均值，与一给定值（92.3）比较看是否在一个上下限之间（±0.4）？
请在关键地方注释一下，本人初学VB。
txt文件路径在哪里指定？
第1个回答 2013-05-17
全部读取，用正则捕获
\d*\.\d*
正则捕获VB怎么能用？是不是还要用转成CSV格式？
追答字串都可以用
第2个回答 推荐于2016-10-19
Private Sub Command1_Click()
Dim FileName As String, Fn As Integer, i As Long, S As String
Dim Begin As Boolean, Pos As Long, a As Single, Js As Single
Dim Bz As Single, Wc As Single
FileName = "2Ksens.txt" '文本文件
Bz = 92.3 '标准值
Wc = 0.4 '误差
If Dir(FileName) = "" Then Exit Sub
Js = 0
a = 0
Fn = FreeFile
Open FileName For Input As #Fn
Do While Not EOF(Fn)
Line Input #Fn, S
If Begin = True Then
S = RTrim(S)
S = Mid(S, Pos)
If S <> "" Then
a = a + Val(S)
Js = Js + 1
End If
End If
If InStr(S, "NaN") Then
Pos = InStr(S, "NaN")
Begin = True
End If
Loop
Close #Fn
a = a / Js
a = a - Bz
If a >= -Wc And a <= Wc Then
MsgBox "平均值与一给定值（92.3）比较,在一个上下限之间（±0.4）！", vbInformation, "提示"
Else
MsgBox "平均值与一给定值（92.3）比较,不在一个上下限之间（±0.4）！", vbCritical, "警告"
End If
End Sub追问
Dim FileName As String, Fn As Integer, i As Long, S As String
Dim Begin As Boolean, Pos As Long, a As Single, Js As Single
Dim Bz As Single, Wc As Single
FileName = "2Ksens.txt" '文本文件
Bz = 92.3 '标准值
Wc = 0.4 '误差
If Dir(FileName) = "" Then Exit Sub
Js = 0
a = 0
Fn = FreeFile
Open FileName For Input As #Fn
Do While Not EOF(Fn)
Line Input #Fn, S
If Begin = True Then
S = RTrim(S)
S = Mid(S, Pos)
If S <> "" Then
a = a + Val(S)
Js = Js + 1
End If
End If
If InStr(S, "NaN") Then
Pos = InStr(S, "NaN")
Begin = True
End If
Loop
Close #Fn
a = a / Js
a = a - Bz
If a >= -Wc And a <= Wc Then
MsgBox "平均值与一给定值（92.3）比较,在一个上下限之间（±0.4）！", vbInformation, "提示"
Else
MsgBox "平均值与一给定值（92.3）比较,不在一个上下限之间（±0.4）！", vbCritical, "警告"
End If
End Sub追问
运行后 没出现Msgbox？是将FileName = "2Ksens.txt"换成路径名对吧？
追答没出现Msgbox,可能是文件名称不对，请修改FileName为正确的文件名即可。
追问运行成功，有几处语句不明白：Begin = True 这个条件是指什么？
S = Mid(S, Pos) 这句是指找到那6个数吗？为什么不用avg函数？
第3个回答 2013-05-19
这就是正则表示啊
相似回答