

<?PHP


// VORGABEN_AUSLESEN1: Wertet Variable.txt aus

// Spter entweder mit VORGABEN 2a kombinieren oder diese splitten in Auswertung -/- Admin 


// --------------------------


// WERTEAUSGABE
// LIEST UNIVERSELLE WERTE AUS

// Wertet Variable.txt aus 


// --------------------------


// TEST: 
// echo "\n<BR> \n"; 
// echo "QUELLFORMAT IST: #PARAMETER: \$PARAMETER# !"; 
// echo "\n<BR> \n"; 
// echo "AUSGABEFORMAT: #PARAMETER: wert# ?"; 
// echo "\n<BR> \n"; 

// echo "\n<BR> \n"; 
// echo "TESTBEREICH:"; 
// echo "\n<BR> \n"; 

// --------------------------
// WICHTIG: VORGABE

$VorgabenDatei = "../tech/variable.txt"; 

$JedeZeile = file($VorgabenDatei); 

$VZeilenZahl = count($JedeZeile); 


// --------------------------

// TABELLE mit 3 Spalten!

// --------------------------


// Testbereich:

// echo "\n<BR> \n"; 
// echo "Der WERT von \$PLZA2 ist: &nbsp; '$PLZA2' ; &nbsp; &nbsp;";  
// echo "\n<BR> \n"; 
// echo "Die Zahl &nbsp; PLZA2 &nbsp; ist &nbsp; $PLZA2 "; 
// echo "\n<BR> \n"; 

// echo "\n<BR> \n"; 
// echo "Der WERT von \$Lari ist: &nbsp; '$Lari'";  
// echo "\n<BR> \n"; 
// echo "Wert von \$Lari: &nbsp;  
// <INPUT TYPE=\"text\" NAME=\"NWERT$pz\" VALUE=\"$Lari\" MAXLENGTH=\"20\">";
// echo "\n<BR> \n"; 

// echo "\n<BR> \n"; 

// echo "Der WERT von \$Luluz ist: &nbsp; '$Luluz'"; 
// echo "\n<BR> \n"; 

// echo "\n<BR> \n"; 
// echo "Ende Auslesen 1 \n"; 


// echo "<HR SIZE=8>"; 
// echo "\n<BR> \n"; 


// --------------------------
// --------------------------


// foreach ($JedeZeile as $EinzelZeile) 
// {$EinzelZeile[$vz] = trim($EinzelZeile[$vz]); 

// for($vz=1;$vz<$VZeilenZahl;$vz++)


for($vz=0; $vz < $VZeilenZahl; $vz++)

