Tabelle mit zwei Spalten ausgeben - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von Annett (40 Beiträge) am Dienstag, 24.Februar.2004, 10:50.
    Tabelle mit zwei Spalten ausgeben

      Hallo Forum-Mitglieder und Perl-Profis,
      eine Anfängerin benötigt Hilfe.
      Zu allererat möchte ich mich für die Bibliothek bedanken. Ich konnte bereits einiges lernen. Ich möchte das News-, Aktuelles-, Berichts-db mit automatischem Archiv und Adminbereich von Ewald in veränderter Form nutzen. Gern möchte ich die News-Ausgabe in einer Tabelle mit zwei Spalten ausgeben. Zur Zeit wird die Ausgabe in einer Tabelle mit mehreren Zeilen und einer Spalte angezeigt. Doch wie erhalte ich die Ausgabe in mehreren Zeilen und zwei Spalten? Hier der bereits der etwas veränderte Code. 

      <perl>
# $farbe 1 u. 2 für Tabellen, 3 für Schrift
$farbe1 = "#FFFFFF";
$farbe2 = "#ffffff";
$farbe3 = "#000000";

      # $anzakt gibt an, wieviele Datensätze bei Aktuelles ausgegeben werden
      $anzakt =2;

      if($Seite == 0)
      {
# letztes Datum ermitteln
get "sort=-Datum range=0,$anzakt","News","neueNews";
while(get_next("neueNews"))
{
$aTag = datum($Datum,"Tag0");
$aMonat = datum($Datum,"Monat0");
$aJahr = datum($Datum,"Jahr");
$aktDat =$aTag . $aMonat . $aJahr;
}
# Tabelle

      out "<h4><font color=$farbe3>Aktuelle Pressemitteilungen</font></h4>";
      out "<table width='500' border='0' cellspacing='0' cellpadding='0'>";
out "<tr bgcolor='#000000'>";
out "<td>";
out "<table border='1' width='100%'cellspacing='0' cellpadding='0'>";
get "sort=-Datum range=0,$anzakt","News","neueNews";while(get_next("neueNews"))
{

      out "<tr bgcolor=$farbe1>";
      out "<td align='left'>

      <p align='left'><font color=$farbe3><b><a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/abonki/Test_2/News_Details>$Titel
      $Text

      ";
      out "</tr>";}    
out "</table>";
out "</td>";
out "</tr>";
out "</table>";
out "<p><a href='baseportal.pl?htx=$htx&Seite=1&lastDat=$aktDat'>Archiv</a></p>";
}

      if ($Seite == 1)
      {
$AnzeigeJahr = 0;
out "<h2><font color=$farbe3>&Uuml;bersicht Archiv</font></h2>";
out "<table width='200' border='0' cellspacing='0' cellpadding='0'>";
out "<tr bgcolor='#000000'>";
out "<td>";
out "<table border='0' width='100%'cellspacing='1' cellpadding='1'>";
get "sort=Datum","News","Uebersicht";
while(get_next("Uebersicht"))
{
$aTag = datum($Datum,"Tag0");
$aMonat = datum($Datum,"Monat0");
$aJahr = datum($Datum,"Jahr");
$aktDat =$aTag . $aMonat . $aJahr;
if ($aktDat < $lastDat)
{
if ($AnzeigeJahr == datum($Datum,"Jahr"))
{
}
else
{
$AnzeigeJahr = datum($Datum,"Jahr");
out "<tr bgcolor=$farbe1>";
out "<td align='center'><p align='center'><b><br><a href='baseportal.pl?htx=$htx&Seite=2&ArchivJahr=$AnzeigeJahr&lastDat=$lastDat'>$AnzeigeJahr<br><br></b></p></td>";
out "</tr>";
}
}
}
out "</table>";
out "</td>";
out "</tr>";
out "</table>";
out "<p><a href='baseportal.pl?htx=$htx&Seite=0'>[Aktuelles]</a></p>";
}
</perl>

      Ich hoffe jemand kann mir helfen.

      viele liebe Grüße
      Annett


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Annett (40 Beiträge) am Dienstag, 24.Februar.2004, 10:50.
    Tabelle mit zwei Spalten ausgeben

      Hallo Forum-Mitglieder und Perl-Profis,
      eine Anfängerin benötigt Hilfe.
      Zu allererat möchte ich mich für die Bibliothek bedanken. Ich konnte bereits einiges lernen. Ich möchte das News-, Aktuelles-, Berichts-db mit automatischem Archiv und Adminbereich von Ewald in veränderter Form nutzen. Gern möchte ich die News-Ausgabe in einer Tabelle mit zwei Spalten ausgeben. Zur Zeit wird die Ausgabe in einer Tabelle mit mehreren Zeilen und einer Spalte angezeigt. Doch wie erhalte ich die Ausgabe in mehreren Zeilen und zwei Spalten? Hier der bereits der etwas veränderte Code. 

      <perl>
