Page 1 sur 1
[..] Suppression de mots dans un bloc-notes
Posté : mer. 05 oct. 2011 22:59
par 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
Re: [..]Suppression de mots dans un bloc-notes
Posté : jeu. 06 oct. 2011 09:18
par 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".
Re: [..]Suppression de mots dans un bloc-notes
Posté : jeu. 06 oct. 2011 15:26
par mikell
Manwe a écrit :... 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
Re: [..]Suppression de mots dans un bloc-notes
Posté : jeu. 06 oct. 2011 18:23
par Manwe
Re: [..] Suppression de mots dans un bloc-notes
Posté : jeu. 06 oct. 2011 22:00
par mikell
► Afficher le texteLe titre du sujet est
[..] Suppression de mots dans un bloc-notes
