#include <array.au3>
$sText=BinaryToString(InetRead('http://l2.overworld.su/index/statistics/fortress/1/',1))
;~ ConsoleWrite($sText&@CRLF)
$a1=StringRegExp($sText,'(?s)<td class="right"><strong>(.*?)</strong>
',3)
$a2=StringRegExp($sText,'(?s)Владелец: <b>(.*?)</b>',3)
$a3=StringRegExp($sText,'(?s)Владеет с: (.*?)
',3)
$a4=StringRegExp($sText,'(?s)Последняя осада: (.*?)</tr>',3)
;~ _ArrayDisplay($a1)
;~ _ArrayDisplay($a2)
;~ _ArrayDisplay($a3)
;~ _ArrayDisplay($a4)
GUICreate('test',700,200)
$Edit=GUICtrlCreateEdit('',5,5,690,190)
For $i=0 To UBound($a1)-1
GUICtrlSetData($Edit,$a1[$i]&' | '&$a2[$i]&' | '&$a3[$i]&' | '&$a4[$i]&@CRLF,1)
Next
GUISetState()
Sleep(5000)