Jul 13, 2010, updated at 13:02:31 (UTC)

4512

In Textdatei per batch Zeilenumbrüche bei definiertem Zeichen durchführen lassen.

Hallo, hab nun schon lange gesucht, aber noch nichts passendes gefunden.

Ich möchte per batch in einem Textfile jedes mal wenn ein bestimmtes Zeichen steht, in meinem Fall ein "@", einen Zeilenumbruch im Textfile durchführen lassen.

Wie kann ich das lösen?

Meine Datei heißt "Test.txt" und liegt auf c:\Temp

Gruß viking

Please also mark the comments that contributed to the solution of the article

Kommentar vom Moderator Biber am Jul 13, 2010 um 13:02:31 Uhr

Da viking es per Batch (oder evtl. VBSkript?) machen möchte -> verschoben von "Tools & Utilities" nach "Batch & Shell".

Content-Key: 146815

Url: https://administrator.de/contentid/146815

Printed on: April 19, 2024 at 22:04 o'clock

8 Comments

Latest comment

Hallo viking,

mit Batch könnte das so gehen:

Test.txt

Wo@sind@die@Umbrüche?

Hier@sind@sie.

Replace.bat

@echo off &setlocal
set "file=C:\Temp\Test.txt"  

set "tmpfile=%temp%\neu.tmp"  
>"%tmpfile%" type nul  
for /f "delims=: tokens=1*" %%a in ('findstr /n "^" "%file%"') do (  
  set "line=%%b"  
  call :proc
)
move /y "%tmpfile%" "%file%"  
goto :eof

:proc
if not defined line (
  >>"%tmpfile%" echo.  
  goto :eof
)
set "line=%line:@=&echo.%"  
>>"%tmpfile%" (echo.%line%)  
goto :eof

Grüße
rubberman

Und wenn das nicht funtioniert, versuch mal

@echo on & setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do (  
set Text=!Text!@%%i
)
echo\"!Text!">Zwischenspeicher.txt  
:weiter
for /f "tokens=1* delims=@" %%i in (Zwischenspeicher.txt) do (  
echo\%%~i>>Test2.txt
set uebrig=%%~j
if "!uebrig!"=="" goto ende  
echo\!uebrig!>Zwischenspeicher.txt
)
goto weiter
:ende

Mathe172

Hallo rubberman,
bei Deiner Version tut sich gar nichts bei mir.

Gemäß dem Beispiel oben sollte dann im neuen Textfile stehen:
Wo
sind
die
Umbrüche?

Hier
sind
sie.

Gruß Viking

Zitat von @mathe172:

Und wenn das nicht funtioniert, versuch mal

> @echo on & setlocal enabledelayedexpansion
> for /f "delims=" %%i in (test.txt) do (  
> set Text=!Text!@%%i
> )
> echo\"!Text!">Zwischenspeicher.txt  
> :weiter
> for /f "tokens=1* delims=@" %%i in (Zwischenspeicher.txt) do (  
> echo\%%~i>>Test2.txt
> set uebrig=%%~j
> if "!uebrig!"=="" goto ende  
> echo\!uebrig!>Zwischenspeicher.txt
> )
> goto weiter
> :ende
> 

Mathe172

Hallo Mathe172,

bei Deiner Lösung tut sich zwar was, ... er werden 2 Dateien erzeugt.
Aber der Inhalt von Test2.txt ist nur ein Teil von der Ursprungsdatei und es wird wohl nicht jedes "@" berücksichtigt.
In meiner Datei kann in einer Zeile öfter das "@" vorkommen.

Gruß viking

Hallo viking,

bei mir funktioniert das komischerweise problemlos. Für den Fall dass C:\Temp\Test.txt letztlich nicht der Pfad ist und irgendwo Leerzeichen enthalten sind, habe ich oben im Code mal Anführungszeichen hinzugefügt...
BTW Der Code überschreibt die ursprüngliche Datei.

Grüße
rubberman

Hallo rubberman,

