中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-06 22:56

共 48,040 主题排行 / 350,125 发帖 / 今日 1 篇 / 48,252 会员排行

DOS批处理 & 脚本技术（批处理室） » [求助]怎样用vbs代码实现查找和写出字符串？

可打印版本　2,165 / 17

第16楼　zh159	发表于 2007-12-16 14:44
金牌会员　发帖 1,467　积分 3,687
Set fso = CreateObject("Scripting.FileSystemObject") source = "a.txt" strFind = "a,b,c,d,e,f" strFind = Split(strFind,",") Num = Ubound(strFind) Set f = fso.OpenTextFile(source,1) While not f.AtEndOfStream strRead = f.ReadLine For i = 0 to Num If instr(strRead,strFind(i))>0 Then msgbox strRead End If Next Wend f.Close 这里查找的字符区分大小写（执行的是二进制比较，具体查看instr用法） [ Last edited by zh159 on 2007-12-16 at 02:46 PM ]

第17楼　lotus516	发表于 2007-12-17 08:12
高级用户　发帖 246　积分 551
Originally posted by zh159 at 2007-12-16 14:44: Set fso = CreateObject("Scripting.FileSystemObject") source = "a.txt" strFind = "a,b,c,d,e,f" strFind = Split(strFind,",") Num = Ubound(strFind) ... zh159理解错我的意思了,我是说strFind的值从某一个文本中取得,不是后面跟一串,总不可能我要找50个,strFind后面打上50个变量吧!!

第18楼　zh159	发表于 2007-12-17 10:06
金牌会员　发帖 1,467　积分 3,687
Originally posted by lotus516 at 2007-12-17 08:12: zh159理解错我的意思了,我是说strFind的值从某一个文本中取得,不是后面跟一串,总不可能我要找50个,strFind后面打上50个变量吧!! Set fso = CreateObject("Scripting.FileSystemObject") source = "a.txt" target = "b.txt" Set f = fso.OpenTextFile(source,1) strFind = f.ReadAll f.Close Set f = fso.OpenTextFile(target,1) While not f.AtEndOfStream strRead = f.ReadLine If instr(1,strFind,strRead,1)=0 Then str = str & strRead & vbCrLf End If Wend f.Close msgbox str

上一页　 1 2

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023