[..] Fonction StringRegexp

[killgones]

bonjour,

je suis en train de créé un programme qui me génère automatiquement une signature mail au sein de mon entreprise.
cependant, étant novice en autoit je coince sur le faite que je dois récupérer une chaine de caractère spécifique, des chiffres qui correspondent au numéro de téléphone, pour ce faire je voudrais juste récupérer les chiffres en supprimant les éventuels points, espaces ou tout autres signes ajoutés par utilisateurs.

voila mon code actuel

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$TEMP = EnvGet("TEMP")
$USERPROFILE = EnvGet("USERPROFILE")

;~ DirCreate($USERPROFILE & "\Signature_Mails")
;~ FileInstall("d:\temp\fileinstall\signature2.html", $TEMP & "\signature2.html", 1)
;~ FileInstall("d:\temp\fileinstall\info_signature.txt", $TEMP & "\info_signature.txt", 0)
;~ FileInstall("d:\temp\fileinstall\Logo_Fb.jpg", $USERPROFILE & "\Signature_Mails\Logo_Fb.jpg")
;~ FileInstall("d:\temp\fileinstall\Logo_SD_White.jpg", $USERPROFILE & "\Signature_Mails\Logo_SD_White.jpg")
;~ FileInstall("d:\temp\fileinstall\LOGO_T.jpg", $USERPROFILE & "\Signature_Mails\LOGO_T.jpg")
;~ FileInstall("d:\temp\fileinstall\Logo_trace.jpg", $USERPROFILE & "\Signature_Mails\Logo_trace.jpg")
;~ FileInstall("d:\temp\fileinstall\Logo_TWIT.jpg", $USERPROFILE & "\Signature_Mails\Logo_TWIT.jpg")
;~ $chemin_logo = StringReplace("file:///" & $USERPROFILE & "\Signature_Mails\logo_style_design_reduit.jpg", "\", "/")
$chemin_logo_html = "http://farm6.static.flickr.com/5167/5246834592_4538f3a53d_m.jpg"


$Form1 = GUICreate("STYLE & DESIGN", 220, 350)
GUICtrlCreateLabel("Création du fichier de signature des mails", 10, 10)
$Prenom = GUICtrlCreateInput("Prénom", 10, 30, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 1))
$Nom = GUICtrlCreateInput("", 10, 60, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 2))
$Num_Tel_Fixe = GUICtrlCreateInput("Tél Fixe (format international)", 10, 90, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 3))
$Num_Tel_Mobile = GUICtrlCreateInput("Mobile (format international)", 10, 120, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 4))
$Num_Fax = GUICtrlCreateInput("Fax (format international)", 10, 150, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 5))
$Fonction = GUICtrlCreateInput("Fonction", 10, 180, 200)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 6))
$Filiale_sd = GUICtrlCreateCombo ("Filiale sd", 10, 210, 150)
GUICtrlSetData($Filiale_sd, "Style and Design|Style and Design Print|Style and Design Studio|Style and Design Group")
$Addr_Mail = GUICtrlCreateInput("Mail", 10, 240, 200)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 7))


$Button1 = GUICtrlCreateButton("CREER", 25, 270, 60)
$Button2 = GUICtrlCreateButton("QUITTER", 100, 270, 60)


GUISetState(@SW_SHOW, $Form1)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE

            Exit
        Case $Button1
            If GUICtrlRead($Prenom) = "Prénom" Then
                $Prenom_html = "&nbsp;"
            Else
                $Prenom_html = GUICtrlRead($Prenom)
            EndIf
            If GUICtrlRead($Nom) = "Nom" Then
                $Nom_html = "&nbsp;"
            Else
                $Nom_html = GUICtrlRead($Nom)
            EndIf
            If GUICtrlRead($Fonction) = "Fonction" Then
                $Fonction_html = "&nbsp;"
            Else
                $Fonction_html = GUICtrlRead($Fonction)
            EndIf
            If GUICtrlRead($Num_Tel_Fixe) = "Tél Fixe (Format international)" Then
                $Num_Tel_Fixe_html = "&nbsp;"
            Else
                $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
            EndIf
            If GUICtrlRead($Num_Tel_Mobile) = "Mobile (Format international)" Then
                $Num_Tel_Mobile_html = "&nbsp;"
            Else
                $Num_Tel_Mobile_html = GUICtrlRead($Num_Tel_Mobile)
            EndIf
            If GUICtrlRead($Num_Fax) = "Fax (Format international)" Then
                $Num_Fax_html = "&nbsp;"
            Else
                $Num_Fax_html = GUICtrlRead($Num_Fax)
            EndIf
            If GUICtrlRead($Filiale_sd) = "Filiale sd" Then
                $Filiale_sd_html = MsgBox (0, "erreur", "choisir une filiale")
            Else
                $Filiale_sd_html = GUICtrlRead($Filiale_sd)
            EndIf
            If GUICtrlRead($Addr_Mail) = "Mail" Then
                $Addr_Mail_html = "&nbsp;"
            Else
                $Addr_Mail_html = GUICtrlRead($Addr_Mail)

            EndIf


            DirCreate($USERPROFILE & "\Signature_Mails")
            FileInstall("d:\temp\fileinstall\signature2.html", $TEMP & "\signature2.html", 1)
            FileInstall("d:\temp\fileinstall\Logo_Fb.jpg", $USERPROFILE & "\Signature_Mails\Logo_Fb.jpg")
            FileInstall("d:\temp\fileinstall\Logo_sd.jpg", $USERPROFILE & "\Signature_Mails\Logo_sd.jpg")
            FileInstall("d:\temp\fileinstall\LOGO_T.jpg", $USERPROFILE & "\Signature_Mails\LOGO_T.jpg")
            FileInstall("d:\temp\fileinstall\Logo_trace.jpg", $USERPROFILE & "\Signature_Mails\Logo_trace.jpg")
            FileInstall("d:\temp\fileinstall\Logo_TWIT.jpg", $USERPROFILE & "\Signature_Mails\Logo_TWIT.jpg")
            $chemin_logo = StringReplace("file:///" & $USERPROFILE & "\Signature_Mails\Logo_trace.jpg, LOGO_T, Logo_sd, Logo_Fb, Logo_TWIT", "\", "/")



            $szFile = $TEMP & "\signature2.html"
            $szText = FileRead($szFile, FileGetSize($szFile))
            $szText = StringReplace($szText, "Prenom", $Prenom_html)
            $szText = StringReplace($szText, "NOM", $NOM_html)
            $szText = StringReplace($szText, "Fonction", $Fonction_html)
            $szText = StringReplace($szText, "Num_Tel_Fixe", $Num_Tel_Fixe_html)
            $szText = StringReplace($szText, "Num_Tel_Mobile", $Num_Tel_Mobile_html)
            $szText = StringReplace($szText, "Num_Fax", $Num_Fax_html)
            $szText = StringReplace($szText, "Filiale_sd", $Filiale_sd_html)
            $szText = StringReplace($szText, "Addr_Mail", $Addr_Mail_html)

            FileCopy($TEMP & "\signature2.html", $TEMP & "\signature_webmail.html", 1)

            $szText1 = StringReplace($szText, "CHEMIN_LOGO", $chemin_logo)
            $szText2 = StringReplace($szText, "CHEMIN_LOGO", $chemin_logo_html)

            FileDelete($szFile)
            FileDelete($USERPROFILE & "\Signature_Mails\signature.html")
            FileWrite($USERPROFILE & "\Signature_Mails\signature.html", $szText1)
            FileWrite($USERPROFILE & "\Signature_Mails\signature_webmail.html", $szText2)
            FileDelete($TEMP & "\info_signature.txt")
            FileWrite($TEMP & "\info_signature.txt", GUICtrlRead($Prenom) & @CRLF & GUICtrlRead($Nom) & @CRLF & GUICtrlRead($Num_Tel_Fixe) & @CRLF & GUICtrlRead($Num_Tel_Mobile) & @CRLF & GUICtrlRead($Num_Fax) & @CRLF & GUICtrlRead($Fonction) & @CRLF & GUICtrlRead($Addr_Mail))

            
    EndSwitch
WEnd
 

merci pour votre aide.

Cordialement.

[mikell]

S'il s'agit juste de ne garder d'une string que les chiffres qu'elle contient, tu peux faire ça :

Code : Tout sélectionner

$res = StringRegExpReplace($string, '\D', "")

[killgones]

enfaite je souhaite garder uniquement les 9 derniers chiffre pour les variables Num_Tel_Fixe, Num_Mobile, et Num_Fax en retirant les "-" "." ou espace

merci de ta réponse

[killgones]

Comment je l’intègre à mon code ?
directement après les GUI ?

[jbnh]

Vous le remplacez un peu ou vous le souhaitez, c'est juste une manipulation de chaîne à l'instar de $szText = StringReplace($szText, "Num_Fax", $Num_Fax_html)

Vous pouvez par exemple faire

Code : Tout sélectionner

$Num_Fax_html = GUICtrlRead($Num_Fax)
$Num_Fax_html = StringRegExpReplace($Num_Fax_html, '\D', "")

Après je ne connais pas le fonctionnement de votre script. SI vous souhaitez également récupérer qu'une partie d'un string qui est le numéro etc, je vous invite à regarder l'aide et parcourir toutes les fonctions de manipulation de string (qui commencent d'ailleurs par String...() )à votre disposition.

