Su funcionamiento es bastante sencillo, en un documento .txt busca alguna cadena de texto y la reemplaza por otra. Si no colocamos una cadena para reemplazar simplemente borra la cadena introducida del texto.
Un amigo una vez me dijo que le daba fastidio quitar los [editar] de wikipedia o páginas por el estilo, y yo por practicar creé este script. Bueno se lo facilité a mi amigo aunque no es lo correcto jaja..
Me gustaría ver sus críticas para mejorarlo y mejorar futuros proyectos.
Código: (De la última versión)
Código: Seleccionar todo
#include <GUIConstantsEx.au3>
#NoTrayIcon
#Region ### START Koda GUI section ### Form=
$script="Text scan 1.0.1"
$Form1 = GUICreate($script, 351, 131)
$Input1 = GUICtrlCreateInput("", 80, 8, 177, 21)
GUICtrlSetState(-1,$GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Browse", 264, 8, 81, 25)
$Label1 = GUICtrlCreateLabel("File to scan:", 8, 8, 61, 17)
$Input2 = GUICtrlCreateInput("", 80, 40, 177, 21)
$Label2 = GUICtrlCreateLabel("Text to find:", 8, 40, 72, 17)
$Input3 = GUICtrlCreateInput("", 80, 72,177,21)
$Label3 = GUICtrlCreateLabel("Replace with:",8,72,72)
$Button2 = GUICtrlCreateButton("Start Scan", 94, 100, 145, 25)
GUICtrlSetState($Button2,$GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
main()
Func main()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file=FileOpenDialog("Choose file to scan",@ScriptDir,"Text Files (*.txt)", 1)
If @error Then
MsgBox(48,"Error Code 4","Error opening the file.")
Else
GUICtrlSetData($Input1,$file)
GUICtrlSetState($Button2,$GUI_ENABLE)
EndIf
Case $Button2
$aux=GUICtrlRead($Input1)
If $aux =="" Then
MsgBox(48,"Error Code 3","No files selected.")
Else
$text=FileRead($file)
$sub=GUICtrlRead($Input2)
$replace=GUICtrlRead($Input3)
If $text=="" Then
MsgBox(48,"Error Code 2","The file is empty.")
ElseIf $sub=="" Then
MsgBox(48,"Error Code 1",'You must enter a string in "Text to find".')
Else
$result=StringReplace($text,$sub,$replace)
$replacements=@extended
MsgBox(64, "Result","The number of replacements done was: "&$replacements)
$box=MsgBox(4,"Save","Do you want to save result as a new file?")
If $box=6 Then
$save=FileSaveDialog("Save file",$file,"Text Files (*.txt)", 2 + 16)
$var=FileOpen($save)
If $var= -1 Then
MsgBox(48,"Error Code 5","Error creating the new file.")
Else
FileWrite($save,$result)
FileClose($var)
EndIf
EndIf
EndIf
EndIf
EndSwitch
WEnd
EndFunc
Text scan v1.0 .au3 http://www.mediafire.com/?nexmogtzqzk
Text scan v1.0 .exe http://www.mediafire.com/?ylmfmlof0hw
