PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → WX - Cotação do Dolar e do Euro Hoje
WX - Cotação do Dolar e do Euro Hoje
Iniciado por adrianoboller, mai., 01 2015 9:12 PM - 3 respostas
Membro registado
3.158 mensagems
Popularité : +89 (91 votes)
Publicado em maio, 01 2015 - 9:12 PM
//Cotacao Euro e Dolar
Resultado is string
posicaoInicial, nPosicaoFinal is int = 0
ok is boolean = False

//Euro
ok = HTTPRequest(EDT_UrlEuro)
IF ok = True THEN
//O euro tá R$ 3,37!
Resultado = HTTPGetResult(httpResult)
posicaoInicial = PositionOccurrence(Resultado,"O euro tá R$ ",firstRank,FromBeginning) + Length("O euro tá R$ ")
EDT_ValorEuro = Middle(Resultado,posicaoInicial,4)
END

//Dolar
ok = HTTPRequest(EDT_UrlDolar)
IF ok = True THEN
//O dolar tá R$ 3,37!
Resultado = HTTPGetResult(httpResult)
posicaoInicial = PositionOccurrence(Resultado,"O dólar tá R$ ",firstRank,FromBeginning) + Length("O dólar tá R$")
EDT_ValorDolar = Middle(Resultado,posicaoInicial,4)
END
Membro registado
3.158 mensagems
Popularité : +89 (91 votes)
Publicado em maio, 01 2015 - 9:14 PM
Sites usados nas Urls:

Cotação do Euro: http://eurohoje.com/

Cotação do Dolar: http://dolarhoje.com/
Membro registado
3.158 mensagems
Popularité : +89 (91 votes)
Publicado em maio, 01 2015 - 9:14 PM
:merci:
Membro registado
3.158 mensagems
Popularité : +89 (91 votes)
Publicado em maio, 01 2015 - 9:18 PM
Procedure CotacaoEuroDolar()

//Cotacao Euro e Dolar
Resultado is string
posicaoInicial, nPosicaoFinal is int = 0
ValorEuro, ValorDolar is string
ok is boolean = False

//Euro
ok = HTTPRequest("http://eurohoje.com/")
IF ok = True THEN
//O euro tá R$ 3,37!
Resultado = HTTPGetResult(httpResult)
posicaoInicial = PositionOccurrence(Resultado,"O euro tá R$ ",firstRank,FromBeginning) + Length("O euro tá R$ ")
ValorEuro = Middle(Resultado,posicaoInicial,4)
END

//Dolar
ok = HTTPRequest("http://dolarhoje.com/")
IF ok = True THEN
//O dolar tá R$ 3,37!
Resultado = HTTPGetResult(httpResult)
posicaoInicial = PositionOccurrence(Resultado,"O dólar tá R$ ",firstRank,FromBeginning) + Length("O dólar tá R$")
ValorDolar = Middle(Resultado,posicaoInicial,4)
END