Hallo! Vielleicht hilft Dir ja auch schon die Option Extras-> Zeilen zusammenführen im KDE-Editor Kate? Hat mir jedenfalls schon oft geholfen beim Rückgängigmachen von Zeilenumbrüchen.

...

Hallo Listige,

folgendes Problem: Ein Kollege hat ein ca. 200-seitiges Manual verbrochen und das orginale Worddokument gekillt. Die einzige Version, die noch vorliegt, ist eine einfachte Textdatei, die jedoch komplett umgebrochen ist (maximale Zeilenbreite ist 76).

Ich wollte jetzt ein kleines Utility mit folgender Funktionalität basteln:

Kopiere eine Textdatei "Ein.txt" in eine andere Textdatei "Aus.txt". Dabei folgende Ersetzungen der Zeilenvorschuebe [cr] vornehmen:

a) Umbrüche raus: text1[cr]text2 -> text1[leerzeichen]text2 b) Silbentrennungen: text1-[cr]text2 -> texttext (Ausnahme: text2 ist groß geschrieben! Dann Bindestrich!?) c) Satz+Absatzende erkennen: text1[./!/?][cr] -> [cr] erhalten d) Unnötige Leerzeilen löschen: n[cr] -> [cr]

Ich hoffe ich habe jetzt nichts Wesentliches vergessen... Das Teil soll also möglichst automatisch die einzelnen Zeilen eines Absatzes zusammenfügen.

Frage: gibt es ein fertiges Programm, das diese Arbeit für mich erledigen kann? Ggf. mit einer für diesen Zweck zu erstellenden Konfigurationsdatei.

Am Mittwoch, 26. Mai 2004 13:37 schrieb Andreas Scherer:

Am Mittwoch, 26. Mai 2004 12:42 schrieb Templado:

...

Hallo! Vielleicht hilft Dir ja auch schon die Option Extras-> Zeilen zusammenführen im KDE-Editor Kate? Hat mir jedenfalls schon oft geholfen beim Rückgängigmachen von Zeilenumbrüchen.

1. Du hast schon gelesen, dass es sich um 200 Seiten handelt?

2. Bitte sieh mal nach bei http://learn.to/quote/ wie man richtig 'quotet'.

...

...

...

Hallo Listige,

folgendes Problem: Ein Kollege hat ein ca. 200-seitiges Manual verbrochen und das orginale Worddokument gekillt. Die einzige Version, die noch vorliegt, ist eine einfachte Textdatei, die jedoch komplett umgebrochen ist (maximale Zeilenbreite ist 76).

[...]

Gruss, Andreas.

hallo an alle! ich habe eine vorabversion bereits an michael geschickt, da hier das Interesse doch größer wurde poste ich den hauptteil eines Lösungsskripts, wer das vollständige, auskommentierte skript möchte soll mir mailen! gruss d ----- skriptvorschlag ---- #!/usr/bin/perl use Getopt::Std; our($opt_t, $opt_i, $opt_o, $opt_f); use strict; my ( $usage, $satzenden, $infile, $outfile, $c1, $c2, $line, $nextline ); $satzenden = ".!?"; getopt('tio'); def_usage(); $/ = "\r\n" if ( $opt_t =~ /dos/ ); $/ = "\r" if ( $opt_t =~ /mac/ ); $infile = $opt_i; die "$infile gibt es nicht!\n" if not (-e $infile); if ($opt_o) { $outfile = $opt_o; } else { $outfile = "$infile.weg"; print "Ausgabe in $outfile\n\n"; } die "$outfile existiert, bitte -o ändern oder -f angeben" if ( -e $outfile and not $opt_f ); open(IN, "< $infile" ) or die "Kann $infile nicht lesen!: $!\n"; open(OUT, "> $outfile" ) or die "Kann $outfile nicht schreiben!: $!\n"; while ( $line = <IN> ) { $c1++; chomp $line; next if not $line; if ( $line =~ /[$satzenden]$/m ) { $line .= $/; } elsif ( $line =~ /-$/ ) { $nextline = <IN>; if ($nextline =~ /^[a-z]/m) { $line =~ s/-$//; $line .= $nextline; } elsif ($nextline =~ /^[A-Z]/m) { $line .= $nextline; } else { $line .= " " . $nextline } redo } else { $line .= " "; } print OUT $line; $c2++; } print "************ ", 35 x "*", "** ************* ** ", 35 x "*", "\n" ; printf "Eingabedatei %-35s ** Ausgabedatei ** %-35s\n", $infile, $outfile; printf "Eingabezeilen %-35s ** Ausgabezeilen ** %-35s\n\n", $c1, $c2; # da der Hilfetext im Ablauf gestört hat # definiere ich ihn hier!! sub def_usage { $usage = <<"_END_"; $0 -t dos|unix|mac -i infile.txt [ -o outfile.txt -f ] Das perlskript verwandelt kurz umgebrochene Textfiles in Files, die (hoffentlich) nur noch nach Satzendezeichen Zeilenumbrüche enthalten. Da das Skript nicht auf den Dateityp (dos|unix|mac) prüft MUSS er mit -t angegeben werden!! -t dos # Zeilenende <cr><lf> -t unix # Zeilenende <lf> -t mac # Zeilenende <cr> -i infile # Muss-Angabe -o outfile # wie soll das Kindchen heissen? # ohne Angabe output in infile.weg -f force # überschreibt ein bestehendes outfile _END_ die "$usage" if (not $opt_i); die "$usage" if (not $opt_t); }