Procedure EuroHojeForBoller()

//Verifica Cotação do Euro

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