#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$fi = FileOpenDialog("Skript",@DesktopDir,"pwn (*.pwn)")
If @error Then Exit
$filu = FileOpen($fi)
TrayTip("","Läuft...",5000)
Local $cu = 0
While 1
	$cu += 1

	$line = FileReadLine($filu)
    If @error = -1 Then ExitLoop
	If StringLen($line)>0 Then
		FileWriteLine(@ScriptDir & "\better.pwn",$line)
	EndIf
	TrayTip("","Zeile: " & $cu & @crlf & $line,5000)
WEnd
FileClose($filu)