Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 2061 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 ...

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

Frage von Bruchsal zum Thema Java ...

VB for Applications
Import Textdatei von Dateiname aus Zelle (2)

Frage von grasihuepfer zum Thema VB for Applications ...

Neue Wissensbeiträge
Sicherheit

Millionen Euro in den Sand gesetzt?

(3)

Information von transocean zum Thema Sicherheit ...

Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Firewall
gelöst Firewall Firmeneimsatz (22)

Frage von wiesi200 zum Thema Firewall ...

Multimedia & Zubehör
gelöst 8 GB USB Stick besitzt nur noch 4 MB Kapazität (13)

Frage von Gwahlers zum Thema Multimedia & Zubehör ...

LAN, WAN, Wireless
Eine Netzwerkdose im Wechsel für zwei unterschiedliche Netze (11)

Frage von kartoffelesser zum Thema LAN, WAN, Wireless ...

Windows Server
ESXI Free Windows Server 2016 Datacenter aktivieren (10)

Frage von iDeathz zum Thema Windows Server ...