Board logo

标题: 用VBS的正则表达式搜某目录下的文件 [打印本页]

作者: joyn     时间: 2008-6-3 18:03    标题: 用VBS的正则表达式搜某目录下的文件

Function getfindfile()
        pat = InputBox ("输入路径.","中国DOS联盟")
        types = InputBox ("输入后缀名如:  txt  ","中国DOS联盟")
        If (pat="" Or types="") Then
                WScript.Quit
        End If
        Set fso = WScript.CreateObject ("scripting.filesystemobject")
        Set fold = fso.GetFolder (pat)
        Set fils = fold.Files
        For Each fi In fils
                filestr = filestr&Space (2)&fi&Space (2)
        Next
        getfindfile = RegExpTest ("[^*][\.]txt",filestr)
        End Function
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 & Chr (13) &Match.Value & Chr(13)
          Next
  RegExpTest = RetStr
End Function
        WScript.Echo getfindfile ()



如题所述~可搜指定目录下的 指定后缀文件
主要是想学习正则表达式的用法
帮肋文档(CHM文档)

[ Last edited by joyn on 2008-6-3 at 06:12 PM ]
作者: slore     时间: 2008-6-3 19:51
=。=
可以FSO直接获得后缀名的……
作者: sonicandy     时间: 2008-6-18 21:31
fso.getextensionname("路径")




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5