[killgones]

j'ai ajouté la fonction mais rien ne fait :s. je te met mon code pour voir si je l'ai bien ajouté.

► Afficher le texte

Code : Tout sélectionner

$Form1 = GUICreate("STYLE & DESIGN", 220, 350)
GUICtrlCreateLabel("Création du fichier de signature des mails", 10, 10)
$Prenom = GUICtrlCreateInput("Prénom", 10, 30, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 1))
$Nom = GUICtrlCreateInput("", 10, 60, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 2))
$Num_Tel_Fixe = GUICtrlCreateInput("Tél Fixe (format international)", 10, 90, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 3))
$Num_Tel_Mobile = GUICtrlCreateInput("Mobile (format international)", 10, 120, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 4))
$Num_Fax = GUICtrlCreateInput("Fax (format international)", 10, 150, 150)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 5))
$Fonction = GUICtrlCreateInput("Fonction", 10, 180, 200)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 6))
$Filiale_sd = GUICtrlCreateCombo ("Filiale sd", 10, 210, 150)
GUICtrlSetData($Filiale_sd, "Style and Design|Style and Design Print|Style and Design Studio|Style and Design Group")
$Addr_Mail = GUICtrlCreateInput("Mail", 10, 240, 200)
GUICtrlSetData(-1, FileReadLine($TEMP & "\info_signature.txt", 7))


$Button1 = GUICtrlCreateButton("CREER", 25, 270, 60)
$Button2 = GUICtrlCreateButton("QUITTER", 100, 270, 60)


