[..] Suppression de mots dans un bloc-notes

[Expendables]

Bonjour !

Je cherche un membre qui pourrait m'aider à créer un script qui aurait pour but de supprimer certains mots en fonction d'un mot décider par moi même

exemple:

il y a le mot "[large]" en trop sur mon bloc note il y est genre 80 fois alors je tape le mot "[large]" dans le programme et clique sur supprimer et la il me supprime tous les mots comme "[large]"

Voila si vous voulez des détails dites moi

Merci d'avance bonne soirée

[Manwe]

Si le but est d'enlever le mot, et pas de créer un script qui exécute cette fonction pour le plaisir de faire un script:
Tu fais Edit / Replace (CTRL+H), et tu remplaces "[large]" par "VIDE".

[mikell]

... pour le plaisir de faire un script

Et quand bien même ?

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

Global $fichier

GuiCreate("gui", 730, 80, -1, -1, -1, $WS_EX_ACCEPTFILES)
GUISetFont(10, 600, 0, "Comic Sans MS") 

$label = GUICtrlCreateLabel("déposer ici le fichier à modifier", 10, 10, 600, 25, $WS_BORDER)
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetState (-1, $GUI_DROPACCEPTED)
$btnOpen1 = GUICtrlCreateButton("Ouvrir", 620, 10, 100, 25)

$input = GUICtrlCreateInput("écrire ici le mot à virer", 10, 40, 600, 25)
GUICtrlSetBkColor(-1, 0xffffff)
$btnChange = GUICtrlCreateButton("Modifier", 620, 40, 100, 25)

GuiSetState()


While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_DROPPED
        $a = GUIGetCursorInfo()
        If $a[4] = $label Then
            $fichier = @GUI_DragFile
            GuiCtrlSetData($label, $fichier)
        EndIf
    Case $btnOpen1
        $fichier = FileOpenDialog("Choose Text",@scriptdir, "Texte (*.txt)", 3)
        If Not @error Then 
            GuiCtrlSetData($label, $fichier)
        EndIf
    Case $btnChange
        _Modif($fichier)
    Case $GUI_EVENT_CLOSE
        Exit
   EndSwitch
Wend


Func _Modif($file)
$filebis = @desktopdir & "\modified.txt"
$rid = FileRead($file)
$mot = GuiCtrlRead($input)
$texte = StringReplace($rid, $mot, "")
If $mot<>"" Then FileWrite($filebis, $texte)
ShellExecute($filebis)
EndFunc
 

[Manwe]

Oui, mais moi ca marche dans un .doc aussi !!!

[mikell]

► Afficher le texteLe titre du sujet est

[..] Suppression de mots dans un bloc-notes