habe nun eine andere Lösung im Netz gefunden.

in UltraEdit kannst du im Search and Replace Fenster unter Replace ein ^p eintragen, dann erhältst du einen Zeilenumbruch.

Danke für alle die sich einen Kopf gemacht haben.

viking

Da gibt's so einige Editoren, die das können. Hatte sich aber so angehört, als wolltest du das automatisieren.

Einen hab ich noch:
Speichere mal folgenden Code als Xchange.vbs

Option Explicit

' Syntax:  
'   
' Xchange.vbs Filename -Option1 Old -Option2 New  
'   
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
'   
' Option1/Option2 | Old/New  
' ----------------|------------------------------------------------  
' -L              | any literal expression, like a word or letter  
'                 |  
' -C              | use VB constants:  
'                 |      "Tab"  tab  
'                 |      "CrLf" Windows line break  
'                 |      "Cr"   carriage return  
'                 |      "Lf"   line feed  
'                 |  
' -H              | HEX code for any character  
'   
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
'   
' Example Calls:  
'   
' Xchange.vbs "C:\test.txt" -l ";" -c "tab"  
' will replace semicolons with tabs in C:\test.txt  
'   
' Xchange.vbs "C:\test.txt" -h "3F" -l "!"  
' will replace Character 3F (question mark) with exclamation marks  
'   
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
'   
' Return Code (Errorlevel):  
'   
' 2 Syntax Error  
' 1 File not found  
' 0 No Error  

On Error Resume Next
Dim strFile, optF, xFind, optR, xReplace, fso, text

If Not WScript.Arguments.Count = 5 Then WScript.Quit (2)

strFile = WScript.Arguments(0)
optF = WScript.Arguments(1)
xFind = WScript.Arguments(2)
optR = WScript.Arguments(3)
xReplace = WScript.Arguments(4)

Select Case UCase(optF)
  Case "-L"  
  Case "-H"  
    xFind = ChrW(CLng("&H" & xFind))  
  Case "-C"  
    If UCase(xFind) = "TAB" Then  
      xFind = vbTab
    ElseIf UCase(xFind) = "CRLF" Then  
      xFind = vbCrLf
    ElseIf UCase(xFind) = "CR" Then  
      xFind = vbCr
    ElseIf UCase(xFind) = "LF" Then  
      xFind = vbLf
    Else
      WScript.Quit 2
    End If
  Case Else
    WScript.Quit 2
End Select

Select Case UCase(optR)
  Case "-L"  
  Case "-H"  
    xReplace = ChrW(CLng("&H" & xReplace))  
  Case "-C"  
    If UCase(xReplace) = "TAB" Then  
      xReplace = vbTab
    ElseIf UCase(xReplace) = "CRLF" Then  
      xReplace = vbCrLf
    ElseIf UCase(xReplace) = "CR" Then  
      xReplace = vbCr
    ElseIf UCase(xReplace) = "LF" Then  
      xReplace = vbLf
    Else
      WScript.Quit 2
    End If
  Case Else
    WScript.Quit 2
End Select

If Not Err.Number = 0 Then WScript.Quit 2

Set fso = CreateObject("Scripting.FileSystemObject")  
text = fso.OpenTextFile(strFile, 1).ReadAll
If Not text = "" Then  
  fso.CreateTextFile(strFile).Write Replace(text, xFind, xReplace)
End If
Set fso = Nothing
If Err.Number = 0 Then
  WScript.Quit 0
Else
  WScript.Quit 1
End If

Sorry für die englische Beschreibung am Anfang (ist nicht das erste Forum in dem ich den Code poste).

Nun kannst du leicht folgenden Aufruf aus einer Batchdatei machen:

Xchange.vbs "C:\Temp\Test.txt" -l "@" -c "crlf"  

Grüße
rubberman

Zitat von @rubberman:

Da gibt's so einige Editoren, die das können. Hatte sich aber so angehört, als wolltest du das automatisieren.

Einen hab ich noch:
Speichere mal folgenden Code als Xchange.vbs

