Perl entry hossza?

Kezdőlap Fórumok Programozás Perl entry hossza?

6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • #1993481
    Csibu
    Felhasználó

      Szóval ehhez senki se ért?

      😛

      Csibu

      #1993482
      Csibu
      Felhasználó

        Rendben akkor legalább azt mondja meg nekem valaki, hogy Perlben (TK) hogyan lehet egy táblázatnak fejlécet csinálni?

        $table = $box2->Table(-rows => $r,-columns => 11,-fixedrows => 1);
        while($r>0)
        {
        if($B_OR_KL[$r] eq 0){$minta=’sunken’;}
        else{$minta=’raised’;}
        @IKTSZ[$r]=@SORSZL[$r];
        @IKTSZ[$r].=”/0″;
        @IKTSZ[$r].=@EVL[$r];
        $label=$box2->Label(-width=>”7″,-textvariable=>@IKTSZ[$r],-relief=>”$minta”);
        $table->put($r,1,$label);
        $label=$box2->Label(-width=>”10″,-textvariable=>@ERKDTM[$r],-relief=>”$minta”);
        $table->put($r,2,$label);
        $label=$box2->Label(-width=>”15″,-textvariable=>@UGYI[$r],-relief=>”$minta”);
        $table->put($r,3,$label);
        $label=$box2->Label(-width=>”15″,-textvariable=>@NEV[$r],-relief=>”$minta”);
        $table->put($r,4,$label);
        $label=$box2->Label(-width=>”20″,-textvariable=>@CIM[$r],-relief=>”$minta”);
        $table->put($r,5,$label);
        $label=$box2->Label(-width=>”25″,-textvariable=>@TARGY[$r],-relief=>”$minta”);
        $table->put($r,6,$label);
        $label=$box2->Label(-width=>”4″,-textvariable=>@MELL[$r],-relief=>”$minta”);
        $table->put($r,7,$label);
        $label=$box2->Label(-width=>”10″,-textvariable=>@KEZHELY[$r],-relief=>”$minta”);
        $table->put($r,8,$label);
        if(@HATDTM[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@HATDTM[$r],-relief=>”$minta”);}
        else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
        $table->put($r,9,$label);
        if(@INTNAP[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@INTNAP[$r],-relief=>”$minta”);}
        else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
        $table->put($r,10,$label);
        if(@IRDTM[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@IRDTM[$r],-relief=>”$minta”);}
        else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
        $table->put($r,11,$label);
        }

        Mondjuk ennek?

        Csibu

        #1993483
        Csibu
        Felhasználó

          Akkor legalább valmi magyar nyelvû linket mutassatok, ami ezzel foglalkozik!

          Köszi!

          Csibu

          #1993484
          Csibu
          Felhasználó

            Na úgy látom itt senki se ért a perl/TK-hoz rendesen!
            Használja ezt egyáltalán valaki?

            Csibu

            #1993485
            Csibu
            Felhasználó

              Megoldás a LINK T

              #1877711
              csaba
              Felhasználó

                Sziasztok!

                Tudja valaki, hogy hogyan kell perl / TK -ban lévõ ENTRY hosszát megadni! Vagyis eddig htmlbe ágyazott perl programokat csináltam és ott egy input mezõnek meg lehetett adni, hogy maximálisan hány db karaktert fogadjon el, viszont a TK-s ENTRY-nek csak a szélességét lehet megadni, a karakterhosszt, amit bekér nem (pörgeti tovább a karaktereket)!

                Ezt kellene nekem gyorsan megoldanom!

                Van valaki, aki tudja, hogy hogyan lehet megadni?

                Thanx!
                Csibu

              6 bejegyzés megtekintése - 1-6 / 6
              • Be kell jelentkezni a hozzászóláshoz.