[Ex] Texte en variable autoit
Posté : lun. 20 déc. 2010 07:15
On a parfois besoin d'utiliser un texte directement dans les codes autoit
Le problème c'est qu'on doit tout se taper manuellement
C'est assez C*n de faire un programme qui automatise des actions si on se tape tout manuellement
Le mini-programme offre la possibilité de choisir le nom de la variable
Si je n'ai pas été assez clair je vous montre un exemple
si on lui donne le texte
Le problème c'est qu'on doit tout se taper manuellement
C'est assez C*n de faire un programme qui automatise des actions si on se tape tout manuellement
Le mini-programme offre la possibilité de choisir le nom de la variable
Si je n'ai pas été assez clair je vous montre un exemple
si on lui donne le texte
En***** Important *****
- Ajoutez la balise [..] dans le titre de votre premier message
- N'oubliez pas les balises de code dans vos messages.
Plus de détails ici :
http://www.autoitscript.fr/forum/viewto ... f=35&t=595
Voici le script$Texte = '***** Important *****' & @crlf
$Texte &= '- Ajoutez la balise [..] dans le titre de votre premier message' & @crlf
$Texte &= '- N''oubliez pas les balises de code dans vos messages.' & @crlf
$Texte &= 'Plus de détails ici :' & @crlf
$Texte &= 'http://www.autoitscript.fr/forum/viewto ... f=35&t=595'
Code : Tout sélectionner
$Form = GUICreate("Texte en $Autoit", 460, 340, 250, 150)
$Edit = GUICtrlCreateEdit("", 8, 34, 441, 271)
$Transformer = GUICtrlCreateButton("Transformer", 8, 312, 211, 25)
$Input = GUICtrlCreateInput("", 120, 8, 177, 21)
$Copier = GUICtrlCreateButton("Copier et vider", 232, 312, 219, 25)
$Label1 = GUICtrlCreateLabel("Nom de variable ? ==>", 8, 8, 111, 17)
$Radio1 = GUICtrlCreateRadio('Forme && "ligne" _', 304, 16, 113, 17)
$Radio2 = GUICtrlCreateRadio('Forme $variable &&= "ligne"', 304, 0, 145, 17)
GUICtrlSetState(-1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Copier
ClipPut(GUICtrlRead($Edit))
GUICtrlSetData($Edit, "")
GUICtrlSetState($Transformer, 64)
Case $Transformer
$texte = GUICtrlRead($Edit)
If $texte <> "" Then
$Variable = GUICtrlRead($Input)
If $Variable = "" Then $Variable = "Texte"
If StringLeft($Variable, 1) = "$" Then $Variable = StringTrimLeft($Variable, 1)
$texte = StringReplace($texte, "'", "''")
If GUICtrlRead($Radio2) = 1 Then
$texte = StringRegExpReplace($texte, "([^\n\r]+){1}?(?:\n|\r)*", "$" & $Variable & " &= '$1' & @crlf" & @CRLF)
$texte = StringReplace($texte, "&=" , "=", 1)
$texte = StringReplace($texte, " & @crlf", "", -1)
ElseIf GUICtrlRead($Radio1) = 1 Then
$texte = StringRegExpReplace($texte, "([^\n\r]+){1}?(?:\n|\r)*", StringRegExpReplace($Variable,"(.)"," ") & " & '$1' & @crlf _" & @CRLF)
$texte = StringReplace($texte, StringRegExpReplace($Variable,"(.)"," ") & " & '" , "$" & $variable & " = '", 1)
$texte = StringReplace($texte, " & @crlf _", "", -1)
EndIf
GUICtrlSetData($Edit, $texte)
GUICtrlSetState($Transformer, 128)
EndIf
Case -3
Exit
EndSwitch
WEnd
