[DjinnKo]

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

[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)

[mityamitya]

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