Word 2016: Möchte nicht jede 2-zeile markieren müssen und löschen geht das schnelller? Habe leider keine Ahnung von VBA . Möchte in einem word - dokument mit 12.000 wörter… jede 2-te zeile löschen … beginnend mit der ersten zeile. könnt ihr mir helfen ?
Woran erkennst du eine Zeile?
Gruß
damals
so schauts aus:
17:50
Text…
17:51
Text…
17:53
Text…
Hallo @Pit3
ich gehe mal davon aus, dass es sich um eine einfache Textdatei handelt und nichts mit Word zu tun hat. Daher kann man auf VBA verzichten und auch mit anderen Mitteln (u.A. Powershell) das Problem lösen.
Ich benutze dafür Perl, da ich kein Windows habe.
Hier der Code dafür, der in der PowerShell ähnlich aussehen sollte.
use strict;
use warnings;
my $datei = „www.txt“;
Vars deklarieren
my $fhi;
my @inhalt;
Textdatei öffnen und in ein Array speichern
funktioniert hier nur wenn Programm und Daten im selben Verzeichnis liegen
open($fhi, „<“, $datei) || die „Fehler:“;
@inhalt = <$fhi>;
close($fhi);
Array zeilenweise durchsuchen
foreach(@inhalt){
# Suchstring definieren: 2 Ziffern + : + 2 Ziffern
next if($_ =~ /^[0-9]{2}+:+[0-9]{2}+$/); # nächste Zeile aufrufen, wenn suche erfogreich
print $_; # Zeile ausgeben, wenn Suche nicht erfogreich
}
Die Ausgabe der Prozedur kann man dann nach der Prüfung in eine neue .txt-Datei umleiten, dann hast Du dein gewünschtes Ergebnis. Das Original bleibt erhalten.
Warum so umständlich?
Weil immer mal ein Steuerzeichen in einer solch großen Datei die Reihenfolge verändern kann und ein blindes Löschen jeder 2. Zeile die Daten unwiederbringlich zerstören könnte.
Viel Erfolg damit & Gruß,
charly60
was für ein Dateiformat hat denn die Datei überhaupt?