[Ex] Code remplace

[Ghost911]

Script tout simple qui serre a remplacer des mots utiliser un grand nombre de fois est évite de tous les retaper un a un !

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#NoTrayIcon
#Region ### START Koda GUI section ### Form=c:\program files\koda 2008\forms\text remplace.kxf
$Form1 = GUICreate("Code remplace v0.1 by ghost911", 483, 170, 370, 406)
GUISetFont(9, 800, 0, "Arial")
GUISetBkColor(0x000040)
$Label1 = GUICtrlCreateLabel("Code Remplace v 0.1 by Ghost911",112, 16, 340, 23)
GUICtrlSetFont(-1, 12, 800, 4, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
$inp=GUICtrlCreateInput("", 32, 88, 161, 23)
$inp2=GUICtrlCreateInput("", 280, 88, 161, 23)
$Label2 = GUICtrlCreateLabel("======>", 208, 88, 60, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("Remplacer", 192, 128, 99, 25, 0)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        case $Button1
$var = FileOpenDialog("", @ScriptDir & "\", "Fichier (*.*)")
If @error Then
Else
$remp=StringReplace (FileRead ($var),GUICtrlRead ($inp),GUICtrlRead ($inp2))
$data = FileOpen ($var,2)
If $data = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
EndIf
FileWrite ($data,$remp)
FileClose ($data)
MsgBox(64,"Code remplace v0.1 by ghost911","Remplacer !!!")
EndIf
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

[tolf]

Bonsoir,

L'idée est bonne mais il est déjà possible de remplacer des mots dans un fichier avec SciTE (icône remplacer ou CTRL+H).

[Ghost911]

ah ok je savais pas