Thread in listbox nach pattern suchen (8 answers)
Opened by hudo at 2003-12-03 19:05

hudo
 2003-12-04 19:44
#46300 #46300
User since
2003-11-20
72 articles
BenutzerIn
[default_avatar]
Sieht bei mir grad so aus:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
my $eingabe= $frame2->Entry(-textvariable=>\$suchvariable ,-exportselection=>1 ,selectbackground=>"green" ,-selectforeground=>"yellow")->pack(-anchor=>"w" ,-padx=>10 ,-pady=>5 ,-fill=>"x");

##### suche in listbox ###################################################
sub such_pattern{

my @elements;
my @ergebnisliste;
my $elem;

$fehler->delete("1.0","end");

if ( (defined $suchvariable) && (length($suchvariable) > 0) ) {
print "suchvariable: $suchvariable\n";
### alle elemente der listbox erhalten #################
@elements = $liste->get(0,"end");
foreach $elem (@elements) {
if ( $elem =~ m/$suchvariable/i ) {
print "$elem\n";
push(@ergebnisliste, $elem);
}
}

### etwas gefunden --> baue neue listbox (Liste) auf ########
if ( defined $ergebnisliste[0] ) {
$liste->delete(0,"end");
foreach $elem (@ergebnisliste) {
$liste->insert("end" , $elem);
}
} else {
$fehler->insert("end", "\n\n\nNichts gefunden");
}
} else {
print "is nix\n";
}
} ## sub such_pattern ####################################################

View full thread in listbox nach pattern suchen