中国DOS联盟

有一文本内容

123

adb

322

31a

121

hfh

我想找到 包含 "3" 的行
用批处理这样做

@echo off

find "3" test.txt

pause

用 VBS 怎么做? 一个一个读吗?

用VBS的正则表达式，搜索一下。

VBSCRIPT.chm 上面的一个例子:

Function RegExpTest(patrn, strng)

   Dim regEx, Match, Matches   ' 建立变量。

   Set regEx = New RegExp   ' 建立正则表达式。

   regEx.Pattern = patrn   ' 设置模式。

   regEx.IgnoreCase = True   ' 设置是否区分字符大小写。

   regEx.Global = True   ' 设置全局可用性。

   Set Matches = regEx.Execute(strng)   ' 执行搜索。

   For Each Match in Matches   ' 遍历匹配集合。

      RetStr = RetStr & "Match found at position "

      RetStr = RetStr & Match.FirstIndex & ". Match Value is '"

      RetStr = RetStr & Match.Value & "'." & vbCRLF

   Next

   RegExpTest = RetStr

End Function

MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

上面那个是什么意思,是从哪里搜索比对的,可以从文本里搜索吗

set fso=createobject("scripting.filesystemobject")

set file=fso.opentextfile("test.txt")

    s=split(file.readall,vbcrlf):mys=filter(s,"3")

file.close

msgbox join(mys,vbcrlf)

[ Last edited by jmz573515 on 2007-7-6 at 06:10 PM ]

我来个比较通俗一点的

option explicit '严格语法

dim found,fso,file,str

set fso=createobject("scripting.filesystemobject") '创建文件系统对象

set file=fso.opentextfile("test.txt")                    '打开文件,并得到文件对象

found = "" '初始化缓冲区

while not file.atendofstream '只要文件没有结束就循环

    str = file.readline '读取一行内容

    if instr(str,"3")>0 then '判断是否包含3

        found = found & str & vbcrlf '如果包含就加入到缓冲区

    end if

wend 

file.close '关闭文件

msgbox found '显示结果

set fso = nothing'释放对象

set file = nothing '(不知道这句该加么？)

[ Last edited by sonicandy on 2007-7-6 at 10:49 PM ]

set fso=createobject("scripting.filesystemobject")
set op=fso.opentextfile("test.txt")
i_num=0
do while op.atendofstream=false
line=op.readline
if instr(1,line,"3")<>0 then
ret=ret&line&chr(10)
end if
loop
msgbox (ret)

instr函数算是吧??