Autoit.ES

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