Что нового

[Данные, строки] Разобрать API на данные

worldmen

Новичок
Сообщения
14
Репутация
1
нашел только один пример, который разбирает API скрипт типа
Код:
<?xml version='1.0' encoding='UTF-8'?>
<eveapi version="2">
  <currentTime>2008-11-24 20:14:29</currentTime>
  <result>
    <serverOpen>True</serverOpen>
    <onlinePlayers>38102</onlinePlayers>
  </result>
  <cachedUntil>2008-11-24 20:17:29</cachedUntil>
</eveapi>
http://wiki.eve-id.net/APIv2_Server_ServerStatus_XML
Только я так и не понял как это делается.

Как получить значение serverOpen?
PS: По поиску ничего не нашел из-за того, что слово "API" не больше 3 символов
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
worldmen,
А что нужно? Получить xml version, encoding и eveapi version? Или нет.
Если я правильно понял задачу :smile:
Код:
#include <INet.au3>
#include <Array.au3>

Dim $aSearch[5][2] = [[4],['currentTime'],['serverOpen'],['onlinePlayers'],['cachedUntil']]
$sUrl = 'http://api.eve-online.com/server/ServerStatus.xml.aspx'
$sMessage = ''
$sSource = _INetGetSource($sUrl)

For $i = 1 To $aSearch[0][0]
	$aSearch[$i][1] = StringRegExpReplace($sSource, '(?s).*?' & $aSearch[$i][0] & '>(.*?)</?.*', '\1')
	$sMessage &= $aSearch[$i][0] & ': ' & $aSearch[$i][1] & @LF
Next
MsgBox(0, 'Info', $sMessage)
_ArrayDisplay($aSearch)
 
Верх