VB里如何提取文本文件指定数字

Question

格式应该是大概这样的：
a= 1223463
b= 226656
c= 65656565
....
之类的，怎样只提取里面的数字信息呢
求解啊

Answer 1

　　这个比较简单。以=号为标志进行分割，取后面的数字即可。下面提供一段示例：

　　新建一个窗体，添加一个文本框控件Text1，将Text1的MultiLine属性设置为True。然后将以下代码粘贴到代码区即可。但文件目录要更换成你的文本文件所在的目录和文件名。

Option Explicit
'请将Text1的MultiLine属性设置为True
Private Sub Form_Load()
Dim TLine As String
Dim I As Long
Text1.Text = ""
Open "d:\文本文档.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, TLine '读一行文本文件里的数据
    I = InStr(1, TLine, "=") '找=号位置
    TLine = Trim(Mid(TLine, I + 1)) '取等号后面的字符，并将前面空格去掉
    Text1.Text = Text1.Text & TLine & vbCrLf
Loop
Close #1

End Sub

　　

Answer 2

额。。。用split函数，以“=”作为分割符