Войти

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


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

amel27
19-04-2010, 04:34
найти все участки текста, которые начинаются со слова <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




© OSzone.net 2001-2012