中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

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

English/Chinese Fix Translation

作者:

标题: [求助]怎样用vbs代码实现查找和写出字符串？

上一主题 | 下一主题

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 16 楼』: 使用 LLM 解释/回答一下

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 ]

2007-12-16 14:44

查看资料发短消息网志

编辑帖子回复引用回复

lotus516
高级用户

论坛上抢劫的

积分 551
发帖 246
注册 2006-9-21
状态离线

『第 17 楼』: 使用 LLM 解释/回答一下

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个变量吧!!

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 misunderstood my meaning. I mean that the value of strFind is obtained from a certain text, not followed by a string. It can't be that I need to find 50 items and type 50 variables after strFind!!

2007-12-17 08:12

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 18 楼』: 使用 LLM 解释/回答一下

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

Originally posted by lotus516 at 2007-12-17 08:12:

zh159 misunderstood my meaning. I mean that the value of strFind is obtained from a certain text, not followed by a string of variables. It's impossible that I need to find 50 things and put 50 variables after strFind!!

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

2007-12-17 10:06

查看资料发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: