Tk Modul Textdatei auslesen unter insert (Graphische Oberflächen)

[thread]4832[/thread]

Tk Modul Textdatei auslesen unter insert

Alexfo85

2004-08-27 22:30

User since
2004-08-18
20 Artikel
BenutzerIn
[default_avatar]

also... beschreibung deines problems wäre net schlecht...
$box->insert("end", $var)
ist an sich ok...

allerdings ist die Frage natürlich bei einer Listbox, ob du wie bei dir geschrieben alles in einem Element ahben willst, oder Zeilenweise, zum auswählen..
wenn elke.txt nur 1 Zeile hat... dann ist nur die Klammersetzung falsch... bzw, das print zu nem return, und die referenz..

Richtig:

Code: (dl )

$box->insert('end', &text); # Keine Ref nötig..
## ^ vor den mainloop!!

sub text {
open(DATEI,"<elke.txt")
or die "Datei kann nicht geladen werden";


undef $/;
my $text=<DATEI>;
close (DATEI);
return $text;

}

Falls du aber was ich denke... mehrere Zeilen inder elke.txt hast, die verschiedene einträge sein sollen, würde ich folgendes empfelen:

Code: (dl )

# Vor den Mainloop
&text;         # Sub Text starten
# dannach, oder egal;)

sub text {
open(DATEI,"<elke.txt")
or die "Datei kann nicht geladen werden";
while(<DATEI>)      # Datei zeilenweise lesen
{
  chomp $_;           #letzes Zeichen, falls Steuerzeichen, entfernen
  $box->insert("end", $_); # Ab damit ans ende der Box
}
close (DATEI);

}

elke

2004-08-27 17:55

User since
2004-08-24
4 Artikel
BenutzerIn
[default_avatar]

Hallo,
wer kann mir helfen?
Ich über unter dem Tk Module in einer Listbox eine Text Datei einzubinden.
Hier das Script
Wie lautet ->insert

Danke im voraus

#----------------------Script-------------------------------

Code: (dl )

#!/usr/bin/perl -w

use strict;
use Tk;

my $haupt = new MainWindow;
$haupt->Label(-text=> "Datei wird eingelesen")->pack();
my $box=$haupt->Listbox();
$box->pack();


MainLoop();

sub text {
  open(DATEI,"<elke.txt") 
     or die "Datei kann nicht geladen werden";

  undef $/;
  my $text=<DATEI>;
  close (DATEI);
  print "$text";


  $box->insert('end',"".\&text);
}

edit renee: [code]-Tags spendiert\n\n

Crian

2004-08-30 11:18

User since
2003-08-04
5873 Artikel
ModeratorIn

Die Frage gehört mehr ins Oberflächen-Forum *schieb*

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2004-08-27 22:30.