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

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

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - Автоматизировать большое количество однотипных действий в текстовом файле (http://forum.oszone.net/showthread.php?t=173439)

mityamitya

18-04-2010 09:46 1395303

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

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

DjinnKo

18-04-2010 10:35 1395322

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

madmasles

18-04-2010 10:47 1395334

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)

mityamitya

18-04-2010 17:44 1395663

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

Время: 18:02.