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

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

Новый участник

Сообщения: 9
Благодарности: 0

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

Отправлено: 19:05, 18-04-2010

amel27

Googler

Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать

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

Отправлено: 04:34, 19-04-2010 | #2