Question

用正则表达式实现替换

是否可以将下面的代码“需要替换的内容”改成正则表达式识别？

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

Answer 1

'使用正则表达式中的替换功能
aryLines = System.Text.RegularExpressions.Regex.Replace(aryLines, "需要替换的内容的正则表达式", "替换后的内容")

追问

缺少system对象，帮我再研究研究，谢谢

追答

不懂VB6，只会VB.NET