#include <Array.au3>
Sleep (2000)
Local $rFile = (@ScriptDir & "\playlist.txt")
Local $aFile = FileReadToArray($rFile)
Local $wFile = FileOpen(@ScriptDir & "\playlist.txt",2)


For $i = 0 To UBound($aFile) -1 Step +1
    If $aFile[$i] <> "" Then
		Sleep(100)
        FileWriteLine($wFile,StringStripWS($aFile[$i],3))
    EndIf
Next