vbs

使用vbs批量替换文件内容其中使用到了正则表达式进行搜索 123456789101112131415161718192021222324252627282930313233343536Const ForReading = 1Const ForWriting = 2Set objFSO = CreateObject("Scripting.FileSystemObject")Set folder = objFSO.GetFolder("E:\test\vbtest\testdir")i = 0for each file in folder.Filesif lcase(objFSO.getExtensionName(file.path))="xml" theni=i+1Set objFile = objFSO.OpenTextFile(file.path, ForReading)strOriginal = "<a>[^<]*</a>"strReplacement = "&l ...