Что нового

Чтение текста со страницы

Medic84

Омега
Команда форума
Администратор
Сообщения
1 575
Репутация
335
Код:
#include <Array.au3>

$sString = BinaryToString(InetRead("http://boxybot.net/rus_down.html"))
$aArray = StringRegExp($sString, '(?s)<h2><strong><a href=.+ target=.+>(.+?)</a><font.*', 3)

If IsArray($aArray) Then MsgBox(0,"Вывод",$aArray[0])
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1 575
Репутация
335
Ну уж до MsgBox можно было додумать =) :whistle:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
_Lexa98_,
Или так.
Код:
$s_URL = 'http://boxybot.net/rus_down.html'
$s_Sourse = InetRead($s_URL, 17)
If @error Then
	MsgBox(16, 'Error', 'InetRead')
	Exit
EndIf
$s_Sourse = BinaryToString($s_Sourse)
$sSearch = StringRegExpReplace($s_Sourse, '(?si).*<strong><a href.*?>(.*?)</a><font.*', '$1')
If @extended = 1 Then
	MsgBox(64, 'Info', $sSearch)
Else
	MsgBox(16, 'Error', 'StringRegExpReplace')
EndIf
 
Автор
_Lexa98_

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
Спасибо :smile:
 
Верх