Hey Community,
habe da mal , mit ein wenig Hilfe, einen .au3 Kommentar Remover geschrieben.
Wollte mal hören was ihr dazu sagt und was ihr besser machen würdet.
Also ich finde das Programm halbwegs sinvoll So kann man die Kommentare ( beispielsweise vom Sourecode eines Tutorials ) leicht löschen und muss nicht alles von Hand löschen.
Viel Spaß.
Download
Ftp Download
File-Upload Download
Sourecode
Spoiler anzeigen
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=103 - Icon-A-Day (Recycle Full).ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
AdlibEnable("_Checkbox", 100)
#Region ### START Koda GUI section ### Form=
If WinExists("au3 Kommentar Remover") Then
MsgBox(0, "", "au3 Kommentar Remover läuft bereits", 3)
Exit
EndIf
$Form1 = GUICreate("au3 Kommentar Remover", 358, 84, @DesktopHeight / 2, 0)
$input1 = GUICtrlCreateInput("", 70, 0, 263, 21)
$Button1 = GUICtrlCreateButton("...", 334, 0, 23, 21, 0)
$Label1 = GUICtrlCreateLabel("Autoit Datei", 8, 6, 59, 17)
$input2 = GUICtrlCreateInput("", 70, 30, 263, 21)
$Button2 = GUICtrlCreateButton("...", 334, 30, 23, 21, 0)
$Label2 = GUICtrlCreateLabel("Speicherpfad", 0, 38, 67, 17)
$Checkbox1 = GUICtrlCreateCheckbox("BackUp erstellen", 0, 66, 97, 17)
$Button3 = GUICtrlCreateButton("Build", 282, 62, 75, 21, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func _Checkbox()
If GUICtrlRead($Checkbox1) = 4 Then
GUICtrlSetData($input2, "")
GUICtrlSetState($input2, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Else
GUICtrlSetState($input2, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
EndFunc ;==>_Checkbox
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$datei = FileOpenDialog("Datei Auswahl", @ScriptDir, "Autoit (*.au3)")
GUICtrlSetData($input1, $datei)
Case $Button2
$datei2 = FileSelectFolder("Speicherpfad wählen", "")
GUICtrlSetData($input2, $datei2)
Case $Button3
$file = FileOpen($datei, 0)
$text1 = FileRead($file)
FileClose($file)
$text = StringRegExpReplace($text1, ';.*', '')
FileOpen($datei, 2)
If GUICtrlRead($Checkbox1) = 1 Then
$Temp = StringSplit($datei, "\")
$Temp2 = $Temp[0]
$TempName = $Temp[$Temp2]
$BackUp = "backup_" & $TempName
FileWrite(GUICtrlRead($input2) & "\" & $BackUp, $text1)
EndIf
FileWrite($file, $text)
FileClose($file)
EndSwitch
WEnd
Ist auch in meinem FTP-Checker zu finden!