Автоматизировать большое количество однотипных действий в текстовом файле

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Автоматизировать большое количество однотипных действий в текстовом файле

Доброго времени суток.
Такая вот проблема. Я с помощью программы Internet Content Logger сохранил в текстовый лог файл все, что мой интернет браузер пропускал через себя. А теперь полученный результат надо обработать. То есть мне надо поочередно найти все участки текста, которые начинаются со слова <form action= и заканчивается словом </form> и все их скопировать в другой текстовый файл. Можно было бы в ручную, но это надо сделать 2000 раз !!!
Мне бы эту функцию реализовать с помощью VBScript. Сам в VBScript не разбираюсь.

Цитата:

Цитата 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