{

$EinzelZeile[$vz] = trim($JedeZeile[$vz]); 

// TEST:
// echo $EinzelZeile[$vz];

// VORSICHT! SEHR WICHTIGE BEDINGUNG! 

$VarPrf = strpos($EinzelZeile[$vz],"var "); 
$SemiPrf = strrchr($EinzelZeile[$vz],";"); 


// TEST: 
// echo" VarPrf: $VarPrf / "; 
// echo "\n<BR>\n"; 
// echo " SemiPrf: $SemiPrf "; 
// echo "\n<BR>\n"; 

if ($VarPrf == "0" && $SemiPrf == ";" ) 

{ 

// WICHTIG! Parameter-Zhler:
// Ginge aber auch mit VZ

$pz = $pz+1; 


// TEST: 
// echo "$pz;. PARAMETER-ZEILE: &nbsp; &nbsp; &nbsp; $EinzelZeile[$vz]"; 
// echo "\n<BR>\n"; 


// PARAMETER-ZEILE SUBERN:

$Varray = array ("var " => "", "\"" => " ", ";" => ""); 


$EinzelZeile[$vz] = strtr ($EinzelZeile[$vz], $Varray); 

// TEST: 
// echo " - $EinzelZeile[$vz] - "; 
// echo "\n<BR>\n"; 
// echo "\n<BR>\n"; 

// OK

// --------------------------

// parse_str($EinzelZeile[$vz]); 
// echo "1. Parameter = "; 
// echo "\n<BR>\n"; 


// $EinzelZeile[$vz] = "\"$EinzelZeile[$vz]"; 
// echo "($EinzelZeile[$vz])"; 
// echo "\n<BR>\n"; 

// --------------------------

// OK
$ArrayGueltigeZeile = explode("=",$EinzelZeile[$vz]); 

// JA! 

// TEST:
// echo "Zahl der Elemente:  "; 
// echo sizeof($ArrayGueltigeZeile); 

if (count($ArrayGueltigeZeile) == 2 ) 

{ 
// Werte-Zuordnung fr den Admin-Bereich: Einzeln
list($Parameter,$Wert) = $ArrayGueltigeZeile; 

$Parameter = trim($Parameter); 
$Wert = trim($Wert); 

// TEST:
// echo "\n<BR>\n"; 
// echo "\n<BR>\n"; 

// echo "Parameter $pz: $Parameter"; 
// echo "\n<BR> \n"; 
// echo "Wert $pz: $Wert"; 


// echo "\n<P>\n"; 

// Werte-Zuordnung fr die Seiten: Verkoppelt

// $ParameterWert = "\"$Parameter\" => \"$Wert\"";
$ParameterWert = "$$Parameter = \"$Wert\"";

// eval ("\$text = \"$text\";");
eval  ("\$ParameterWert = $ParameterWert;");


// TEST:
// echo "\n<BR> \n"; 

echo "\n<TR>\n";

echo "<TD WIDTH=4% NOWRAP>\n"; 
echo "<U>Wertepaar $pz</U>: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $Parameter "; 
echo "\n</TD>\n";

echo "<TD WIDTH=1% NOWRAP ALIGN=CENTER>\n"; 
echo " = "; 
echo "\n</TD>\n";

echo "<TD>\n"; 
echo " $ParameterWert "; 
echo "\n</TD>\n";

echo "</TR>\n";


// echo "\n<BR> \n"; 

// TEST: WERTEPAAR weiter unten 
// WERTESTRING generieren weiter unten 



// --------------------------
// BEL!!
// --------------------------


// --------------------------


// END IF COUNT ARRAY
}


else 
{
ECHO "<FONT COLOR=\"red\"><B>";
echo "<B>FEHLER: Zahl der Elemente in einer Variablenzeile ungleich 2 </B>"; 
ECHO "</B></FONT>";
} 


// END IF VARPRF
}


// Zusatz: 
// Falls KEINE Parameter-Zeile UND nicht 'unsichtbar', anzeigen:

else 
{
if (!(stristr($EinzelZeile[$vz], "--")) && (trim($EinzelZeile[$vz]) != ""))
{

// Austausch einzelner Strings
$EinzelZeileG[$vz] = strtr($EinzelZeile[$vz], "//", "\- ");

// echo "\n<P>\n"; 
// echo "\n<BR>\n"; 

echo "\n<TR>\n";
echo "\n<TD COLSPAN=3 >\n"; 

echo "&nbsp;<BR>\n"; 
// echo "<HR>\n<BR>\n"; 
// echo "<B>"; 
echo "$EinzelZeileG[$vz]"; 
// echo "</B>"; 


// --------------------------

// EXTRA: ZEILENFEHLERMELDUNG

if (!(stristr($EinzelZeile[$vz], "//")) && (trim($EinzelZeile[$vz]) != ""))
{
ECHO "<BR>
<BR>
";
ECHO "<FONT COLOR=\"red\"><B>";

ECHO "ZEILENFEHLER! <BR> Text: -$EinzelZeile[$vz]- ";

ECHO "</B></FONT>";
ECHO "<BR>
<BR>
";
}

// --------------------------

echo "\n</TD>\n";
echo "</TR>\n";

// echo "\n<BR>\n"; 
}	
}



unset ($VarPrf); 
unset ($SemiPrf); 


// END FOR
}

// --------------------------

// END VORGABEN_AUSLESEN1

// --------------------------


?>

