Загрузка курсов валют из интернета

Maxmax

Задача такая

в интернете есть файл с курсами валют
как программно можно его контент подгрузить? какие есть функциональные модули?

заранее благодарен за ответы

sn

Заготовка новичка:

TYPES:
BEGIN OF t_curr,
code(3),
mult TYPE i,
date TYPE d,
rate TYPE p DECIMALS 4 ,
END OF t_curr,

tcurr TYPE HASHED TABLE OF t_curr
WITH UNIQUE KEY code mult date

DATA:
lcurr TYPE LINE OF tcurr,
html(120) OCCURS 0 WITH HEADER LINE,
mult TYPE string, rate TYPE string,

PERFORM downloadcurr
USING '840'
CHANGING html[].

LOOP AT html.
lcurr-code = '840'.
SPLIT html AT cl_abap_char_utilities=>horizontal_tab
INTO lcurr-date mult rate.
lcurr-mult = mult.
lcurr-rate = rate.
INSERT lcurr INTO TABLE curr.
ENDLOOP.

SORT curr BY date.

LOOP AT curr INTO lcurr.
WRITE: / lcurr-code, lcurr-mult, lcurr-date, lcurr-rate.
ENDLOOP.

FORM downloadcurr
USING currname TYPE c
CHANGING html.

DATA: absolute_uri(128) TYPE c.
DATA: response_headers(80) OCCURS 0 WITH HEADER LINE.
DATA: response_entity_body(120) OCCURS 0 WITH HEADER LINE.

CONCATENATE 'http://cbrates.rbc.ru/tsv/cb/'
currname
'.tsv' INTO absolute_uri.
* http://cbrates.rbc.ru/tsv/<код валюты>/<год>/<месяц>/<день>.tsv

CALL FUNCTION 'HTTP_GET'
EXPORTING
absolute_uri = absolute_uri
rfc_destination = 'SAPHTTP'
* SAPHTTP - коннектится GUI
* SAPHTTPA - коннектится APPLICATION SERVER
blankstocrlf = '1'
proxy = '192.168.0.99:3128'
TABLES
response_entity_body = response_entity_body
response_headers = response_headers
EXCEPTIONS
connect_failed = 1
timeout = 2
internal_error = 3
tcpip_error = 4
data_error = 5
system_failure = 6
communication_failure = 7
OTHERS = 8
.
IF sy-subrc >< 0.
WRITE: / sy-subrc.
ENDIF.
html = response_entity_body[].
ENDFORM.

Finick

В русском аддоне есть программа J_3RF_EXCH_LOAD.
Посмотрите документацию по работе с ней.

gerculesya

Программа из add-on считывает .xls.
Это не удобно, куда удобнее, нажать на кнопку в САП и все загрузить.

to SN.

У меня после выполнения HTTP_GET в html вот такой код:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML><HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>ERROR: Cache Access Denied</TITLE>
<STYLE type="text/css"></
STYLE>
</HEAD>
<BODY>
<H1>ERROR</H1>
<H2>Cache Access Denied</H2>
<HR noshade size="1px">
<P>
While trying to retrieve the URL:
<A HREF="http://cbrates.rbc.ru/tsv/cb/840.tsv">http://cbrates.rbc.ru/tsv/cb/840.tsv</A>
<P>
The following error was encountered:
<UL>
<LI>
<STRONG>
Cache Access Denied.
</STRONG>
</UL>
</P>
<P>Sorry, you are not currently allowed to request:
<PRE> http://cbrates.rbc.ru/tsv/cb/840.tsv</PRE>
from this cache until you have authenticated yourself.
</P>
<P>
You need to use Netscape version 2.0 or greater, or Microsoft Internet
Explorer 3.0, or an HTTP/1.1 compliant browser for this to work. Please
contact the <A HREF="mailto:webmaster">cache administrator</a> if you have
difficulties authenticating yourself or
<A HREF="http://gwserver2.rubin-hq.local/cgi-bin/chpasswd.cgi">change</a> your default password.
</P>
<BR clear="all">
<HR noshade size="1px">
<ADDRESS>
Generated Wed, 26 Apr 2006 13:17:02 GMT by gwserver2.rubin-hq.local (squid/2.5.STABLE7)
</ADDRESS>
</BODY></HTML>.
Т.е. ошибка !
Не знаете с чем это связано? К базиснику обращаться?[/b]

sn

Ваш прокси требует авторизации.
см. параметры PROXY_USER и PROXY_PASSWORD функции http_get.

gerculesya

Ошибка Cache Access Denied побеждена, но теперь есть другая:
Not Found
The requested URL /tsv/cb/840.tsv was not found on this server.

Sn, в чем может быть дело, не подскажите?

sn

Дык а в браузере открывается этот УРЛ?

Этот ли УРЛ запрашивается в HTTP_GET?
Предполагаю, что строка с УРЛом неправильно формируется. Посмотрите во время отладки.

gerculesya

В браузере открывается руками.
Формируется правильно. Функция HTTP_GET скопирована из текста программы в данном топике (sn).
Но в браузере в принципе страницы нет, там же вылазит новое окно с предложением сохранить, может в этом вся проблема?

Тогда откуда можно качать курсы?

sn

Хм. У меня работает код, приведенный мной выше. Но у меня отключена авторизации на проксе.

Смысл следующего понятен?

rfc_destination = 'SAPHTTP'
* SAPHTTP - коннектится GUI
* SAPHTTPA - коннектится APPLICATION SERVER
Не может здесь быть проблемы?

А вообще, я бы дальше стал смотреть логи прокси.

gerculesya

SN, а не подскажете, как их посмотреть?

sn

Это уже вопрос к Вашим админам Инета.
Думаю в связке с ними надо решать эту проблему дальше.

Mugunhwa

sn написал(а):

'http://cbrates.rbc.ru/tsv/cb/840.tsv'

а где можно что вообще можно скачивать с rbc.ru (котировки акций, ценных бумаг и пр.)?

Правила форума

Загрузка курсов валют из интернета

Кто сейчас на конференции