[R] Convertisseur de monnaies

[pierrotm777]

Bonjour,

J'ai trouvé sur le site autoit us ce petit script de conversion d'unités:

► Afficher le texte

Code : Tout sélectionner

#include <inet.au3>
#include <array.au3>


$convert = _GoogleUnitConvert(.03,'kilowatts hour', 'joules')
MsgBox(0,'Kilowatts Hour to Joules', '.03 Kilowatts Hour = ' & $convert & ' Joules')
MsgBox(0,'Gallons to Liters', '10 Gallons = ' &_GoogleUnitConvert(10, 'gallons', 'liters')& ' Liters')

$convert = _GoogleUnitConvert(10,'usd', 'eur')
MsgBox(0,'Dollars to Euros', '10 dollar = ' & $convert & ' euro')
MsgBox(0,'Dollars to Euros', '10 Dollar = ' &_GoogleUnitConvert(10, 'kilowatts hour', 'joules')& ' Euros')


Func _GoogleUnitConvert($sValue, $sFrom, $sTo)
    Local $sSource
    $sSource = _INetGetSource("http://www.google.com/search?q=" & $sValue & "%20" & StringLower($sFrom) & "%20in%20" & StringLower($sTo))
    If @error Then Return SetError(1)
    $sSource = StringRegExp($sSource, '<h2(.*?)More about calculator.</a>', 1)
    $sSource = StringRegExp($sSource[0], '=\s(.*?)\s[a-z]*(\s?[a-z]*?)</b>', 1)
    Return StringReplace($sSource[0], Chr(160), '')
EndFunc   ;==>_GoogleUnitConvert

Je pensais convertir des monnaies mais le script me donne une erreur.

Hors il semblerait qu'en remplaçant $sValue $sFrom et $sTo par 10 , usd pour dollar et eur pour euro cela fonctionne.

pour exemple, toutes ces lignes fonctionnent sauf la dernière:

► Afficher le texte

Code : Tout sélectionner

$convert = _GoogleUnitConvert(.03,'metre', 'mile')
;MsgBox(0,'Kilowatts Hour to Joules', '.03 Kilowatts Hour = ' & $convert & ' Joules')
MsgBox(0,'Gallons to Liters', '1 miles = ' &_GoogleUnitConvert(1, 'mile', 'metre')& ' metre')
MsgBox(0,'Gallons to Liters', '100 centimetre = ' &_GoogleUnitConvert(100, 'centimetre', 'metre')& ' metre')
MsgBox(0,'Gallons to Liters', '1 kilomètre = ' &_GoogleUnitConvert(1, 'kilometer', 'metre')& ' metre')
MsgBox(0,'Gallons to Liters', '100 mils = ' &_GoogleUnitConvert(100, 'mils', 'centimetre')& ' centimetre')
MsgBox(0,'Gallons to Liters', '1 inch = ' &_GoogleUnitConvert(1, 'inch', 'mils')& ' mils')
MsgBox(0,'Gallons to Liters', '1 kilo gramme = ' &_GoogleUnitConvert(1, 'kilo gramme', 'gramme')& ' gramme')
MsgBox(0,'Gallons to Liters', '1 dollar = ' &_GoogleUnitConvert(1, 'dollar', 'euro')& ' euro')

Merci de votre aide

[Tlem]

Voici la solution :

► Afficher le texte

Code : Tout sélectionner

#include <inet.au3>
#include <array.au3>

MsgBox(0,'', '1 Kilowatts Hour = ' &_GoogleUnitConvert(1, 'Kilowatts Hour', 'Joules')& ' Joules')
MsgBox(0,'', '1 miles = ' &_GoogleUnitConvert(1, 'mile', 'metre')& ' metre')
MsgBox(0,'', '100 centimetre = ' &_GoogleUnitConvert(100, 'centimetre', 'metre')& ' metre')
MsgBox(0,'', '1 kilomètre = ' &_GoogleUnitConvert(1, 'kilometer', 'metre')& ' metre')
MsgBox(0,'', '100 mils = ' &_GoogleUnitConvert(100, 'mils', 'centimetre')& ' centimetre')
MsgBox(0,'', '1 inch = ' &_GoogleUnitConvert(1, 'inch', 'mils')& ' mils')
MsgBox(0,'', '1 kilo gramme = ' &_GoogleUnitConvert(1, 'kilo gramme', 'gramme')& ' gramme')
MsgBox(0,'', '1 dollar = ' &_GoogleUnitConvert(1, 'dollar', 'euro')& ' euro')

Func _GoogleUnitConvert($sValue, $sFrom, $sTo)
    Local $sSource
    $sSource = _INetGetSource("http://www.google.com/search?q=" & $sValue & "%20" & StringLower($sFrom) & "%20in%20" & StringLower($sTo))
    If @error Then Return SetError(1)
    $sSource = StringRegExp($sSource, '<h2(.*?)<b>(.*?)</b></h2>', 1)
    $sSource = StringRegExp($sSource[1], '=\s(.*?)\s[a-z]*(\s?[a-z]*?)', 1)
    Return StringReplace($sSource[0], Chr(160), '')
EndFunc   ;==>_GoogleUnitConvert

Il est aussi possible de gérer les unités en Français en remplaçant google.com par google.fr.

[pierrotm777]

Merci Tlem,

Efficace comme d'habitude!

Histoire de ne pas mourir idiot, pourriez vous me dire ce qui n'allait pas dans cette ligne modifiée ?

[Tlem]

Sur le premier filtrage StringRegExp(), il y avais comme référence le texte 'More about calculator', or lorsque vous faites certaines autres conversion, ce n'est plus le même texte, donc le filtrage échoue et provoque le plantage pour le deuxième filtrage ...

[pierrotm777]

Merci beaucoup !