[R] Utiliser les expressions régulières

[pierrotm777]

Bonjour,

Je cherche à récupérer les résultat d'une page web avec les expressions régulières !
Ce petit script permettrait de convertir une monnaie en une autre, ici us dollar en euro à partir d'une page msn!

► Afficher le texte

Code : Tout sélectionner

Global $MoneyFrom = 1; Us dollar
Global $MoneyTo = 9;Euro
Global $Value = 10;Valeur à convertir

MsnMoney()

Func MsnMoney()
    Local $sUrl = "http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom="&$MoneyFrom&"&iCurIdTo="&$MoneyTo&"&dAmt="&$Value
    ;ConsoleWrite(_INetGetSource($sUrl))
    $sSource = _INetGetSource($sUrl)
    If @error Then Return SetError(1)
    $sSource = StringRegExp(BinaryToString($sSource, 4), '"heading1black"([^"]+)"', 1)
    msgbox(0,"***", $sSource)
EndFunc ;==>MsnMoney

Le résultat se trouve après le mot "heading1black", ;<td class="heading1black">7.46714 Euro</td>

Merci de votre aide

[FernandG]

Bonjour,

Vous trouverez ci dessous votre code modifié afin de répondre à votre demande :

Code : Tout sélectionner

#Include <Inet.au3>

Global $MoneyFrom = 1
Global $MoneyTo = 9
Global $Value = 10

MsnMoney()

Func MsnMoney()
    Local $sUrl = "http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom="&$MoneyFrom&"&iCurIdTo="&$MoneyTo&"&dAmt="&$Value
    $sSource = _INetGetSource($sUrl)
    If @error Then Return SetError(1)
    $sVal = StringRegExp($sSource, 'heading1black">(\d+\.\d{5})\sEuro</td>', 3)
    MsgBox(0, "***", $sVal[0])
EndFunc

Bon dimanche.
AutoItement.

[FernandG]

J'ai répondu sans même tenir compte des grands nombres lors de la conversion. Voici la partion de code à modifier pour en tenir compte :

Code : Tout sélectionner

    $sVal = StringRegExp($sSource, 'heading1black">(\d{0,3}\,?\d{0,3}\.\d{5})(\sBil)?(\sMil)?(\sEuro)</td>', 3)
    MsgBox(0, "***", $sVal[0] & $sVal[1] & $sVal[2] & $sVal[3])

Au dela de "Bil Euro", le site ne prend pas en charge

[pierrotm777]

Merci de votre aide,
C'est impeccable pour les Euros, seulement si je remplace $MoneyTo = 9 par $MoneyTo = 10 (Argentine Peso), cela ne fonctionne plus !

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>
#include <INET.au3>

;"http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom=56&iCurIdTo=69&dAmt=1.00")

Global $MoneyFrom = 1; Us dollar
Global $MoneyTo = 10;Argentine Peso
Global $Value = 10;Valeur à convertir


Global $Money
Switch $MoneyTo
    case 48 ;Algerian dinar
        $Money = "Dinar"
    case 10 ;Argentine Peso
        $Money = "Peso"
    case 8 ;Australian dollar
        $Money = "Dollar"
    case 57 ;Baharaini Dinar
        $Money = "Dinar"
    case 13 ;Bolivian Boliviano
        $Money = "Boliviano"
    case 14 ;Brazilian real
        $Money = "Real"
    case 3 ;British pound
        $Money = "Pound"
    case 52 ;Botswana pula
        $Money = "Pula"
    case 2 ;Canadian dollar
        $Money = "Dollar"
    case 16 ;Chilean peso
        $Money = "Peso"
    case 17 ;Chinese yuan
        $Money = "Yuan"
    case 18 ;Colombian Peso
        $Money = "Peso"
    case 19 ;Czech koruna
        $Money = "Koruna"
    case 20 ;Danish krone
        $Money = "Krone"
    case 92 ;Egyptian pound
        $Money = "Pound"
    case 9  ;Euro
        $Money = "Euro"
    case 53 ;Ghanaian Cedi
        $Money = "Cedi"
    case 45 ;Guatemalan quetzal
        $Money = "Quetzal"
    case 24 ;Hong Kong dollar
        $Money = "Dollar"
    case 25 ;Hungarian forint
        $Money = "Forint"
    case 50 ;new Israeli shekel
        $Money = "Shekel"
    case 59 ;Indian rupee
        $Money = "Rupee"
    case 26 ;Indonesian rupiah
        $Money = "Rupiah"
    case 7 ;Japanese yen
        $Money = "Yen"
    case 60 ;Jordanian Dinar
        $Money = "Dinar"
    case 54 ;Kenyan Shilling
        $Money = "Shilling"
    case 61 ;Kuwaiti dinar
        $Money = "Dinar"
    case 51 ;Malaysian ringgit
        $Money = "Ringgit"
    case 30 ;Mexican Peso
        $Money = "Peso"
    case 46 ;Moroccan Dirham
        $Money = "Dirham"
    case 55 ;Namibian dollar
        $Money = "Dollar"
    case 32 ;New Zealand dollar
        $Money = "Dollar"
    case 33 ;Norwegian krone
        $Money = "Krone"
    case 63 ;Omani Rial
        $Money = "Rial"
    case 64 ;Pakistan rupee
        $Money = "Rupee"
    case 34 ;Peruvian nuevo sol
        $Money = "Nuevo Sol"
    case 65 ;Philippine Peso
        $Money = "Peso"
    case 66 ;Qatari Rial
        $Money = "Rial"
    case 37 ;Russian Rouble
        $Money = "Rouble"
    case 67 ;Saudi Riyal
        $Money = "Riyal"
    case 40 ;Singapore dollar
        $Money = "Dollar"
    case 44 ;South African rand
        $Money = "Rand"
    case 28 ;Korean Won
        $Money = "Wono"
    case 39 ;Swedish krona
        $Money = "Krona"
    case 15 ;Swiss franc
        $Money = "Franc"
    case 42 ;Taiwan Dollar
        $Money = "Dollar"
    case 68 ;Tanzanian Shilling
        $Money = "Shilling"
    case 41 ;Thai baht
        $Money = "Baht"
    case 47 ;Tunisian dinar
        $Money = "Dinar"
    case 49 ;New Turkish Lira
        $Money = "Lira"
    case 69 ;Emirati Dirham
        $Money = "Dirham"
    case 1 ; US dollar
        $Money = "Dollar"
    case 43 ;Venezualan Bolivar
        $Money = "Bolivar"
    case 70 ;Vietnamese dong
        $Money = "Dong"
    case 56 ;Zimbabwe dollar
        $Money = "Dollar"
EndSwitch

MsnMoney()

Func MsnMoney()
    Local $sUrl = "http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom="&$MoneyFrom&"&iCurIdTo="&$MoneyTo&"&dAmt="&$Value
;   ConsoleWrite(_INetGetSource($sUrl))
    $sSource = _INetGetSource($sUrl)
    If @error Then Return SetError(1)
    $sVal = StringRegExp($sSource, 'heading1black">(\d{0,3}\,?\d{0,3}\.\d{5})(\sBil)?(\sMil)?(\sEuro)</td>', 3)
    MsgBox(0, "***", $sVal[0] & $sVal[1] & $sVal[2] & $sVal[3])
EndFunc ;==>MsnMoney
 

MsgBox(0, "***", $sVal[0] & $sVal[1] & $sVal[2] & $sVal[3])
MsgBox(0, "***", $sVal^ ERROR

[jchd]

Normal, car le libellé de la monnaie n'est pas celui qui est attendu :

...class="heading1black">39.69830 Argentine Peso</td></tr>...

case 10 ;Argentine Peso
$Money = "Peso"

Pourquoi vouloir matcher le libellé de la monnaie ? Seul le taux de change est utile.

[pierrotm777]

Effectivement,
Vous auriez une solution ?

[FernandG]

Pourquoi vouloir matcher le libellé de la monnaie ? Seul le taux de change est utile.

Exact. Je suis resté dans l'exemple demandé sans porter attention à d'autres monnaies.

Vous auriez une solution ?

Oui, supprimer "(\sEuro)</td>" de l'expression régulière. Ensuite à vous d'adapter votre code à votre convenance

Bon après midi.

[pierrotm777]

Désolé mais je ne vois pas

[bloodwolff]

Code : Tout sélectionner

Stringregexp($source, "<td class="heading1black">([[:digit:],.]+) " & $devise & "</td>", 3 )

[FernandG]

Désolé mais je ne vois pas

Pas de souci. Voici un exemple de code, il en existe d'autres ...

Code : Tout sélectionner

Func MsnMoney()
    Local $sUrl = "http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom="&$MoneyFrom&"&iCurIdTo="&$MoneyTo&"&dAmt="&$Value
;   ConsoleWrite(_INetGetSource($sUrl))
    $sSource = _INetGetSource($sUrl)
    If @error Then Return SetError(1)
    $sVal = StringRegExp($sSource, 'heading1black">(\d{0,3}\,?\d{0,3}\.\d{5})(\sMil)?(\sBil)?', 3)
    $sVal[0] = StringReplace($sVal[0], ",", "")
    If UBound($sval) = 3 Then
        $sResult = $sVal[0] * 1000000000
    ElseIf UBound($sval) = 2 Then
        $sResult = $sVal[0] * 1000000
    Else
        $sResult = $sVal[0]
    EndIf
    MsgBox(0, "***", $sResult & " " & $Money)
EndFunc ;==>MsnMoney

[pierrotm777]

Alors , grands merci à bloodwolff et FerdinandG pour votre aide !

FerdinandG ton code est nickel !
Peux tu juste m'expliquer la ligne de code :

Code : Tout sélectionner

StringRegExp($sSource, 'heading1black">(\d{0,3}\,?\d{0,3}\.\d{5})(\sMil)?(\sBil)?', 3)

Merci encore

[FernandG]

FerdinandG

C'est bien la première fois

Code : Tout sélectionner

$pseudo = StringReplace($pseudo, "di", "")

me convient parfaitement

Description :

Code : Tout sélectionner

StringRegExp($sSource, 'heading1black">(\d{0,3}\,?\d{0,3}\.\d{5})(\sMil)?(\sBil)?', 3)

( et ) = Les parenthèses sont des délimiteurs de groupe et associé à la valeur 3 de StringRegExp, permettent la capture du contenu de toutes les parenthèses dans un tableau, voir la documentation de StringRegExp.

Pour : heading1black">
heading1black"> = Recherche exactement cette expression (aucun symboles spéciaux dans l'expression)

Pour : \d{0,3}\,?
\d = Un chiffre décimal
{0,3} = C'est un quantificateur, de 0 à 3 fois
\d{0,3} = Désigne donc une recherche d'un chiffre décimal 0, 1, 2 ou 3 à chiffres
\, = Séquence d'échappement pour la virgule, qui est un carcatère, un symbole spécial
? = C'est aussi un quantificateur, O ou 1 fois
\,? = Recherche donc une virgule, 0 ou 1 fois

Pour : \d{0,3}\.
\d{0,3} = On recommence une recherche de 0 à 3 chiffres
\. = Séquence d'échappement pour le point, qui est un carcatère, un symbole spécial, tout comme la virgule

Pour : \d{5}
\d{5} = Un ensemble de 5 chiffres décimal

Pour : (\sMil)?
\s = Un espace
Mil = Recherche du terme, du mot Mil
(\sMil)? = On recherche l'expression, le mot Mil (un espace suivi de Mil), le tout entre parenthèse, 0 ou 1 fois

Pour : (\sBil)?
(\sBil)? = On recommence pour l'expression, le mot Bil (un espace suivi de Bil), le tout entre parenthèse, 0 ou 1 fois

Dans l'expression, on remarque 3 parenthèses, donc 3 capture possible si l'expression régulière est confirmée.
- La première parenthèse capture le résultat
- La deuxième parenthèse capture l'expression Mil si elle existe
- La troisième parenthèse capture l'expression Bil si elle existe

Bon après midi.

[bloodwolff]

Comme j'avais du temps à perdre j'ai fait une petit Gui vraiment laide pour te montrer comment inclure directement les combobox au lieu d'utiliser les numero, j'ai inclu le script qui m'a permi de créer le tableau en commentaire

► Afficher le texte

Code : Tout sélectionner

#cs
#include <Array.au3>

$source = BinaryToString(InetRead("http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom=1&iCurIdTo=9&dAmt=10"))
$tableau = StringRegExp($source, '<option value="(\d+)">(.+?)</option>', 3)
$string = "Dim $devise[" & UBound($tableau)/2 & "][2] = ["
$tableau = _ArrayUnique($tableau)
Dim $devise[(UBound($tableau)-1)/2][2]
For $i=0 to ($tableau[0]/2)-1
    $devise[$i][0] = Number($tableau[(($i+1)*2)-1])
    $devise[$i][1] = $tableau[($i+1)*2]
Next
_ArraySort($devise)
For $i=0 to UBound($devise)-1
    $string &= " _" & @CRLF & "[" & $devise[$i][0] & ", """ & $devise[$i][1] & """],"
Next
$string = StringRegExpReplace($string, ",\z", "]")
ClipPut($string)
#ce
Dim $devise[108][2] = [ _
[1, " US dollar"], _
[2, "Canadian dollar"], _
[3, "British pound"], _
[7, "Japanese yen"], _
[8, "Australian dollar"], _
[9, "Euro"], _
[10, "Argentine Peso"], _
[13, "Bolivian Boliviano"], _
[14, "Brazilian real"], _
[15, "Swiss franc"], _
[16, "Chilean peso"], _
[17, "Chinese yuan"], _
[18, "Colombian Peso"], _
[19, "Czech koruna"], _
[20, "Danish krone"], _
[24, "Hong Kong dollar"], _
[25, "Hungarian forint"], _
[26, "Indonesian rupiah"], _
[28, "Korean Won"], _
[30, "Mexican Peso"], _
[32, "New Zealand dollar"], _
[33, "Norwegian krone"], _
[34, "Peruvian nuevo sol"], _
[37, "Russian Rouble"], _
[39, "Swedish krona"], _
[40, "Singapore dollar"], _
[41, "Thai baht"], _
[42, "Taiwan Dollar"], _
[43, "Venezualan Bolivar"], _
[44, "South African rand"], _
[45, "Guatemalan quetzal"], _
[46, "Moroccan Dirham"], _
[47, "Tunisian dinar"], _
[48, "Algerian dinar"], _
[49, "New Turkish Lira"], _
[50, "new Israeli shekel"], _
[51, "Malaysian ringgit"], _
[52, "Botswana pula"], _
[53, "Ghanaian Cedi"], _
[54, "Kenyan Shilling"], _
[55, "Namibian dollar"], _
[56, "Zimbabwe dollar"], _
[57, "Baharaini Dinar"], _
[59, "Indian rupee"], _
[60, "Jordanian Dinar"], _
[61, "Kuwaiti dinar"], _
[63, "Omani Rial"], _
[64, "Pakistan rupee"], _
[65, " Philippine Peso"], _
[66, "Qatari Rial"], _
[67, "Saudi Riyal"], _
[68, "Tanzanian Shilling"], _
[69, "Emirati Dirham"], _
[70, "Vietnamese dong"], _
[92, "Egyptian pound"]]

#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GuiComboBox.au3>

$Form1 = GUICreate("", 343, 61, 192, 124)
$Combo1 = GUICtrlCreateCombo("", 8, 8, 161, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$Combo2 = GUICtrlCreateCombo("", 176, 8, 161, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$Input1 = GUICtrlCreateInput("", 10, 32, 57, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label1 = GUICtrlCreateLabel("", 80, 32, 100, 17)
$button = GUICtrlCreateButton("convertir", 190, 32, 70, 21)
GUISetState(@SW_SHOW)

$string = "|"
For $i=0 to UBound($devise)-1
    $string &= $devise[$i][1] & "|"
Next
GUICtrlSetData($Combo1, $string, $devise[0][1])
GUICtrlSetData($Combo2, $string, $devise[0][1])

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $button
            $source = BinaryToString(InetRead("http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom=" & _
            $devise[_GUICtrlComboBox_GetCurSel($Combo1)][0] & "&iCurIdTo=" & $devise[_GUICtrlComboBox_GetCurSel($Combo2)][0] & "&dAmt=" & GUICtrlRead($Input1)))
            $resultat = Stringregexp($source, '<td class="heading1black">([[:digit:],.]+(?: Mil| Bil)?) ' & $devise[_GUICtrlComboBox_GetCurSel($Combo2)][1] & '</td>', 3 )
            GUICtrlSetData($Label1, $resultat[0])
        Case -3
            Exit
    EndSwitch
WEnd

[FernandG]

Comme j'avais du temps à perdre ...

Attention, cela ne fonctionne pas si le résultat est supérieur à 999999

[bloodwolff]

humm merci j'avais pas remarqué la nuance de Mil et Bil , Voilà c'est corrigé

PS: Heyhey Mon 500e Message sur le forum !

[pierrotm777]

Messieurs , merci encore !!!!

[FernandG]

N'oubliez pas la balise [R] dans le titre de votre premier message si vous pensez que votre sujet est résolu.

[pierrotm777]

Franchement , je ne suis pas trés doué, j'essaie d'adapter vos lignes sans les combo et j'ai des résultats bizars !

Code : Tout sélectionner

[spoiler=]ConvertMoney(9,1,10000)
Func ConvertMoney($MoneyFrom,$MoneyTo,$Value)

;#cs
Dim $devise[108][2] = [ _
[1, " US dollar"], _
[2, "Canadian dollar"], _
[3, "British pound"], _
[7, "Japanese yen"], _
[8, "Australian dollar"], _
[9, "Euro"], _
[10, "Argentine Peso"], _
[13, "Bolivian Boliviano"], _
[14, "Brazilian real"], _
[15, "Swiss franc"], _
[16, "Chilean peso"], _
[17, "Chinese yuan"], _
[18, "Colombian Peso"], _
[19, "Czech koruna"], _
[20, "Danish krone"], _
[24, "Hong Kong dollar"], _
[25, "Hungarian forint"], _
[26, "Indonesian rupiah"], _
[28, "Korean Won"], _
[30, "Mexican Peso"], _
[32, "New Zealand dollar"], _
[33, "Norwegian krone"], _
[34, "Peruvian nuevo sol"], _
[37, "Russian Rouble"], _
[39, "Swedish krona"], _
[40, "Singapore dollar"], _
[41, "Thai baht"], _
[42, "Taiwan Dollar"], _
[43, "Venezualan Bolivar"], _
[44, "South African rand"], _
[45, "Guatemalan quetzal"], _
[46, "Moroccan Dirham"], _
[47, "Tunisian dinar"], _
[48, "Algerian dinar"], _
[49, "New Turkish Lira"], _
[50, "new Israeli shekel"], _
[51, "Malaysian ringgit"], _
[52, "Botswana pula"], _
[53, "Ghanaian Cedi"], _
[54, "Kenyan Shilling"], _
[55, "Namibian dollar"], _
[56, "Zimbabwe dollar"], _
[57, "Baharaini Dinar"], _
[59, "Indian rupee"], _
[60, "Jordanian Dinar"], _
[61, "Kuwaiti dinar"], _
[63, "Omani Rial"], _
[64, "Pakistan rupee"], _
[65, "Philippine Peso"], _
[66, "Qatari Rial"], _
[67, "Saudi Riyal"], _
[68, "Tanzanian Shilling"], _
[69, "Emirati Dirham"], _
[70, "Vietnamese dong"], _
[92, "Egyptian pound"]]

    $source = BinaryToString(InetRead("http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom=" & $devise[$MoneyFrom][0] & "&iCurIdTo=" & $devise[$MoneyTo][0] & "&dAmt=" & $Value))
    $sVal = Stringregexp($source, '<td class="heading1black">([[:digit:],.]+(?: Mil| Bil)?)'& $devise[$MoneyTo][1] &'</td>', 3 )
    msgbox(0,"***","MoneyFrom :"& $devise[$MoneyFrom][1] &@CRLF& "MoneyTo :"&$devise[$MoneyTo][0] &@CRLF& $devise[9][0] &@CRLF& $devise[$MoneyTo][1] &@CRLF&$sVal)
    return $sVal[/spoiler]

D'aprés votre exemple je devrais retourner $sVal[0], mais cela me génère une erreur.
Si je retourne $sVal, j'obtiens 1

[bloodwolff]

Dans ton exemple tu avais oublier un espace dans le pattern ! Je met un \s à la place pour qu'il soit plus visible !

Code : Tout sélectionner

'<td class="heading1black">([[:digit:],.]+(?: Mil| Bil)?)[color=#FF0000]\s[/color]'& $devise[$MoneyTo][1] &'</td>'

Et c'est bien $sVal[0]
Et arrette de vouvoyer !

[pierrotm777]

Alors , le \s ne change rien !
Par contre je viens de me rendre compte que le tableau n'étant pas complet, il y avait un décalage, je l'ai donc complété et là, et comme il commence à 0, j'ai diminué de -1 dans la fonction, ainsi, la valeur 1 correspond bien à Us et 9 à Euro.

Mais j'ai toujours un résultat de 1 et une erreur si je retourne $sVal[0] au lieu de $sVal.

► Afficher le texte

Code : Tout sélectionner

Func ConvertMoney($MoneyFrom,$MoneyTo,$Value)
;#cs
Dim $devise[108][2] = [ _
[1, " US dollar"], _
[2, "Canadian dollar"], _
[3, "British pound"], _
[4, "***"], _
[5, "***"], _
[6, "***"], _
[7, "Japanese yen"], _
[8, "Australian dollar"], _
[9, "Euro"], _
[10, "Argentine Peso"], _
[11, "***"], _
[12, "***"], _
[13, "Bolivian Boliviano"], _
[14, "Brazilian real"], _
[15, "Swiss franc"], _
[16, "Chilean peso"], _
[17, "Chinese yuan"], _
[18, "Colombian Peso"], _
[19, "Czech koruna"], _
[20, "Danish krone"], _
[21, "***"], _
[22, "***"], _
[23, "***"], _
[24, "Hong Kong dollar"], _
[25, "Hungarian forint"], _
[26, "Indonesian rupiah"], _
[27, "***"], _
[28, "Korean Won"], _
[29, "***"], _
[30, "Mexican Peso"], _
[31, "***"], _
[32, "New Zealand dollar"], _
[33, "Norwegian krone"], _
[34, "Peruvian nuevo sol"], _
[35, "***"], _
[36, "***"], _
[37, "Russian Rouble"], _
[37, "***"], _
[39, "Swedish krona"], _
[40, "Singapore dollar"], _
[41, "Thai baht"], _
[42, "Taiwan Dollar"], _
[43, "Venezualan Bolivar"], _
[44, "South African rand"], _
[45, "Guatemalan quetzal"], _
[46, "Moroccan Dirham"], _
[47, "Tunisian dinar"], _
[48, "Algerian dinar"], _
[49, "New Turkish Lira"], _
[50, "new Israeli shekel"], _
[51, "Malaysian ringgit"], _
[52, "Botswana pula"], _
[53, "Ghanaian Cedi"], _
[54, "Kenyan Shilling"], _
[55, "Namibian dollar"], _
[56, "Zimbabwe dollar"], _
[57, "Baharaini Dinar"], _
[58, "***"], _
[59, "Indian rupee"], _
[60, "Jordanian Dinar"], _
[61, "Kuwaiti dinar"], _
[62, "***"], _
[63, "Omani Rial"], _
[64, "Pakistan rupee"], _
[65, "Philippine Peso"], _
[66, "Qatari Rial"], _
[67, "Saudi Riyal"], _
[68, "Tanzanian Shilling"], _
[69, "Emirati Dirham"], _
[70, "Vietnamese dong"], _
[71, "***"], _
[72, "***"], _
[73, "***"], _
[74, "***"], _
[75, "***"], _
[76, "***"], _
[77, "***"], _
[78, "***"], _
[79, "***"], _
[80, "***"], _
[81, "***"], _
[82, "***"], _
[83, "***"], _
[84, "***"], _
[85, "***"], _
[86, "***"], _
[87, "***"], _
[88, "***"], _
[89, "***"], _
[90, "***"], _
[91, "***"], _
[92, "Egyptian pound"]]

    $source = BinaryToString(InetRead("http://uk.moneycentral.msn.com/investor/market/crncconverter.asp?iCurIdFrom=" & $devise[$MoneyFrom-1][0] & "&iCurIdTo=" & $devise[$MoneyTo-1][0]& "&dAmt=" & $Value))
    $sVal = Stringregexp($source, '<td class="heading1black">([[:digit:],.]+(?: Mil| Bil)?)\s'& $devise[$MoneyFrom-1][1] &'</td>', 3 )
    msgbox(0,"***","MoneyFrom :"& $devise[$MoneyFrom-1][0] &@CRLF& "MoneyTo :"&$devise[$MoneyTo-1][1] &@CRLF& $devise[$MoneyFrom-1][0] &@CRLF& $devise[$MoneyTo-1][1] &@CRLF&$sVal)
    return $sVal