GUISetState(@SW_SHOW, $Form1)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE

            Exit
        Case $Button1
            If GUICtrlRead($Prenom) = "Prénom" Then
                $Prenom_html = " "
            Else
                $Prenom_html = GUICtrlRead($Prenom)
            EndIf
            If GUICtrlRead($Nom) = "Nom" Then
                $Nom_html = " "
            Else
                $Nom_html = GUICtrlRead($Nom)
            EndIf
            If GUICtrlRead($Fonction) = "Fonction" Then
                $Fonction_html = " "
            Else
                $Fonction_html = GUICtrlRead($Fonction)
            EndIf
            If GUICtrlRead($Num_Tel_Fixe) = "Tél Fixe (Format international)" Then
                $Num_Tel_Fixe_html = " "
            Else
                $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
            EndIf
            If GUICtrlRead($Num_Tel_Mobile) = "Mobile (Format international)" Then
                $Num_Tel_Mobile_html = " "
            Else
                $Num_Tel_Mobile_html = GUICtrlRead($Num_Tel_Mobile)
            EndIf
            If GUICtrlRead($Num_Fax) = "Fax (Format international)" Then
                $Num_Fax_html = " "
            Else
                $Num_Fax_html = GUICtrlRead($Num_Fax)
            EndIf
            If GUICtrlRead($Filiale_sd) = "Filiale sd" Then
                $Filiale_sd_html = MsgBox (0, "erreur", "choisir une filiale")
            Else
                $Filiale_sd_html = GUICtrlRead($Filiale_sd)
            EndIf
            If GUICtrlRead($Addr_Mail) = "Mail" Then
                $Addr_Mail_html = " "
            Else
                $Addr_Mail_html = GUICtrlRead($Addr_Mail)

            EndIf


            DirCreate($USERPROFILE & "\Signature_Mails")
            FileInstall("d:\temp\fileinstall\signature2.html", $TEMP & "\signature2.html", 1)
            FileInstall("d:\temp\fileinstall\Logo_Fb.jpg", $USERPROFILE & "\Signature_Mails\Logo_Fb.jpg")
            FileInstall("d:\temp\fileinstall\Logo_sd.jpg", $USERPROFILE & "\Signature_Mails\Logo_sd.jpg")
            FileInstall("d:\temp\fileinstall\LOGO_T.jpg", $USERPROFILE & "\Signature_Mails\LOGO_T.jpg")
            FileInstall("d:\temp\fileinstall\Logo_trace.jpg", $USERPROFILE & "\Signature_Mails\Logo_trace.jpg")
            FileInstall("d:\temp\fileinstall\Logo_TWIT.jpg", $USERPROFILE & "\Signature_Mails\Logo_TWIT.jpg")
            $chemin_logo = StringReplace("file:///" & $USERPROFILE & "\Signature_Mails\Logo_trace.jpg, LOGO_T, Logo_sd, Logo_Fb, Logo_TWIT", "\", "/")



            $szFile = $TEMP & "\signature2.html"
            $szText = FileRead($szFile, FileGetSize($szFile))
            $szText = StringReplace($szText, "Prenom", $Prenom_html)
            $szText = StringReplace($szText, "NOM", $NOM_html)
            $szText = StringReplace($szText, "Fonction", $Fonction_html)
            $szText = StringReplace($szText, "Num_Tel_Fixe", $Num_Tel_Fixe_html)
            $szText = StringReplace($szText, "Num_Tel_Mobile", $Num_Tel_Mobile_html)
            $szText = StringReplace($szText, "Num_Fax", $Num_Fax_html)
            $szText = StringReplace($szText, "Filiale_sd", $Filiale_sd_html)
            $szText = StringReplace($szText, "Addr_Mail", $Addr_Mail_html)

            FileCopy($TEMP & "\signature2.html", $TEMP & "\signature_webmail.html", 1)

            $szText1 = StringReplace($szText, "CHEMIN_LOGO", $chemin_logo)
            $szText2 = StringReplace($szText, "CHEMIN_LOGO", $chemin_logo_html)

            $Num_Tel_Fixe_html = GUICtrlRead($Num_Tel_Fixe)
            $Num_Tel_html = StringRegExpReplace($Num_Tel_Fixe_html, '\D', "")
            $Num_Fax_html = GUICtrlRead($Num_Fax)
            $Num_Fax_html = StringRegExpReplace($Num_Fax_html, '\D', "")
            $Num_Tel_Mobile_html = GUICtrlRead($Num_Tel_Mobile)
            $Num_Tel_Mobile_html = StringRegExpReplace($Num_Tel_Mobile_html, '\D', "")

            FileDelete($szFile)
            FileDelete($USERPROFILE & "\Signature_Mails\signature.html")
            FileWrite($USERPROFILE & "\Signature_Mails\signature.html", $szText1)
            FileWrite($USERPROFILE & "\Signature_Mails\signature_webmail.html", $szText2)
            FileDelete($TEMP & "\info_signature.txt")
            FileWrite($TEMP & "\info_signature.txt", GUICtrlRead($Prenom) & @CRLF & GUICtrlRead($Nom) & @CRLF & GUICtrlRead($Num_Tel_Fixe) & @CRLF & GUICtrlRead($Num_Tel_Mobile) & @CRLF & GUICtrlRead($Num_Fax) & @CRLF & GUICtrlRead($Fonction) & @CRLF & GUICtrlRead($Addr_Mail))

            
    EndSwitch
WEnd
 

merci

[jbnh]

Quels sont les résultats que vous obtenez, par rapport à quels inputs ? Pouvez-vous nous donner des exemples ?

Vous réalisez également que vous opérez les modifications après le traitement de la chaîne que vous écrivez dans vos signature mails

[killgones]

lorsque je fait F5 mon programme ce lance, je rentre alors dans les champs Num_Tel...Fax et mobile par exemple "01.63.25.38.45" et lorsque je créé ma signature j'ai au final la même chose "01.63.25.38.45" et moi j'aimerais en faite avoir comme résultat final "1.63.25.38.45" mais il ne suffit pas juste de retirer le "0" parce que je souhaiterais avoir le même résultat si la personne rentre "01-06-56-89-45" il faudra retirer le "0" et modifier les "-" par un "."

J'espère que mon exemple est clair.

[jbnh]

Jetez un oeil à ceci, testez les deux exemples, le résultat est pareil. Intégrez le dans votre script au bon endroit.

Code : Tout sélectionner

$var = "01-63-25-38-45"
;$var = "01.63.25.38.45"
$var = StringReplace($var, "-",".")
$var = StringRight($var, StringLen($var)-1)
Msgbox(0,"",$var)
 

Je reprend également mon message édité précédent :

Vous réalisez également que vous opérez les modifications après le traitement de la chaîne que vous écrivez dans vos signature mails

Faites vos modification au bon moment, sur la bonne chaine !

[killgones]

j'ai bien modifié et remis au bon endroit et cela fonctionne,

quand je rentre par exemple "01.65.25.36.24" ou "01-25-69-78-52" j'obtiens bien 0165253614 donc nickel merci de votre aide.

après y a t'il une fonction qui me permet de récupéré uniquement les 9 derniers chiffres donc sans le "0" et formater le résultat en 1.65.25.36.24 ?

Cordialement.

[jbnh]

Si l'utilisateur encode "01.65.25.36.24" ou "01-25-69-78-52", il est dommage de passer par 0165253614 pour revenir à 1.65.25.36.24.

Testez l'exemple que je vous ai donné, et ne passez plus par StringRegExpReplace

[killgones]

vous avez raison, donc il est plus utile de faire en sorte que le format final soit directement intégré.

par exemple que l'utilisateur rentre "0123658545" ou 01.23.65.25.14" au final une fois le programme lancé il aura dans sa signature "1.23.52.36.45"

mais qu'elle fonction utilisé ?

[jbnh]

Ha si l'utilisateur peut egalement entrer 0163253845 alors ils vaut mieux jouer avec StringRegExpReplace.

Voici vos trois cas, ils donnent tous le même résultat de cette manière :

Code : Tout sélectionner

$var = StringRegExpReplace("01.63.25.38.45", '\D', "")
$var = StringRegExpReplace($var, '(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})', '$1.$2.$3.$4.$5')
msgbox(0,"",StringRight($var,StringLen($var)-1))

$var = StringRegExpReplace("01-63-25-38-45", '\D', "")
$var = StringRegExpReplace($var, '(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})', '$1.$2.$3.$4.$5')
msgbox(0,"",StringRight($var,StringLen($var)-1))

$var = StringRegExpReplace("0163253845", '\D', "")
$var = StringRegExpReplace($var, '(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})', '$1.$2.$3.$4.$5')
msgbox(0,"",StringRight($var,StringLen($var)-1))

 

[killgones]

merci beaucoup,

je n'ai juste qu'a changer $var par $Num_Tel $Num_Mobile etc pour avoir mon rendu final ?

[mikell]

Autant faire un code générique qui tiendra compte de n'importe quelle faute de frappe...

Code : Tout sélectionner

;$string = "tralala 01-63-25-38-45 tsoin tsoin"
;$string = " 11. 63,25-38.45"
$string = "  0163253845"

$res = StringRegExpReplace($string, '\D', "")
$res2= StringRegExpReplace(Number($res), '(?<=\d)(?=(\d{2})+(?!\d))', ".")  
Msgbox(0,"", $res2)

Edit
Mais le plus simple (et de loin) serait de refuser une entrée dans l'input qui ne serait pas au bon format

[killgones]

OK et j'intègre comment ce code au mien pour ressortir au final juste "1.25.36.25.14" ?

merci de ta réponse

[mikell]

Ben toujours pareil...

Code : Tout sélectionner

$lecture = GuiCtrlRead($input)
$temp = StringRegExpReplace($lecture, '\D', "")
$resultat = StringRegExpReplace(Number($temp), '(?<=\d)(?=(\d{2})+(?!\d))', ".")  

[killgones]

je dois mal rentrer les infos parce que ça ne m'affiche plus rien

Code : Tout sélectionner

$Num_Tel_Fixe_html = GuiCtrlRead($Num_Tel_Fixe)
            $temp = StringRegExpReplace($Num_Tel_Fixe_html, '\D', "")
            $resultat = StringRegExpReplace(Number($temp), '(?<=\d)(?=(\d{2})+(?!\d))', ".")

[jbnh]

Vous avez tout en main pour vous débrouiller. Prenez le temps de chercher et vous arriverai à vos fin

[mikell]

Un peu de logique dans le traitement des variables, que diable