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
GELÖST

Eine von zwei gleichbeginnenden Zeilen in TXT löschen lassen

Frage Entwicklung Batch & Shell

Mitglied: Rookie-Doo

Rookie-Doo (Level 1) - Jetzt verbinden

16.10.2008, aktualisiert 16:05 Uhr, 3586 Aufrufe, 4 Kommentare

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
Mitglied: bastla
16.10.2008 um 13:52 Uhr
Hallo Rookie-Doo!

Sollte so gehen:
01.
@echo off & setlocal 
02.
set "File=D:\SMS.txt" 
03.
set "Bak=.bak" 
04.
set "Del=Beschreibung:" 
05.
set "Mark=Datum/Uhrzeit:" 
06.
 
07.
move "%File%" "%File%%Bak%" 
08.
set Latest= 
09.
set First=true 
10.
for /f "tokens=1* delims=:" %%i in ('findstr /n "^" "%File%%Bak%"') do set "Line=%%j" & call :ProcessLine 
11.
>>"%File%" echo\%Latest% 
12.
goto :eof 
13.
 
14.
:ProcessLine 
15.
if defined First goto :ProcessLineDone 
16.
echo %Line%|findstr /b "%Mark%">nul || goto :Write 
17.
echo %Latest%|findstr /b "%Del%">nul && goto :ProcessLineDone 
18.
 
19.
:Write 
20.
>>"%File%" echo\%Latest% 
21.
 
22.
:ProcessLineDone 
23.
set First= 
24.
set "Latest=%Line%" 
25.
goto :eof
Falls Du die Sicherungskopie (%Bak% = ".bak" wird an den ursprünglichen Dateinamen angefügt) nicht behalten willst, kannst du noch
del "%File%%Bak%"
vor Zeile 12 einfügen.

Grüße
bastla
Bitte warten ..
Mitglied: Rookie-Doo
16.10.2008 um 15:45 Uhr
Hallo bastla,

funktioniert super. Vielen Dank! =)
Bitte warten ..
Mitglied: Rookie-Doo
16.10.2008 um 15:56 Uhr
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?
Bitte warten ..
Mitglied: bastla
16.10.2008 um 16:05 Uhr
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:
01.
File = "D:\SMS.txt" 
02.
Del = "Beschreibung:" 
03.
Mark = "Datum/Uhrzeit:" 
04.
 
05.
LenDel = Len(Del) 
06.
LenMark = Len(Mark) 
07.
 
08.
Set fso = CreateObject("Scripting.FileSystemObject") 
09.
Lines = Split(fso.OpenTextFile(File).ReadAll, vbCrLF) 
10.
 
11.
NewText = "" 
12.
For i = 0 To UBound(Lines) - 1 
13.
    If Left(Lines(i), LenDel) <> Del Then 
14.
        NewText = NewText & Lines(i) & vbCrLF 
15.
    Else 
16.
        If Left(Lines(i + 1), LenMark) <> Mark Then 
17.
            NewText = NewText & Lines(i) & vbCrLF 
18.
        End If 
19.
    End If 
20.
Next 
21.
NewText = NewText & Lines(i) 
22.
 
23.
fso.CreateTextFile(File, True).Write NewText
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
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Rechtliche Fragen
Landgericht Köln entdeckt, dass SMS sich löschen lassen (3)

Link von tomolpi zum Thema Rechtliche Fragen ...

Batch & Shell
Powershell - Zeilen in einer csv löschen bis (7)

Frage von Franz-Josef-II zum Thema Batch & Shell ...

Debian
gelöst ISPCONFIG löschen. client-ordner lassen sich nicht löschen (3)

Frage von Moddry zum Thema Debian ...

Perl
gelöst Mit Perl aus einer Datei teilidentische Zeilen löschen (5)

Frage von Jeduja zum Thema Perl ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...