Печать

[_Lexa98_ [?]]

Есть файл:

Код: [Выделить]

<vsvod>Это тест</vsvod>
<br>
<br>
<br>
<br>
<br>
<!-- "' --><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>
<!-- 0.00208 (s62) -->
Нужно вывести "Это тест" в MsgBox.
У меня не получается
Как это сделать?

[Medic84 [?]]

Уточню - это весь файл? Или кусок HTML из страницы? Если второе, то нужно больше текста.

[_Lexa98_ [?]]

Medic84
Я это получил через _InetGetSourse, и это все что было

[focus [?]]

В t1 - Ваш текст

Код: AutoIt [Выделить]

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

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

[_Lexa98_ [?]]

focus
Это не то! Читайте первый пост


Добавлено: Февраль 16, 2012, 12:09:31А если так?

Код: [Выделить]

<vsvod>Это тест</vsvod>
<br>
<br>
<br>
<br>
<br>
<!-- "' --><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>
<!-- 0.00208 (s62) -->

[Zaramot [?]]

Код: AutoIt [Выделить]

$text = '<vsvod>Это тест</vsvod>' & @CRLF & _
        '<br>' & @CRLF & _
        '<br>' & @CRLF & _
        '<br>' & @CRLF & _
        '<br>' & @CRLF & _
        '<br>' & @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])

[_Lexa98_ [?]]

Zaramot
В msgbox пишет 3

[Kaster [?]]

тема создана не в том разделе. автору устное предупреждение

[_Lexa98_ [?]]

Kaster  [?]

тема создана не в том разделе. автору устное предупреждение

Она должна быть в регулярных выражениях? Я прав?

Zaramot
Вот весь код:

Код: AutoIt [Выделить]

#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])

Пишет ошибку:

Код: [Выделить]

==> Subscript used with non-Array variable.:
MsgBox(0, '', $Reg[0])
MsgBox(0, '', $Reg^ ERROR
>Exit code: 1    Time: 1.357

[Zaramot [?]]

Вот:

Код: AutoIt [Выделить]

#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])

[_Lexa98_ [?]]

Zaramot
Спасибо

[Kaster [?]]

_Lexa98_  [?]

Она должна быть в регулярных выражениях? Я прав?

да

[madmasles [?]]

_Lexa98_,
У Вас в HTML коде ошибка, должно быть ...</vsvod>..., а не ...<\vsvod>..., как сейчас, и Encoding.au3 здесь не нужна, как и INet.au3

Код: AutoIt [Выделить]

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

[_Lexa98_ [?]]

madmasles
Спасибо, но у меня уже все получилось