新手求救!!请教各位高手怎么用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代码等可以实现,但不知如何下手啊,请各位高手指教!!
...全文
151 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
等号后面的就是数据
用户 昵称 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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