Выделение текста через StringRegExp

$sText = FileRead (@ScriptDir & '\t1.txt')
ConsoleWrite($sText & @CRLF)
;MsgBox(0,"Title",$sText &@CRLF)
;MsgBox(0,"Это тест", $sText &@CRLF)

$sText1 = StringReplace($sText, '
', ' ')
$sText2 = StringReplace($sText1, 'Это тест', ' ')
MsgBox(0, "Это тест", $sText2)

$text =	'<vsvod>Это тест</vsvod>' & @CRLF & _
		'
' & @CRLF & _
		'
' & @CRLF & _
		'
' & @CRLF & _
		'
' & @CRLF & _
		'
' & @CRLF & _
		'<!-- "'' --><span class="pbbRrB4o"><a href="http://www.ucoz.ru/">Бесплатный хостинг</a> <a title="Бесплатный хостинг" href="http://www.ucoz.ru/">uCoz</a></span><div id="utbr8214" rel="s62"></div>' & @CRLF & _
		'<!-- 0.00208 (s62) -->'
$Reg = StringRegExp($text, '<vsvod>(.*?)</vsvod>', 3)
MsgBox(0, '', $Reg[0])

#include <INet.au3>
#include <Encoding.au3>
;~ MsgBox(64,"",_INetGetSource('http://askonkurs.ucoz.ru'))

$text = _INetGetSource('http://askonkurs.ucoz.ru')

$text = _Encoding_CyrillicTo1251($text)

$Reg = StringRegExp($text, '<vsvod>(.*?)<\vsvod>', 3)
MsgBox(0, '', $Reg[0])

#include <INet.au3>
#include <Encoding.au3>
;~ MsgBox(64,"",_INetGetSource('http://askonkurs.ucoz.ru'))

$text = _INetGetSource('http://askonkurs.ucoz.ru')

$text = _Encoding_CyrillicTo1251($text)

$Reg = StringRegExp($text, '<vsvod>(.*?)<', 3)
MsgBox(0, '', $Reg[0])

#include <Array.au3>

$s_Sourse = InetRead('http://askonkurs.ucoz.ru', 17)
If @error Then Exit 1
$s_Sourse = BinaryToString($s_Sourse, 4)
If StringInStr($s_Sourse, '<\vsvod>') Then
	$sPattern = '<vsvod>(.*?)<\\vsvod>'
ElseIf StringInStr($s_Sourse, '</vsvod>') Then
	$sPattern = '<vsvod>(.*?)</vsvod>'
Else
	ConsoleWrite('No tag <vsvod>' & @LF)
	Exit 1
EndIf
$aVsvod = StringRegExp($s_Sourse, $sPattern, 3)
If @error Then Exit 1
_ArrayDisplay($aVsvod)