Цитата mityamitya:
найти все участки текста, которые начинаются со слова <form action= и заканчивается словом </form> и все их скопировать в другой текстовый файл »
|
Код:
FileSRC = "C:\TEST\in.txt"
FileDST = "C:\TEST\out.txt"
Set objREx = CreateObject("VBScript.RegExp")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTXT = objFSO.OpenTextFile(FileSRC, 1)
Set objOUT = objFSO.OpenTextFile(FileDST, 2, vbTrue)
objREx.Pattern = "<form action=(.*?)</form>"
objREx.IgnoreCase = True
objREx.Global = True
strTXT = objTXT.ReadAll
Set colMatches = objREx.Execute(strTXT)
For Each objMatch in colMatches
objOUT.WriteLine objMatch.SubMatches(0)
Next