Textdatei per Script editieren
Hallo,
ich bin im Rahmen meines Praktikums auf folgendes Problem gestoßen:
Ich möchte folgende Textdatei mit Hilfe eines kleinen Scriptes editieren
A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
C;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
D;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
E;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
F;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
G;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
H;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
die editierte Datei sollte dann folgendermaßen aussehen:
A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
C;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
D;;;;;;;10;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
E;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
F;;;;;;;;;;;A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
G;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
H;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Dabei ist die Position der Einträge 10 (Zeile 4 Spalte 8) und A (Zeile 6 Spalte 12) in jeder Datei dieselbe. Die Anzahl der Semikolons hinter den Einträgen ist variabel und muss auch erhalten bleiben.
Leider habe ich von Programmiersprachen nicht soviel Ahnung! Habe auch schon das Forum durchsucht, aber nichts passendes gefunden. Die Sprache wäre egal (Batch/VBS), muss aber mit Windows-Mitteln umsetzbar sein.
Vielleicht könnt ihr mir weiterhelfen mit Dank schon mal im Voraus!
mfg
horstmeysel
ich bin im Rahmen meines Praktikums auf folgendes Problem gestoßen:
Ich möchte folgende Textdatei mit Hilfe eines kleinen Scriptes editieren
A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
C;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
D;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
E;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
F;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
G;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
H;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
die editierte Datei sollte dann folgendermaßen aussehen:
A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
C;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
D;;;;;;;10;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
E;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
F;;;;;;;;;;;A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
G;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
H;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Dabei ist die Position der Einträge 10 (Zeile 4 Spalte 8) und A (Zeile 6 Spalte 12) in jeder Datei dieselbe. Die Anzahl der Semikolons hinter den Einträgen ist variabel und muss auch erhalten bleiben.
Leider habe ich von Programmiersprachen nicht soviel Ahnung! Habe auch schon das Forum durchsucht, aber nichts passendes gefunden. Die Sprache wäre egal (Batch/VBS), muss aber mit Windows-Mitteln umsetzbar sein.
Vielleicht könnt ihr mir weiterhelfen mit Dank schon mal im Voraus!
mfg
horstmeysel
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 50006
Url: https://administrator.de/contentid/50006
Ausgedruckt am: 28.03.2024 um 10:03 Uhr
4 Kommentare
Neuester Kommentar
Hallo horstmeysel und willkommen im Forum!
So könnte es gehen:
Der Block am Anfang enthält statisch die Dateinamen (die Ausgangsdatei wird auf "Alt.txt" umbenannt und bleibt bis zum nächsten Programmlauf erhalten) und die Ergänzungsdaten.
Es findet keine Fehlerprüfung (zB auf Vorhandensein der Ausgangsdatei, richtige Pfadangaben oder ausreichende Länge der Datenzeilen, um etwa nach Spalte 12 ergänzen zu können) statt.
Verbesserungs-/Erweiterungsmöglichkeiten wären außerdem die Übergabe der Ausgangsdatei als Argument beim Aufruf des Scripts oder das Einlesen der Ergänzungsdaten aus einer weiteren Textdatei.
Grüße
bastla
So könnte es gehen:
'Ergänzen.vbs
Const sDatei = "D:\Daten.txt" 'vollständigen Pfad angeben
Const sAlt = "D:\Alt.txt" 'vollständigen Pfad angeben
Dim iZeile(2), iSpalte(2), sText(2)
iZeile(1) = 4: iSpalte(1) = 8: sText(1) = "10"
iZeile(2) = 6: iSpalte(2) = 12: sText(2) = "A"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(sAlt) Then fso.DeleteFile(sAlt)
Set oDatei = fso.GetFile(sDatei)
oDatei.Name = Mid(sAlt, InstrRev(sAlt, "\") + 1)
Set oDatei = fso.OpenTextFile(sDatei, 2, True)
Set oAlt = fso.OpenTextFile(sAlt, 1)
iZeilenNr = 0
Do While Not oAlt.AtEndOfStream
sZeile = oAlt.ReadLine
iZeilenNr = iZeilenNr + 1
For i = 1 To UBound(iZeile)
If iZeile(i) = iZeilenNr Then
sZeile = Left(sZeile, iSpalte(i)) & _
sText(i) & _
Mid(sZeile, iSpalte(i) + 1)
End If
Next
oDatei.WriteLine sZeile
Loop
oDatei.Close
oAlt.Close
MsgBox "Fertig."
Es findet keine Fehlerprüfung (zB auf Vorhandensein der Ausgangsdatei, richtige Pfadangaben oder ausreichende Länge der Datenzeilen, um etwa nach Spalte 12 ergänzen zu können) statt.
Verbesserungs-/Erweiterungsmöglichkeiten wären außerdem die Übergabe der Ausgangsdatei als Argument beim Aufruf des Scripts oder das Einlesen der Ergänzungsdaten aus einer weiteren Textdatei.
Grüße
bastla
Hallo horstmeysel!
Auf besonderen Wunsch in Batch:
Eleganter ist's aber trotzdem nicht geworden ...
Grüße
bastla
Auf besonderen Wunsch in Batch:
@echo off & setlocal
set "Datei=D:\Daten.txt"
set "Alt=D:\Alt.txt"
if exist "%Alt%" del "%Alt%"
for /f "delims=" %%i in ('echo %Alt%') do ren "%Datei%" "%%~nxi"
set /a Zeile=0
for /f "delims=" %%i in ('type "%Alt%"') do call :ProcessLine "%%i"
goto :eof
:ProcessLine
set "Ein=%~1"
set /a Zeile+=1
if %Zeile%==4 (
set "Aus=%Ein:~0,8%10%Ein:~8%"
) Else (
if %Zeile%==6 (
set "Aus=%Ein:~0,12%A%Ein:~12%"
) Else (
set "Aus=%Ein%"
)
)
)
echo %Aus% >> %Datei%
Grüße
bastla