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