'v5.1******************************************************** 

' File:   crlf-entfernen.vbs 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de 

'  

' entfernt alle CR, LF und CRLF aus einer Datei. 

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

Dim WSHShell, fso, FileIn, FileOut 

Dim Datei, Text, Txt, i, arrSort, arrTest(), oArgs 

 

Set WSHShell = WScript.CreateObject("WScript.Shell") 

Set fso      = WScript.CreateObject("Scripting.FileSystemObject") 

set oArgs    = Wscript.Arguments 

 

 

' Fals ein Argument übergeben wurde, sollte es einen Dateinamen  

' enthalten 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

For i = 0 to oArgs.Count - 1                 ' hole alle Argumente  

  Datei = oArgs.item(i) 

  If not fso.FileExists( Datei ) then 

    MsgBox UCase( Datei ) & "   existiert nicht!" & vbCRLF & vbCRLF & " . . . das ist das Ende.", , WScript.ScriptName 

    WScript.Quit 

  End If 

  Exit For                                   ' nur das erste Argument reicht 

Next  

 

 

' Gibt's keinen Dateinamen, wird halt das Skript gelesen 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

if Datei = "" then Datei = WScript.ScriptName 

 

 

' Datei komplett einlesen 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

Set FileIn  = FSO.OpenTextFile(Datei, 1 )                    ' Datei zum Lesen öffnen  

 

    Text = FileIn.ReadAll 

 

    FileIn.Close 

Set FileIn  = nothing 

 

 

 

' Inhalt bearbeiten 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

MsgBox Text 

    Text = Replace( Text, vbCRLF , "" ) 

    Text = Replace( Text, vbCRLF , "" ) 

    Text = Replace( Text, vbCR   , "" ) 

    Text = Replace( Text, vbCR   , "" ) 

    Text = Replace( Text, vbLF   , "" ) 

    Text = Replace( Text, vbLF   , "" ) 

MsgBox Text 

 

 

' (Ziel-) Datei schreiben 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

 

Datei = fso.GetBaseName( Datei ) & "-.txt" 

 

Set FileOut  = FSO.OpenTextFile( Datei , 2, true) ' Datei zum Screiben öffnen; 2: immer neu anlegen 

 

    FileOut.Write( Text ) 

 

    FileOut.Close 

Set FileOuT  = nothing 

 

 

' (Ziel-) Datei anzeigen 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

WSHShell.run "notepad """ & Datei & """" , , True        ' True: Skriptabarbeitung wartet bis Programm (notepade) beendet ist 

 

 

' (Ziel-) Datei löschen 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

fso.DeleteFile( Datei )