[R] Utiliser les expressions régulières

[FernandG]

Bonjour,

Je viens d'essayer avec le code que je vous avais donné :

Code : Tout sélectionner

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

et cela fonctionne sans souci

Pensez à changer aussi cette ligne de code, pour vérifier:

Code : Tout sélectionner

    msgbox(0,"***","MoneyFrom :"& $devise[$MoneyFrom][1] &@CRLF& "MoneyTo :"&$devise[$MoneyTo][0] &@CRLF& $devise[9][0] &@CRLF& $devise[$MoneyTo][1] &@CRLF&$sVal[0])
 

Ou remplacer votre $sVal par $sVal[0] en fin de ligne.

Bonne journée.
AutoItement.

[bloodwolff]

Ce n'étais pas moneyfrom à mettre dans la règle mais moneyTo

► Afficher le texte

Code : Tout sélectionner

ConvertMoney(2,1,10)

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[$MoneyTo-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[0])
    return $sVal[0]
EndFunc

[pierrotm777]

Alors là , je suis stupide !

J'aurais le même besoin mais pour cette ligne:

Code : Tout sélectionner

<br />Page generated [color=#FF0000]14:09 London 22/01/2011[/color]<br clear="all" />

Je souhaiterais avoir la partie en rouge dans une variable, que la fonction puisse retourner, par exemple $sDate

[bloodwolff]

Tu veux un truc qui va souvent te sauver la vie avec les regexp !
Met .+? dans les endroits qui varie. Et tu mets entre parenthèse la partie que tu veux capturer. Ça te fera des petits pattern basique mais qui fonctionneront. Donc avec ton pattern sa donnerait

Code : Tout sélectionner

<br />(.+?)<br clear="all" />

[pierrotm777]

Ah super , oui c'est ce que je souhaite.
Voici le résultat:

Code : Tout sélectionner

$sDate = Stringregexp($source, '<br />Page generated(.+?)<br clear="all" />', 3 )

Merci beaucoup !

[FernandG]

Bonjour,

La solution de bloodwolff est valable mais trop généraliste à mon goût, car les tag "BR" sont trop fréquents dans le code source d'une page web. Par chance et après vérification, un seul résultat sera retourné dans ce cas. Il faut intégrer un autre critère de recherche plus précis et unique. Dans votre cas, Page generated vera l'affaire

En partant de votre exemple de base, essayer le code suivant :

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)
    $date = StringRegExp($sSource, '>Page\sgenerated\s([^<]+)<', 3)
    MsgBox(0, "***", $date[0])
EndFunc

Bon après midi.
AutoItement.

[bloodwolff]

Oui mais j'essayais juste de lui donner une façon simple d'y arriver par la suite