4
Eine von zwei gleichbeginnenden Zeilen in TXT löschen lassen
Hallo,
ich möchte eine ganze Reihe von SMS ausdrucken. Das Backup-Programm hat leider in der TXT einige Informationszeilen hinzugefügt, die nur Platz verschwenden.
Alle SMS befinden sich in einer TXT nach folgendem Format untereinander:
Mitteilungstyp: Kurzmitteilung
Von: Nummer
An: ""
Cc:
Bcc:
Details : zuechen
Beschreibung: Textvorschau
Datum/Uhrzeit: 01.08.2008 02:12:09
Größe: 232 Bytes
Beschreibung: kompletter Text
Mitteilungstyp: Kurzmitteilung
Von: Nummer
An: ""
Cc:
Bcc:
Details : zuechen
Beschreibung: Textvorschau
Datum/Uhrzeit: 31.07.2008 13:34:08
Größe: 201 Bytes
Beschreibung: kompletter Text
Für das Löschen der Zeilen nach "Mitteilungstyp", "CC", "BCC", "Details" und "Größe" habe ich bereits einen Weg gefunden und ein Script hier aus dem Forum zurechtgefrickelt.
Jetzt möchte aber noch die Zeile beginnend mit "Beschreibung" vor der Zeile "Datum/Uhrzeit" löschen lassen.
Kann mir jemand eine Batch-Datei schreiben, die mir dies noch realisiert?
Gruß und vielen Dank im Voraus
rkd
ich möchte eine ganze Reihe von SMS ausdrucken. Das Backup-Programm hat leider in der TXT einige Informationszeilen hinzugefügt, die nur Platz verschwenden.
Alle SMS befinden sich in einer TXT nach folgendem Format untereinander:
Mitteilungstyp: Kurzmitteilung
Von: Nummer
An: ""
Cc:
Bcc:
Details : zuechen
Beschreibung: Textvorschau
Datum/Uhrzeit: 01.08.2008 02:12:09
Größe: 232 Bytes
Beschreibung: kompletter Text
Mitteilungstyp: Kurzmitteilung
Von: Nummer
An: ""
Cc:
Bcc:
Details : zuechen
Beschreibung: Textvorschau
Datum/Uhrzeit: 31.07.2008 13:34:08
Größe: 201 Bytes
Beschreibung: kompletter Text
Für das Löschen der Zeilen nach "Mitteilungstyp", "CC", "BCC", "Details" und "Größe" habe ich bereits einen Weg gefunden und ein Script hier aus dem Forum zurechtgefrickelt.
Jetzt möchte aber noch die Zeile beginnend mit "Beschreibung" vor der Zeile "Datum/Uhrzeit" löschen lassen.
Kann mir jemand eine Batch-Datei schreiben, die mir dies noch realisiert?
Gruß und vielen Dank im Voraus
rkd
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 99451
Url: https://administrator.de/contentid/99451
Printed on: April 19, 2024 at 00:04 o'clock
4 Comments
Latest comment
Hallo Rookie-Doo!
Sollte so gehen:
Falls Du die Sicherungskopie (%Bak% = ".bak" wird an den ursprünglichen Dateinamen angefügt) nicht behalten willst, kannst du noch
vor Zeile 12 einfügen.
Grüße
bastla
Sollte so gehen:
@echo off & setlocal
set "File=D:\SMS.txt"
set "Bak=.bak"
set "Del=Beschreibung:"
set "Mark=Datum/Uhrzeit:"
move "%File%" "%File%%Bak%"
set Latest=
set First=true
for /f "tokens=1* delims=:" %%i in ('findstr /n "^" "%File%%Bak%"') do set "Line=%%j" & call :ProcessLine
>>"%File%" echo\%Latest%
goto :eof
:ProcessLine
if defined First goto :ProcessLineDone
echo %Line%|findstr /b "%Mark%">nul || goto :Write
echo %Latest%|findstr /b "%Del%">nul && goto :ProcessLineDone
:Write
>>"%File%" echo\%Latest%
:ProcessLineDone
set First=
set "Latest=%Line%"
goto :eofdel "%File%%Bak%"
Grüße
bastla
Hallo bastla,
funktioniert super. Vielen Dank! =)
funktioniert super. Vielen Dank! =)
Kommando zurück, irgendwas scheint da doch nicht ganz zu funktionieren. Das Script scheint irgendwo aufzuhören, jedenfalls wurden bei meinem letzten Versuch nur 14 Abschnitte bedabeitet, der 15. ist in der Ergebnis-TXT nur halb vorhanden.
Woran könnte das liegen?
Woran könnte das liegen?
Hallo Rookie-Doo!
Irgendwelche Sonderzeichen der Art "<>|&" oder nicht paarweise auftretende Anführungszeichen in Abschnitt 15?
Eigentlich ist aber ohnehin VBScript für Derartiges besser geeignet, daher lieber so:
Da es hier einfacher ohne ".bak"-Datei geht, habe ich diese (vorerst) weggelassen und schreibe die geänderte Fassung gleich in die Ausgangsdatei.
Grüße
bastla
Irgendwelche Sonderzeichen der Art "<>|&" oder nicht paarweise auftretende Anführungszeichen in Abschnitt 15?
Eigentlich ist aber ohnehin VBScript für Derartiges besser geeignet, daher lieber so:
File = "D:\SMS.txt"
Del = "Beschreibung:"
Mark = "Datum/Uhrzeit:"
LenDel = Len(Del)
LenMark = Len(Mark)
Set fso = CreateObject("Scripting.FileSystemObject")
Lines = Split(fso.OpenTextFile(File).ReadAll, vbCrLF)
NewText = ""
For i = 0 To UBound(Lines) - 1
If Left(Lines(i), LenDel) <> Del Then
NewText = NewText & Lines(i) & vbCrLF
Else
If Left(Lines(i + 1), LenMark) <> Mark Then
NewText = NewText & Lines(i) & vbCrLF
End If
End If
Next
NewText = NewText & Lines(i)
fso.CreateTextFile(File, True).Write NewTextGrüße
bastla
