Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Dateiinhalte in Textdateien tauschen

Frage Entwicklung Batch & Shell

Mitglied: heimwerker

heimwerker (Level 1) - Jetzt verbinden

30.01.2011 um 18:04 Uhr, 2059 Aufrufe, 2 Kommentare

Hallo Forum

Ich habe ein Problem bei der Bearbetung von gleichartigen Textdateien.
Das folgende Programm funktioniert, leider nur mit einer einzigen Textdatei:

@echo off & setlocal enabledelayedexpansion
mode 90,60

:Start
cls
echo.
set /P Quelldatei= Dateiname der Quelldatei inkl. Endung:
prompt
if not exist %Quelldatei% @echo Die Quelldatei ist im Programmordner nicht vorhanden. & pause & goto :Start
echo.
set /P Zieldatei= Dateiname der Zieldatei inkl. Endung:
prompt
echo.
set /P SucheNach= Gesuchte Zeichenfolge:
prompt
echo.
set /P ErsetzeDurch= Zeichenfolge ersetzen durch:
prompt
echo.
echo.
for /f "delims=" %%i in ('findstr . "%Quelldatei%"') do (set Zeile=%%i & call :ersetzen !Zeile!)
goto :Ende

:ersetzen
set Zeile=!Zeile:%SucheNach%=%ErsetzeDurch%!
if [!Zeile!] equ [] (echo.>>%Zieldatei%) else (echo !Zeile!>>%Zieldatei%)
goto :eof

:Ende
del %Quelldatei%
ren %Zieldatei% %Quelldatei%
echo.
@echo Datei ist korrigiert.
pause
exit

Nun habe ich aber in einem ganzen Stapel von .asc's oder .csv's Änderungen vorzunehmen.
Gezielt suche ich z. B. nach "," und will es mit " " ersetzen.
Es müßte also jede *.asc abgearbeitet, der Originalname am Dateiende wieder hergestellt und die nächste .asc eingelesen werden.

Wer kann mir helfen, meine Denkblockade zu beseitigen?

Gruß und danke vorerst.
Mitglied: bastla
30.01.2011 um 18:47 Uhr
Hallo heimwerker und willkommen im Forum!

Unter der Annahme, dass die Ersetzung mit Deinem (übrigens nicht als Code formatierten) Batch tatsächlich funktioniert, könnte die Verarbeitung aller Dateien eines anzugebenden Typs (ungetestet )etwa so erfolgen:
01.
@echo off & setlocal enabledelayedexpansion 
02.
mode 90,60 
03.
 
04.
set /P QuelldateiTyp= Dateityp der Quelldatei (zB asc):  
05.
prompt 
06.
if not exist *.%QuelldateiTyp% echo Keine Quelldateien vorhanden. & pause & goto :eof 
07.
set /P SucheNach= Gesuchte Zeichenfolge: 
08.
prompt 
09.
echo. 
10.
set /P ErsetzeDurch= Zeichenfolge ersetzen durch: 
11.
prompt 
12.
echo. 
13.
echo. 
14.
 
15.
set "Zieldatei=%temp%\MitErsetzung.tmp" 
16.
for /f "delims=" %%a in ('dir /b /a-d *.%QuelldateiTyp%') do call :ProcessFile "%%a" 
17.
echo Alle Ersetzungen vorgenommen 
18.
pause 
19.
goto :eof 
20.
 
21.
:ProcessFile 
22.
for /f "delims=" %%i in ('findstr . %1) do (set Zeile=%%i & call :ersetzen !Zeile!) 
23.
move %Zieldatei% %1 
24.
goto :eof 
25.
 
26.
:ersetzen 
27.
set Zeile=!Zeile:%SucheNach%=%ErsetzeDurch%! 
28.
if [!Zeile!] equ [] (echo.>>%Zieldatei%) else (echo !Zeile!>>%Zieldatei%) 
29.
goto :eof
Nur interessehalber: Wozu sollen eigentlich die Zeilen mit "prompt" gut sein?

Grüße
bastla
Bitte warten ..
Mitglied: heimwerker
30.01.2011 um 19:36 Uhr
Danke für die nette Begrüßung, die schnelle Antwort und was soll ich dazu noch sagen, außer:
Den Seinen gibt's der Herr im Schlafe...

In der Zeile 20 mußte ich nur noch hinter %1 ein einfaches ' setzen und schon lief das Programm astrein durch.

Die prompt waren als Eingabeaufforderung gedacht, sind schon entfernt.

Ich bedanke mich nochmals für Deine Hilfe
Gruß
heimwerker
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Dateiinhalte vergleichen - Gemeinsamkeiten anzeigen (9)

Frage von Rotnasenkater zum Thema Batch & Shell ...

Windows Server
gelöst Dateiinhalt Suche auf Clients an Server 2016 nicht funktionsfähig (2)

Frage von vBurak zum Thema Windows Server ...

Hyper-V
gelöst Festplatte der VMs tauschen (3)

Frage von M4x1m1l14n zum Thema Hyper-V ...

Java
gelöst Textdatei in Array speichern (zeilenweise) (1)

Frage von Bruchsal zum Thema Java ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (26)

Frage von zorlayan zum Thema Windows 10 ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...

Netzwerkgrundlagen
Pro Contra "echtes Subnetting" VLSM (12)

Frage von killing.Apfelkuchen zum Thema Netzwerkgrundlagen ...

Voice over IP
Über Fritzfax over IP gehen nur einige Faxe (11)

Frage von shearer9 zum Thema Voice over IP ...