文章摘要
该脚本用于从多个HTML文件中提取和替换内容。首先，通过运行`cmd`命令，遍历当前目录下的所有HTML文件，并将内容合并到`list.htm`文件中。接着，脚本读取`list.htm`文件中的每一行，对每个HTML文件进行内容替换，并将处理后的内容写回原文件。最后，脚本清理`list.htm`文件并释放资源。该脚本实现了自动化文件处理功能。
Set WshShell=CreateObject(“Wscript.Shell”)
WshShell.Run “cmd /c dir /s/b *.htm > list.htm”,vbHide
Wscript.Sleep 1000
sFile=”list.htm”
Set objFSO=CreateObject(“Scripting.FileSystemObject”)
Set oFile=objFSO.OpenTextFile(sFile,1)
Do While Not oFile.AtEndOfStream
strLine=oFile.ReadLine
If Len(strLine) > 0 Then
Set File=objFSO.OpenTextFile(strLine, 1)
aryLines=File.ReadAll
File.Close
aryLines=Replace(aryLines, “需要替换的内容”, “替换后的内容”)
Set File=objFSO.OpenTextFile(strLine, 2)
File.Write aryLines
File.Close
End If
Loop
oFile.Close
objFSO.DeleteFile sFile
Set objFSO=Nothing