Jeans & Development コンピューターのことなどを綴ったメモ (旧：目から鱗 w/SQLite)

あるディレクトリにあるすべてのファイルの内容を、正規表現で検索するVBScript。

option explicit
dim fs,regex
set fs = WScript.CreateObject("Scripting.FileSystemObject")
set regex= new RegExp
regex.IgnoreCase=true
regex.Global=true
regex.Pattern=InputBox("regular expression pattern?")
if regex.Pattern="" then WScript.Quit()

WScript.Echo seek(".")

function seek(dir)
    dim f,temp,ext
    seek=""
    Set f = fs.getFolder(dir)
    For Each temp In f.SubFolders
        if left(temp.Name,1)<>"." then seek = seek & seek(dir & "\" & temp.Name)
    Next
    For Each temp In f.Files
        ext=right(temp.Name,4)
        seek = seek & find(dir & "\" & temp.Name)
    Next
end function

function find(file)
    dim f,temp
    find=""
    set f = fs.OpenTextFile(file)
    temp = f.ReadAll()
    if regex.test(temp) then find= file & vbCrLf
end function