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

[mityamitya]

Доброго времени суток.

Такая вот проблема. Я с помощью программы Internet Content Logger сохранил в текстовый лог файл все, что мой интернет браузер пропускал через себя. А теперь полученный результат надо обработать. Тобишь мне надо поочередно найти все участоки текста, которые начинаются со слова

[DjinnKo]

Регулярные выражения, копай в их сторону

[mityamitya]

Спасибо большое за ответы. Но я малость ошыбся. Не в ту ветку форума задал вопрос. Смотрю " Автоматизация действий " думаю: мне сюда. А что такое AutoIt даже не знал. А теперь разобрался. Ну что ж, прошу прощения.

Я вопрос задам в теме "Скриптовые языки администрирования Windows". Хотя если будет время, я поставлю AutoIt и посмотрю как оно работает. А вообще я определился с тем, чте мне эту функцию надо реализовать с помощью VBScript.

[madmasles]

mityamitya,

Если только одно вхождение в каждой строке, то попробуйте так:

Код: Выделить всё

#include <file.au3>
#include <Array.au3>
Dim $aRecords
Dim $aRecordsNew[1]
_FileReadToArray("1.txt", $aRecords)
$pattern = '(?s).*?<form action=(.*?)</form>?.*'
For $i = 1 To UBound($aRecords) - 1
    If StringInStr($aRecords[$i], "<form action=") <> 0 And StringInStr($aRecords[$i], "</form>") <> 0 Then
        $sFiltr = StringRegExpReplace($aRecords[$i], $pattern, "\1")
        _ArrayAdd($aRecordsNew, $sFiltr)
        $aRecordsNew[0] += 1
    EndIf
Next
_ArrayDisplay($aRecordsNew)
_FileWriteFromArray("2.txt", $aRecordsNew, 1)