hallo Julia,
Wie bekommst du den Inhalt der (Text?)Datei in das Textfeld (meinst du eine textarea?).
#Text-Widget mit 2 Scrollbars (rechts)
Oh. Das hättest du gleich sagen können, daß du PERL/Tk nimmst.
sub open {
open (FILE, "< $input") || die "Datei konnte nicht geöffnet werden!\n";
my $i = 0; #Fortlaufende Numerierung initialisieren
Das würde ich anders machen, zum Beispiel:
@ZEILEN = <FILE>;
close(FILE);
Danach hast du deine Input-Daten im Array @ZEILEN stehen und kannst die einzelnen Zeilen weiterbearbeiten, ungefähr nach diesem Schema:
foreach my $zeile (@ZEILEN) {
if ($zeile ...beginnt mit einer Ziffer oder Zahl...) {
$zeile =~ s/[0-9]//g;
print $zeile;
}
}
Den Regulären Ausdruck mußt du natürlich so gestalten, wie du ihn brauchst.
Grüße aus Berlin
Christoph S.
mailto:christoph.schnauss@berlin.de
http://www.christoph-schnauss.de
ss:| zu:) ls:& fo:) va:) sh:| rl:|