PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 24 → WX - Cotação do Dolar e do Euro Hoje
WX - Cotação do Dolar e do Euro Hoje
Débuté par adrianoboller, 01 mai 2015 21:12 - 3 réponses
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 01 mai 2015 - 21:12
//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
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 01 mai 2015 - 21:14
Sites usados nas Urls:

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

Cotação do Dolar: http://dolarhoje.com/
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 01 mai 2015 - 21:14
:merci:
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 01 mai 2015 - 21:18
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