PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → 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
#1
Membre enregistré
3 655 messages
Popularité : +175 (223 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
#2
Membre enregistré
3 655 messages
Popularité : +175 (223 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/
#3
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 01 mai 2015 - 21:14
:merci:
#4
Membre enregistré
3 655 messages
Popularité : +175 (223 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
→ Revenir à WINDEV 25