用vb 读取txt文档中的数据。

来源：百度知道 编辑：UC知道 时间：2024/06/15 08:26:39
例如txt中有

电流：5a 电压：10v

把5和10读入进来 并赋值给变量。
才学习vb 所以麻烦大侠把程序代码发上来。。谢谢。

'你那样存 不规范，如果你确定你文本中就那几个字可以按下面读取出来：

Private Sub Command1_Click()
On Error GoTo ers

Dim Tmpstr As String, MyArr() As String
Dim DianLiu As Integer, DianYa As Integer

Open "C:\123.txt" For Input As #1
Line Input #1, Tmpstr
Close #1

MyArr = Split(Tmpstr, "：")

DianLiu = Val(MyArr(1))
DianYa = Val(MyArr(2))

Exit Sub
ers:
MsgBox err.Description, vbCritical
End Sub

按照冒号找数吧
我一般处理html这么处理

1

可以先把这一行读入一个变量，对这个变量查找“电压”两个字，查到后，把变量分为两段，赋予两个变量，使用VAL函数可得到要找的两个数字。