7492
社区成员
新手求救！！请教各位高手怎么用VB读取TXT文档中的特定字段啊？？
如题，我想编个小程序，提取TXT文档中的特定字段，比如说文档里的信息如下，
AAAAAABBBABABABABBA anab=70
AHJJASHDJKAHFAKKJFK SDSA=65
AHDJKSAHDJKSADKJSAH DSDD=6C
我现在只想提取最后面的数值，70，65，6C，并输入一个新的TXT文档里，不知道怎么实现，
我只知道用OPEN和INPUT代码等可以实现，但不知如何下手啊，请各位高手指教！！
AAAAAABBBABABABABBA anab=70
AHJJASHDJKAHFAKKJFK SDSA=65
AHDJKSAHDJKSADKJSAH DSDD=6C
我现在只想提取最后面的数值，70，65，6C，并输入一个新的TXT文档里，不知道怎么实现，
我只知道用OPEN和INPUT代码等可以实现，但不知如何下手啊，请各位高手指教！！
...全文
当前发帖距今超过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
'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
是文档里的内容，你的程序好像不是实现这个功能的啊，我要提取最后的数然后再放到别的文档里
AAAAAABBBABABABABBA anab=70
AHJJASHDJKAHFAKKJFK SDSA=65
AHDJKSAHDJKSADKJSAH DSDD=6C
是文档里的内容，你的程序好像不是实现这个功能的啊，我要提取最后的数然后再放到别的文档里
qiu5208 2008-04-03
等号后面的就是数据
智能卡_Snooper 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 SubVB如何只读取字符串中的数字部分?? 中的一个，取出连续的数值部分问题不明确啊 比如： dim s as string dim v as long s="123abc456efg" 如果你只要123，那么有现成的函数： v=val(s) 如果你要123456,如老鸟所言，逐个字符...
WEB开发文档2 总结 http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到下一页显示...
VB+ADO+Access如何修改数据 我把用adodc1绑定了表Case，并在窗体中用几个Text跟表Case中的对应字段相绑定，我现在想直接通过修改Text(i).text来修改数据库表Case中的记录，问该如何修改，大侠们可否提供一下建议，并帮忙看看我的问题出在哪儿 ...
vb/vb.net原创文章精粹（4） [url=http://www.vbbaike.com/show.asp?id=101410]各位帮忙 找一个w70n5msg.dll 文件[/url] ...id=101409]ＶＢ中如何使用insert语句，插入一条纪录[/url] [url=http://www.vbbaike.com/show...
vb/vb.net开发精粹(4) 各位帮忙 找一个w70n5msg.dll 文件 ＶＢ中如何使用insert语句，插入一条纪录 分布式组件状态问题 在VB6.0中 使用SQLDMO.SQLServer 显示数据库名称出错啦, 请大家指点...在VB控制水晶报表中，用不固定的数据源，运行
vb/vb.net开发精粹(16) listview能来竖排 数据库查询 只有几句代码，帮我看看那里错了， ...在VB中,STR()函数与STR$()函数有什么区别 VB6如何才能加载Player.swf文件播放网络FLV视频 求VBA高手优化for循环代码 请问如何用时间数组控件在
vb/vb.net开发精粹(21) vb用copymemory 读取内存数据问题 vb中 Len(Str(15))应该等于多少？ 请问该语句是什么意思？？？ 求一断开外网连接的思路 谁有VB调用 7-ZIP 动态连接库实现解压缩的代码？ 发个试题测试系统(适合新手,纯自制...
vb/vb.net开发精粹(10) vb中如何用api快速读取大于1G的txt数据啊 dll类中声明public变量在该dll添加的窗体中如何调用 VB6 类模块，再引用另一个类模块的问题 MsgBox a$, ,b$,c$为什么调试不通？ 请教AUTOCAD+vba问题——区域复制/镜像 ...
vb/vb.net开发精粹(19) 如何消除多余十字光标？ vb6.0 Mschar 获取X轴（注脚）的值、改变图例位置（默认右边） ...请教关于图片保存的问题。谢谢！ 寻一个Activex,就是IE得到MAC的控件,希望是VB代码. 给Combo1控件赋值
vb/vb.net原创文章精粹（5） id=101470]VB 制作安装程序时，如何让安装时提示的 界面都是中文？[/url] [url=http://www.vbbaike.com/show.asp?id=101469]帮忙看看程序----提示“多步OLE DB产生错误,请检查每个OLE DB状态值,没有工作被完成”...
vb/vb.net开发精粹(5) VB 制作安装程序时，如何让安装时提示的 界面都是中文？ 帮忙看看程序----提示“多步OLE DB产生错误,请检查每个OLE DB状态值,没有工作被完成” 谁能帮我看看这段VBS代码 有谁研究过MDIActiveX这个把封装DLL生成...
vb/vb.net开发精粹(17) vc 中的回调函数在VB里如何申明及调用，谢谢 再来一问。。VB多线程问题！ VB6的webbrower控件，无法给textarea元素赋值，请高手看看 用vb如何打开ftp软件上传？ win7下的cdo.message组件不能用 VB 如何比较两个...
vb/vb.net开发精粹(23) 编VB程序结合有道网页翻译找生词的尝试 请教字符串数据提取思路 ...请教高手指点迷津，如何读取一定格式的文本文件向Excel写入数据？ 如何让程序跳过启动时的一个对话框 VC代码转VB 如何更新col
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
CSDN回帖得分大全（近两年） 一段在服务中创建进程的源代码，没看明白思路，恳请各位给指点迷津~~ [VC/MFC 基础类] √ 怎样将1位的图片旋转90度后以另一个文件名保存 [VC/MFC 图形处理/算法] √ 高分求助：ado访问db...
数据库帖子收集 这样的数据列表在存储过程中应该怎么样选择得到？ 请问造成SQL2000服务不能启动的原因有哪些？ sql server中有無類似于if 的函數,即像這樣select if(cancel=1,'cancel','') from sales 这样怎么返回呀！！！！...
基础 各位兄弟，在SDK编程中如果实现窗口分割呢？请问怎么得到一个函数的执行时间，单位毫秒！如何调试asp组件呀。用vc++调试编制的组件怎样画一个箭头？高分请教如何限制程序运行的方法？求助：通过编程DirectX抓屏-----...
MS-SQL Server 基础类 - SQL语句 请教SQL语句或其它方法：一个含TEXT字段的表，我无意间用了两次BCP重复导入数据，之后表中有... 请问怎样编写SQL语句:在成绩列输入数据,然后对其进行排序,并把结果存入排名列. sqlserver中如何选取查询结果的中间某...
