#include <Array.au3>
#include <File.au3>
HotKeySet("{F7}", "ShowEmpty")
HotKeySet("{F8}", "DeleteEmpty")
Global $sFilePath
$sFilePath = [quote=12815]script[/quote]Dir & "\Text.txt"
If Not FileExists($sFilePath) Then
MsgBox(4096, "", "Textdatei nicht vorhanden!")
Exit
EndIf
While True
Sleep(100)
WEnd
Func ShowEmpty()
Local $aLines
Local $aEmptyLines[1] = ["Zeile"]
_FileReadToArray($sFilePath, $aLines)
For $i = 1 To $aLines[0]
If $aLines[$i] = "" Then
_ArrayAdd($aEmptyLines, "Zeile Nr.: " & $i)
EndIf
Next
_ArrayDisplay($aEmptyLines, "Leere Zeilen gefunden bei Position: ")
EndFunc
Func DeleteEmpty()
Local $sText, $sNewText, $hFile
$sText = FileRead($sFilePath)
$sNewText = StringRegExpReplace($sText, '(?m:^\s*[\r\n])', '')
$hFile = FileOpen("NewText.txt", 2)
FileWrite($hFile, $sNewText)
FileClose($hFile)
EndFunc