Как получить курс валют из Инета (макрос в 30 строк)

Описание

Текст примера

 import rslx,lgxs;
if(IsStandAlone()) 
	oIE=ActiveX("InternetExplorer.Application");
else 
	oIE=TlgActiveX("InternetExplorer.Application"); 
end;
oIE.Visible = False;
oIE.Silent = False;
oIE.Navigate("http://www.rbc.ru/");
// Ждем пока объект не освободится
While(oIE.Busy)
end;

oDoc = oIE.Document;
// Получаем текст страницы
strHTML = oDoc.Body.innerText;
// находим позицию курса по USD
pos = index(strHTML,"USD ЦБ РФ");
if(pos!=0)
	USD = SubStr(strHTML,pos+15,7);
	println(USD);
end;
// находим позицию курса по EUR
pos = index(strHTML,"EUR ЦБ РФ");
if(pos!=0)
	EUR = SubStr(strHTML,pos+15,7);
	println(EUR);
end;
oIE = null;
oDoc = null;