新手求救！！请教各位高手怎么用VB读取TXT文档中的特定字段啊？？

[wjrone]

如题，我想编个小程序，提取TXT文档中的特定字段，比如说文档里的信息如下，
AAAAAABBBABABABABBA anab=70
AHJJASHDJKAHFAKKJFK SDSA=65
AHDJKSAHDJKSADKJSAH DSDD=6C
我现在只想提取最后面的数值，70，65，6C，并输入一个新的TXT文档里，不知道怎么实现，
我只知道用OPEN和INPUT代码等可以实现，但不知如何下手啊，请各位高手指教！！

[用户 昵称]

Option Explicit

Private Function getvalue(ByVal s As String) As String
    Dim i As Long
    i = InStr(1, s, "=")
    getvalue = Trim(Mid(s, i + 1))
End Function

Private Sub Command1_Click()
    Debug.Print getvalue("AAAAAABBBABABABABBA   anab=70 ")
End Sub

[qiu5208]

等号后面的就是数据

[wjrone]

谢谢上面的大哥热心回答，但我是想先把一个文档打开然后读取里面的内容，
AAAAAABBBABABABABBA anab=70
AHJJASHDJKAHFAKKJFK SDSA=65
AHDJKSAHDJKSADKJSAH DSDD=6C
是文档里的内容，你的程序好像不是实现这个功能的啊，我要提取最后的数然后再放到别的文档里

[cbm6666]

'添加 Command1
'c:\test.txt就是你上面那三排的内容, 抓出70 65 6c 拷到 c:\test2.txt 里面

Dim aa$, s
Private Sub Command1_Click()
Open "c:\test.txt" For Input As #1
Open "c:\test2.txt" For Output As #2
While Not EOF(1)
Line Input #1, aa
If InStr(aa, "=") > 0 Then
s = Split(aa, "=")
Print #2, Trim(s(1))
End If
Wend
Close #1
Close #2
End Sub