求教vb高手vb如何打开文本文件，最好是可选择地址的，并在第二个Private Sub Command2_Click()

求教vb高手vb如何打开文本文件，最好是可选择地址的，并在第二个Private Sub Command2_Click()

◆ 这个本来是非常简单的。
◆ 但最主要的是：取决于你的那个txt文本文件中的数据的保存格式了（这个非常关键），只有有效的数据格式才能做出高效的代码来。如果要“可选择地址”（不太明白）就更应该有明确的数据格式了（即数据存在文本文件中的结构、也就是说所有的数字都是怎么保存在文本文件中的，如：有不定数的多行、每行有80个实数、每个实数之间用逗号分隔、每行的行首是一个不会重复的序号等等）。
◆ 一定要说清楚才能得到有效的帮助哦。追问273. 5615 ,50575. 215 ,5111. 594
5421. 235 ,5257. 232 ,117. 4712
275. 1327 ,51. 794
211. 3505 ,66. 781
144. 3541 ,123. 898
208. 5307 ,146. 298
263. 3342 ,0
这是数据格式，可选择就是这个数据文件的位置可以随便，如Shell "explorer d:\", 1 '。追答那好吧，下面是完整的代码，首先在form1上添加一个command1、一个command2和一个对话框控件CommonDialog1，然后复制一下代码过去即可（什么都不用改变、直接运行）：

Private StrData As String '在通用部分声明一个通用数据变量
Private Sub Command1_Click()
Dim Strling As String
StrData = ""
CommonDialog1.Filter = "文本数据库|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, Strling
If Strling <> "" Then StrData = StrData & Trim(Strling) & ","
Loop
Close
If Right(StrData, 1) = "," Then StrData = Left(StrData, Len(StrData) - 1)
MsgBox "数据库已经输入到内存中，可以进行下一步的处理啦！", vbOKOnly, "打开数据成功"
Exit Sub
End If
MsgBox "数据库打开失败！", vbOKOnly, "打开数据失败"
End Sub
Private Sub Command2_Click()
Dim a() As String, i As Long, Sum As Single, PJ As Single
Sum = 0: PJ = 0
If StrData <> "" Then
a() = Split(StrData, ",")
For i = 0 To UBound(a)
Sum = Sum + Val(a(i))
Next
MsgBox "总 和=" & Sum & " ， 平均值=" & Sum / (UBound(a) + 1), vbOKOnly, "总共" & (UBound(a) + 1) & "个数据"
Else
MsgBox "数据库还没有打开，无法处理！", vbOKOnly, "缺少数据"
End If
End Sub

Private Sub Command1_Click()
Open text1 For Input As #1
Do Until EOF(1)
Line Input #1, a
m = m & a & ","
Loop
Close
End Sub
Private Sub Command2_Click()
t = Split(m, ",")
For i = 0 To UBound(t) - 1
Sum = Sum + Val(t(i))
Next
MsgBox "平均值为：" & Sum / UBound(t)
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息