> Option Explicit
> 
> ' Syntax:  
> '   
> ' Xchange.vbs Filename -Option1 Old -Option2 New  
> '   
> ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
> '   
> ' Option1/Option2 | Old/New  
> ' ----------------|------------------------------------------------  
> ' -L              | any literal expression, like a word or letter  
> '                 |  
> ' -C              | use VB constants:  
> '                 |      "Tab"  tab  
> '                 |      "CrLf" Windows line break  
> '                 |      "Cr"   carriage return  
> '                 |      "Lf"   line feed  
> '                 |  
> ' -H              | HEX code for any character  
> '   
> ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
> '   
> ' Example Calls:  
> '   
> ' Xchange.vbs "C:\test.txt" -l ";" -c "tab"  
> ' will replace semicolons with tabs in C:\test.txt  
> '   
> ' Xchange.vbs "C:\test.txt" -h "3F" -l "!"  
> ' will replace Character 3F (question mark) with exclamation marks  
> '   
> ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
> '   
> ' Return Code (Errorlevel):  
> '   
> ' 2 Syntax Error  
> ' 1 File not found  
> ' 0 No Error  
> 
> On Error Resume Next
> Dim strFile, optF, xFind, optR, xReplace, fso, text
> 
> If Not WScript.Arguments.Count = 5 Then WScript.Quit (2)
> 
> strFile = WScript.Arguments(0)
> optF = WScript.Arguments(1)
> xFind = WScript.Arguments(2)
> optR = WScript.Arguments(3)
> xReplace = WScript.Arguments(4)
> 
> Select Case UCase(optF)
>   Case "-L"  
>   Case "-H"  
>     xFind = ChrW(CLng("&H" & xFind))  
>   Case "-C"  
>     If UCase(xFind) = "TAB" Then  
>       xFind = vbTab
>     ElseIf UCase(xFind) = "CRLF" Then  
>       xFind = vbCrLf
>     ElseIf UCase(xFind) = "CR" Then  
>       xFind = vbCr
>     ElseIf UCase(xFind) = "LF" Then  
>       xFind = vbLf
>     Else
>       WScript.Quit 2
>     End If
>   Case Else
>     WScript.Quit 2
> End Select
> 
> Select Case UCase(optR)
>   Case "-L"  
>   Case "-H"  
>     xReplace = ChrW(CLng("&H" & xReplace))  
>   Case "-C"  
>     If UCase(xReplace) = "TAB" Then  
>       xReplace = vbTab
>     ElseIf UCase(xReplace) = "CRLF" Then  
>       xReplace = vbCrLf
>     ElseIf UCase(xReplace) = "CR" Then  
>       xReplace = vbCr
>     ElseIf UCase(xReplace) = "LF" Then  
>       xReplace = vbLf
>     Else
>       WScript.Quit 2
>     End If
>   Case Else
>     WScript.Quit 2
> End Select
> 
> If Not Err.Number = 0 Then WScript.Quit 2
> 
> Set fso = CreateObject("Scripting.FileSystemObject")  
> text = fso.OpenTextFile(strFile, 1).ReadAll
> If Not text = "" Then  
>   fso.CreateTextFile(strFile).Write Replace(text, xFind, xReplace)
> End If
> Set fso = Nothing
> If Err.Number = 0 Then
>   WScript.Quit 0
> Else
>   WScript.Quit 1
> End If
> 

Sorry für die englische Beschreibung am Anfang (ist nicht das erste Forum in dem ich den Code poste).

Nun kannst du leicht folgenden Aufruf aus einer Batchdatei machen:

> Xchange.vbs "C:\Temp\Test.txt" -l "@" -c "crlf"  
> 

Grüße
rubberman

Hallo rubberman,

das funktioniert nun bei mir auch.

Danke viking

German solved Question Batch, Shell Development

Hotly discussed

Check of ZFW Firewallgleixnerd - 3 Comments

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments

WIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 Comments

End of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment