vbs 鏂囦欢鎿嶄綔闆嗗悎浠ｇ爜

rename.vbs

'鍏抽敭瀛楅厤缃�鏂囦欢鍦板潃 
Const config = "E:cleandatakey.txt"

'瑕佹��鏌ョ殑鏂囦欢澶?
Const dir = "D:Loghtml"

'鏃ュ織淇濆瓨璺�寰� 
Const LogDir = "E:cleandataLog"

'鍏ㄥ眬瀵硅薄 
set fso=createobject("scripting.filesystemobject")  

Dim keywordList(10000)

Rem : =========== 鍚�鍔ㄤ富绋嬪�?
Dim starttime , Endtime

starttime = Now 
Call main()
endtime = Now 

Set fso = Nothing 

msgbox  "鎭�鍠滐紒鎿嶄綔宸插畬鎴愩�傛椂闂翠粠锛? & starttime & " 鍒?" & endtime   ,4096,"鏂囦欢閲嶅懡鍚?

Rem :  =========== 涓荤▼搴?
Sub main()
    wscript.echo "寮�濮嬨�傘�傘�? & Now 
    Call GetKeyWord()
    Call getFiles(dir)
End Sub 

Rem :  ===========  璇诲彇閰嶇疆鏂囦欢
Sub GetKeyWord()
    set sdir = createobject("scripting.dictionary")  
    set file = fso.opentextfile(config)  
    do while file.atendofstream<>true  
        m=m+1  
        sdir.add m,file.readline  
        Dim word
        word = sdir(m)
'        wscript.echo word 
        If Len(Trim(word) )>0 Then 
            KeywordList(m)= word
        End If 
    Loop 
    file.close  
    Set file = Nothing 
End Sub 

Rem :  =========== 鑾峰彇鏂囦欢鍒楄〃 
Sub getFiles(path)
    Set folder = fso.GetFolder(path)
    Set subfolder = folder.subfolders
    Set file = folder.files
    For Each s_file In file
        'wscript.echo s_file.path
        checkWord s_file.path
    Next 

    For Each s_subfolder In subfolder
        getFiles(s_subfolder.path)    '閫掑綊璋冪敤 
    Next 
End Sub 

Rem :  ===========  姣旇緝閰嶇疆鏂囦欢锛屽垽鏂�鏄�鍚﹀寘鍚�鍏抽敭瀛� 
Sub checkWord(path)
    'wscript.echo path
    Dim content , file 
    Set file = fso.opentextfile(path, 1, false) 
    content = file.readall
    file.close
    Set file = Nothing 
    For i=0 To UBound(keywordList)
        word = keywordList(i)
        If InStr(content, word )>0 And Len(word)>0 Then 
            wscript.echo path & " 宸插尮閰嶅埌锛? & word
'            Set file = Nothing 
            RenameSubPage path
            Exit For 
        End If 
    Next 
End Sub 

Rem : =========== 灏嗘枃浠堕噸鍛藉悕
Sub RenameSubPage(path)
    If fso.fileexists(path) =True Then 
        Dim target , ext
        ext = ".bak"
        target = path & ext
        ' ===== 鏂规硶涓� 
        fso.movefile path , target

        ' ===== 鏂规硶浜?
        'Set f = fso.getfile( path)
        'f.name = f.name & ext 
        'f.close 
        'Set f = Nothing 

        WriteLog target
    End If 
End Sub 

Rem :  ===========  澶勭悊鏃ュ織
Sub WriteLog(strmsg)
    Dim logtxt
    logtxt = LogDir & "dellog-" & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & ".txt"
    
    Dim f 
    If fso.fileexists(logtxt) Then 
        Set f = fso.opentextfile(logtxt, 8 )
    Else
        Set f = fso.opentextfile(logtxt, 2, true)
    End If 

    f.writeline strmsg 
    f.close 
    Set f = Nothing 
    
    ' 锛濓紳锛濓紳锛?鏂规硶2 
'    Set objShell = CreateObject("Wscript.Shell") 
'    cmd = "%comspec% /k echo " & strmsg & " >> " &  logtxt & "  && exit"
'    objShell.Run(cmd) ,vbhide
    ' 鎸傝捣鍏佽�革紝闃叉�㈠湪浠诲姟绠＄悊鍣ㄩ噷浜х敓杩囧�氱�?cmd.exe 杩涚▼ 锛屽�傛灉鏈夊�氫釜杩涚▼锛岃�风�?taskkill /f /im cmd.exe   鍏抽棴
'    Set objShell = Nothing 

    Wscript.Sleep 5    
End Sub

 rem 璇诲彇閰嶇疆鏂囦欢
 Dim config 
 config = "conf.txt"
 set fso=createobject("scripting.filesystemobject")  
 set a=createobject("scripting.dictionary")  
 set file=fso.opentextfile(config)  
 do while file.atendofstream<>true  
  m=m+1  
  a.add m,file.readline  
 src =  a(m)
 RenameSubPage src
loop  
file.close  
Set fso =Nothing 
msgbox  "鎿嶄綔宸插畬鎴? ,4096,"鏂囦欢閲嶅懡鍚?

Sub RenameSubPage(strURL)
 Dim path
 For i=19 To 100
  path = Replace(strURL , ".html", "_"& i & ".html")
  If fso.fileexists(path) =True Then 
   target = path & ".tmp"
   fso.movefile path , target
  Else 
   ' do nothing 
  End If 
 Next 
End Sub