|
Home → WINDEV 25 → WX - Cotação do Euro Hoje pelo site https://br.investing.com |
WX - Cotação do Euro Hoje pelo site https://br.investing.com |
Started by BOLLER, May, 31 2017 3:51 AM - 1 reply |
| |
| | | |
|
| |
Registered member 3,659 messages Popularité : +175 (223 votes) |
|
Posted on May, 31 2017 - 3:51 AM |
Euro Hoje For Boller
Procedure EuroHojeForBoller()
html is string
ValorEuroHoje, ValorEuroHoje01, ValorEuroHoje02, ValorEuroHoje03, ValorEuroHoje04, ValorEuroHoje05, ValorEuroHoje06 is string
nPosicaoinicial, nPosicaofinal is int = 0
ok is boolean = HTTPRequest("https://br.investing.com/currencies/eur-brl")
IF ok = True THEN html = HTTPGetResult(httpResult) END
EDT_html = html
html = Replace(html,Charact(34),"")
sBusca01, sBusca02, sBusca03, sBusca04, sBusca05, sBusca06 is string sBusca01 = "<input type=text id=alertValuePrice class=newInput inputTextBox alertValue value=" sBusca02 = "<span class=arial_26 inlineblock pid-1617-last id=last_last dir=ltr>" sBusca03 = "<span id=fl_header_pair_lst class=arial_16 midNum pid-1617-last dir=ltr>" sBusca04 = "<td class=lastNum pid-1617-last id=sb_last_1617>" sBusca05 = "<p id=TSB__summary_last_1617 class=arial_24 bold inlineblock js-item-last pid-1617-last_nColor>" sBusca06 = "<td class=lastNum js-item-last pid-1617-last>"
nPosicaoinicial = PositionOccurrence(html,sBusca01,firstRank,FromBeginning) + Length(sBusca01) ValorEuroHoje01 = Middle(html,nPosicaoinicial,6)
nPosicaoinicial = PositionOccurrence(html,sBusca02,firstRank,FromBeginning) + Length(sBusca02) ValorEuroHoje02 = Middle(html,nPosicaoinicial,6)
nPosicaoinicial = PositionOccurrence(html,sBusca03,firstRank,FromBeginning) + Length(sBusca03) ValorEuroHoje03 = Middle(html,nPosicaoinicial,6)
nPosicaoinicial = PositionOccurrence(html,sBusca04,firstRank,FromBeginning) + Length(sBusca04) ValorEuroHoje04 = Middle(html,nPosicaoinicial,6)
nPosicaoinicial = PositionOccurrence(html,sBusca05,firstRank,FromBeginning) + Length(sBusca05) ValorEuroHoje05 = Middle(html,nPosicaoinicial,6)
nPosicaoinicial = PositionOccurrence(html,sBusca06,firstRank,FromBeginning) + Length(sBusca06) ValorEuroHoje06 = Middle(html,nPosicaoinicial,6)
IF (ValorEuroHoje01 = ValorEuroHoje02) AND... (ValorEuroHoje03 = ValorEuroHoje04) AND... (ValorEuroHoje05 = ValorEuroHoje06) ValorEuroHoje = ValorEuroHoje01 END
RESULT ValorEuroHoje
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Message modified, May, 31 2017 - 3:54 AM |
| |
| |
| | | |
|
| | |
| |
Registered member 3,659 messages Popularité : +175 (223 votes) |
|
Posted on June, 01 2017 - 9:25 PM |
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|