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