# $farbe 1 u. 2 für Tabellen, 3 für Schrift
$farbe1 = "#FFFFFF";
$farbe2 = "#ffffff";
$farbe3 = "#000000";

      # $anzakt gibt an, wieviele Datensätze bei Aktuelles ausgegeben werden
      $anzakt =2;

      if($Seite == 0)
      {
# letztes Datum ermitteln
get "sort=-Datum range=0,$anzakt","News","neueNews";
while(get_next("neueNews"))
{
$aTag = datum($Datum,"Tag0");
$aMonat = datum($Datum,"Monat0");
$aJahr = datum($Datum,"Jahr");
$aktDat =$aTag . $aMonat . $aJahr;
}
# Tabelle

      out "<h4><font color=$farbe3>Aktuelle Pressemitteilungen</font></h4>";
      out "<table width='500' border='0' cellspacing='0' cellpadding='0'>";
out "<tr bgcolor='#000000'>";
out "<td>";
out "<table border='1' width='100%'cellspacing='0' cellpadding='0'>";
get "sort=-Datum range=0,$anzakt","News","neueNews";while(get_next("neueNews"))
{

      out "<tr bgcolor=$farbe1>";
      out "<td align='left'>

      <p align='left'><font color=$farbe3><b><a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/abonki/Test_2/News_Details>$Titel
      $Text

      ";
      out "</tr>";}    
out "</table>";
out "</td>";
out "</tr>";
out "</table>";
out "<p><a href='baseportal.pl?htx=$htx&Seite=1&lastDat=$aktDat'>Archiv</a></p>";
}

      if ($Seite == 1)
      {
$AnzeigeJahr = 0;
out "<h2><font color=$farbe3>&Uuml;bersicht Archiv</font></h2>";
out "<table width='200' border='0' cellspacing='0' cellpadding='0'>";
out "<tr bgcolor='#000000'>";
out "<td>";
out "<table border='0' width='100%'cellspacing='1' cellpadding='1'>";
get "sort=Datum","News","Uebersicht";
while(get_next("Uebersicht"))
{
$aTag = datum($Datum,"Tag0");
$aMonat = datum($Datum,"Monat0");
$aJahr = datum($Datum,"Jahr");
$aktDat =$aTag . $aMonat . $aJahr;
if ($aktDat < $lastDat)
{
if ($AnzeigeJahr == datum($Datum,"Jahr"))
{
}
else
{
$AnzeigeJahr = datum($Datum,"Jahr");
out "<tr bgcolor=$farbe1>";
out "<td align='center'><p align='center'><b><br><a href='baseportal.pl?htx=$htx&Seite=2&ArchivJahr=$AnzeigeJahr&lastDat=$lastDat'>$AnzeigeJahr<br><br></b></p></td>";
out "</tr>";
}
}
}
out "</table>";
out "</td>";
out "</tr>";
out "</table>";
out "<p><a href='baseportal.pl?htx=$htx&Seite=0'>[Aktuelles]</a></p>";
}
</perl>

      Ich hoffe jemand kann mir helfen.

      viele liebe Grüße
      Annett

     Antworten

    Beitrag von hempelr (1976 Beiträge) am Mittwoch, 25.Februar.2004, 14:14.
    Re: Tabelle mit zwei Spalten ausgeben

      Hallo, Anett,
      das Thema hatten wir mal vor langer Zeit schon im Forum, ist mit loop und ner Ganzzahldivision sowie ner davon abhängigen bedingten Ausgabe schon machbar (eigentlich recht simpel), ich find eben den Thread nicht, aber such mal (auch mit der erw. Suche von A.Jurenda), da gibts bestimmt einiges zu....

      jups - hab mal gesucht - hier ein langer ergiebiger Tread dazu (kann man ne menge lernen, damals wurde noch Quelltext gepostet... ;-)
      http://baseportal.de/baseportal/baseportal/forum&wcheck=1&Pos=5760.0002
      Ruben

     Antworten

    Beitrag von Annett (40 Beiträge) am Mittwoch, 25.Februar.2004, 19:47.
    Re: Tabelle mit zwei Spalten ausgeben

      vielen, vielen Dank. Werde mich morgen mal drüber machen und lesen.
      Gruß Annett

     Antworten


     
 Liste der Einträge von 31800 bis 31950: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

Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.11s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!