Сервисы поддержки / Примеры / Разное / Получение курса валют за некоторую дату

Получение курса валют за некоторую дату

Автор:Izmajlov
Дата:04.03.2004
Просмотров:3136
Скачиваний:673
Оценка: - , Оценок - 0

Скачать (zip-файл; Размер - 593)

Обсудить в форуме

Описание

Предыдущий пример брал курсы с текущей страницы, не учитывая смену дат. Данный пример берет курс с другой станицы, за дату определеную пользователем. Период дат ограничен.

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

 import rslx,lgxs;
if(IsStandAlone()) 
	oIE=ActiveX("InternetExplorer.Application");
else 
	oIE=TlgActiveX("InternetExplorer.Application"); 
end;
oIE.Visible = False;
oIE.Silent = False;

Macro ПолучитьКурс(Дата, Код)
	oIE.Navigate("http://stock.rbc.ru/demo/cb.0/daily/"+Код+".rus.shtml?show=3M");
	// Ждем пока объект не освободится
	While(oIE.Busy)
	end;
	oDoc = oIE.Document;
	// Получаем текст страницы
	strHTML = oDoc.Body.innerText;
	curDate=String(Дата:f);
	// находим позицию курса по USD
	pos = index(strHTML,curDate);
	Курс = "";
	if(pos!=0)
		Курс = SubStr(strHTML,pos+10,7);
	end;
	Return Курс;
end;

println(ПолучитьКурс(date-1,"EUR"));
println(ПолучитьКурс(date,"USD"));

oIE = null;
oDoc = null;