<? /////////////// // Basisdaten /////////////// $berufeinfos = „daten/daten_berufe.xml“; /////////////////////////////////////////////// // DateiEinlesen - Datei oeffnen und einlesen /////////////////////////////////////////////// Function DateiEinlesen($dateiname) { If ($connection = @FOpen($dateiname, „r“)) { While (!FEoF($connection)) { $serverinfos .= FGets($connection, 4096); } FClose($connection); Return ($serverinfos); } } ////////////////////////////////// // HackMac - Ermittelt XML-Daten ////////////////////////////////// Function HackMac($quellzeugs, $vomanfang, $biszumende) { $tempgetyddel = Split($vomanfang, $quellzeugs); $tempgetyddel = $tempgetyddel[1]; $tempgetyddel = Split($biszumende, $tempgetyddel); $tempgetyddel = $tempgetyddel[0]; Return ($tempgetyddel); } ///////////////////////////////////////////////////////// // Hauptprogramm - Alle BerufeInfos von Pergon ausgeben ///////////////////////////////////////////////////////// Print(„\n
\n“); $serverinfos = DateiEinlesen($berufeinfos); $klassenarray = Split(„“, $serverinfos); Print(„
Folgende Berufe werden von derzeit aktiven Characteren ausgeübt.
\n“); Print(„
“); // Klasse ausgeben For ($k=1; $klassenarray[$k]!=„“; $k++) { $name = HackMac($klassenarray[$k], „“, „“); $gesamtzahl = HackMac($klassenarray[$k], „“, „“); $gesamtzahljhelom = HackMac($klassenarray[$k], „“, „“); Print(„
“); Print(„
$name
$gesamtzahl
$gesamtzahljhelom
\n“); $berufearray = Split(„“, $klassenarray[$k]); // Berufe ausgeben For ($l=1; $berufearray[$l]!=„“; $l++) { $name = HackMac($berufearray[$l], „“, „“); $anzahl = HackMac($berufearray[$l], „“, „“); $anzahljhelom = HackMac($berufearray[$l], „“, „“); Print(„
$name
“); Print(„
$anzahl
$anzahljhelom
\n“); } Print(„
“); } Print(„
\n“); Print(„
Die erste Zahl steht für die Kontinentalbewohner, die zweite für die Jhe'lomianer.
\n“); Print „
“; ?>