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

wjrone 2008-04-03 09:41:52
如题,我想编个小程序,提取TXT文档中的特定字段,比如说文档里的信息如下,
AAAAAABBBABABABABBA anab=70
AHJJASHDJKAHFAKKJFK SDSA=65
AHDJKSAHDJKSADKJSAH DSDD=6C
我现在只想提取最后面的数值,70,65,6C,并输入一个新的TXT文档里,不知道怎么实现,
我只知道用OPEN和INPUT代码等可以实现,但不知如何下手啊,请各位高手指教!!
...全文
91 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cbm6666 2008-04-04
'添加 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

回复
wjrone 2008-04-03
谢谢上面的大哥热心回答,但我是想先把一个文档打开然后读取里面的内容,
AAAAAABBBABABABABBA anab=70
AHJJASHDJKAHFAKKJFK SDSA=65
AHDJKSAHDJKSADKJSAH DSDD=6C
是文档里的内容,你的程序好像不是实现这个功能的啊,我要提取最后的数然后再放到别的文档里
回复
qiu5208 2008-04-03
等号后面的就是数据
回复
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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7492

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-03 09:41
社区公告
暂无公告