baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
a. Das Template soll 4 zufällige Einträge aus der Datenbank fischen, die sich nicht wiederholen, und zwar heissen die Felder Frage, RA, FA1, FA2, FA3, Pkt und Rubrik. Am Ende soll das Template ausgeben:
&RA=<<RA1>>,<<RA2>>
if ($cmd eq "fragen") { $XFrage = ""; $XRA = ""; $XFA1 = ""; $XFA2 = ""; $XFA3 = ""; $XPkt = ""; $XRubrik = ""; for ($i=1,$i<$max,$i++) { get "Id==?"; while (@neu[$_id] == 1) { get "Id==?"; } while (get_next) { @neu[$_id] = 1; $XFrage=$XFrage.$Frage.","; $XRA=$XRA.$RA.","; $XFA1=$XFA1.$FA1.","; $XFA2=$XFA2.$FA2.","; $XFA3=$XFA3.$FA3.","; $XPkt=$XPkt.$Pkt.","; $XRubrik=$XRubrik.$Rubrik.","; } } get "Id==?"; while (@neu[$_id] == 1) { get "Id==?"; } while (get_next) { @neu[$$_id] = 1; $XFrage=$XFrage.$Frage; $XRA=$XRA.$RA; $XFA1=$XFA1.$FA1; $XFA2=$XFA2.$FA2; $XFA3=$XFA3.$FA3; $XPkt=$XPkt.$Pkt; $XRubrik=$XRubrik.$Rubrik; } out "Frage=",$XFrage; out "\&RA=",$XRA; out "\&FA1=",$XFA1; out "\&FA2=",$XFA2; out "\&FA3=",$XFA3; out "\&Pkt=",$XPkt; out "\&Rubrik=",$XRubrik; out "\&Rest="; }
Alle Einträge zum Thema: | Zur Liste |
a. Das Template soll 4 zufällige Einträge aus der Datenbank fischen, die sich nicht wiederholen, und zwar heissen die Felder Frage, RA, FA1, FA2, FA3, Pkt und Rubrik. Am Ende soll das Template ausgeben:
&RA=<<RA1>>,<<RA2>>
if ($cmd eq "fragen") { $XFrage = ""; $XRA = ""; $XFA1 = ""; $XFA2 = ""; $XFA3 = ""; $XPkt = ""; $XRubrik = ""; for ($i=1,$i<$max,$i++) { get "Id==?"; while (@neu[$_id] == 1) { get "Id==?"; } while (get_next) { @neu[$_id] = 1; $XFrage=$XFrage.$Frage.","; $XRA=$XRA.$RA.","; $XFA1=$XFA1.$FA1.","; $XFA2=$XFA2.$FA2.","; $XFA3=$XFA3.$FA3.","; $XPkt=$XPkt.$Pkt.","; $XRubrik=$XRubrik.$Rubrik.","; } } get "Id==?"; while (@neu[$_id] == 1) { get "Id==?"; } while (get_next) { @neu[$$_id] = 1; $XFrage=$XFrage.$Frage; $XRA=$XRA.$RA; $XFA1=$XFA1.$FA1; $XFA2=$XFA2.$FA2; $XFA3=$XFA3.$FA3; $XPkt=$XPkt.$Pkt; $XRubrik=$XRubrik.$Rubrik; } out "Frage=",$XFrage; out "\&RA=",$XRA; out "\&FA1=",$XFA1; out "\&FA2=",$XFA2; out "\&FA3=",$XFA3; out "\&Pkt=",$XPkt; out "\&Rubrik=",$XRubrik; out "\&Rest="; }
for(my $i=0; $i<$max; $i++) { do { get "Id==?"; } while(index($XIds, "$_id,")>=0); # id schon vorhanden?
$XIds.="$_id,"; # ids merken fuer check oben $XFrage.="$Frage,"; # fuegt $Frage und , zu $XFrage hinzu $XRA.="$RA,"; $XFA1.="$FA1,"; $XFA2.="$FA2,"; $XFA3.="$FA3,"; $XPkt.="$Pkt,"; $XRubrik.=$Rubrik.",";
# letztes , abschneiden chop $XFrage; chop $XRA; chop $XFA1; chop $XFA2; chop $XFA3; chop $XPkt; chop $XRubrik;
&RA=$XRA &FA1=$XFA1 &FA2=$XFA2 &FA3=$XFA3 &Pkt=$XPkt &Rubrik=$XRubrik &Rest=$XRest EOF
Liste der Einträge von 62550 bis 62700: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |