ebligos bone vidi la bildojn kaj la ligilojn sed gxenos vin se vi celas konverton de via TTT-ejo // Se ($loka==1) bildoj kaj ligiloj malbone aperos : tio tauxgas por konverto de persona TTT-ejo // => registru la rezultitan pagxon en vian komputilon kaj vian TTT-ejon kaj cxio funkcios glate. // Se ($uuuw==1) konvertas w, ù, ú kaj û al supersigna ux // Se ($X==1) konvertas uX al ux (kaze de iksa dokumento por respekti verajn iksojn skribitajn per grandaj X) // Ekzemplo: (se vi forigas la komencajn "//" de la sekvantaj linioj, // kaj registras tiun pagxon en TTT, gxi konvertos la Esperantan enirpagxon // de la katalogo "dmoz" ikse skribitan: // $dosiero="http://dmoz.org/World/Esperanto/"; // $utf=1; // -> 1 = aldono de utf-8 instrukto 0 = neniu sxangxo // $loka=0; // -> 0 = absolutaj adresoj, 1 = relativaj // $kodo=0; // -> 0 = ikse, 1 = h-e, 2 = c^g^h^j^s^u~, 3 = latino3. */ $aski = array(67,71,72,74,83,85,99,103,104,106,115,117); $lat3 = array(198,216,166,172,222,221,230,248,182,188,254,253); $usup = array(87,119,217,218,219,249,250,251); $utf8 = array("Ĉ","Ĝ","Ĥ","Ĵ","Ŝ","Ŭ","ĉ","ĝ","ĥ","ĵ","ŝ","ŭ"); $fp=fopen("$dosiero","r"); if (($fp)==FALSE) { echo"Provo

"; echo"La konvertilo ne sukcesis malfermi la dosieron
$dosiero

"; echo"

Kontrolu ke la proponita adreso bone funkcias,
"; echo"kaj kontrolu ke gxi estas kompleta por ke la konvertilo povu uzi gxin:"; echo"
Gxia fino estu '.htm', '.html' aux '/'.

"; echo"

Revenu al la konvertilo

"; echo"

"; exit; } if ($kodo==0) //ikse: X & x {$kodlitero1=88; $kodlitero2=120;} if ($kodo==1) //h-e: H & h {$kodlitero1=72; $kodlitero2=104;} if ($kodo==2) //post ^ aux post ~ {$kodlitero1=94; $kodlitero2=126;} /* Se sxangxo de kodo-instrukto al utf-8 selektita (utf=1) // legado de unu linio post unu linio gxis la // sxangxo de la instrukto pri tiparo al UTF-8 // kaj eventuala aldono de instrukto por referenci al la absoluta adreso de la dosiero en TTT // (mi versxajne tro komplikigis kaj provos simpligi la php-kodon) // mi supozas ke ekzistas kapo en la pagxo, se ne... hontu la auxtoro! :-) // trovo de la indiko pri malfermo de kapo "" */ $linio=fgets($fp,500); while((strpos($linio,"'; echo "\n";} if($loka==0) {echo ''; echo "\n";} if($utf==1) {$linio=fgets($fp,500); while((strpos($linio,"charset=")==FALSE)&&(strpos($linio,"CHARSET=")==FALSE) &&(strpos($linio,"")==FALSE)&&(strpos($linio,"")==FALSE)&&(!feof($fp))) {echo "$linio"; $linio=fgets($fp,500);} if((strpos($linio,"")!=FALSE)||(strpos($linio,"")!=FALSE)) echo "$linio"; } /* legado de unu litero post unu litero...*/ $litero1=fgetc($fp); while (!feof($fp)) { $litero2=fgetc($fp); /* evito de sxangxoj inter "<" kaj ">" (HTML-aj instruktoj)*/ while(ord($litero1)==60) {echo "$litero1"; while(ord($litero2)!=62) {echo "$litero2"; $litero2=fgetc($fp);} if(ord($litero2)==62) echo "$litero2"; if(!feof($fp)) {$litero1=fgetc($fp); $litero2=fgetc($fp);} } /* konverto al unikodo: */ /* konverto de w, ù, ú kaj û se ($jes==1)*/ if($uuuw==1) { $i=0; while((ord($litero1)!=$usup[$i])&&($i<7)) {$i++;} if (ord($litero1)==$usup[$i]) {if ($i<3) echo"$utf8[5]"; else echo"$utf8[11]"; $litero1=$litero2; $litero2=fgetc($fp); } } /* konverto de iksaj, h-aj aux ^ & ~ kodoj */ if($kodo!=3){ /* konverto de literoj post numero=126 al unikodo (nacilingvaj specialaj literoj) */ $numero=ord($litero1); while($numero>126) {echo"&#$numero;"; $litero1=$litero2; $litero2=fgetc($fp); $numero=ord($litero1); } if((ord($litero2)==$kodlitero1)||(ord($litero2)==$kodlitero2)) {$i=0; while((ord($litero1)!=$aski[$i])&&($i<11)) {$i++;} if(ord($litero1)==$aski[$i]) { if(($X==1)&&($kodo==0)) /* uX -> ux */ {if((ord($litero2)==$kodlitero1)&&(ord($litero1)==117)) {echo "$litero1"; $litero1="x";} } else {echo "$utf8[$i]"; $litero1=fgetc($fp);} } else {echo "$litero1"; $litero1=$litero2;} } else {echo "$litero1"; $litero1=$litero2;} } /* konverto de latino3 */ if($kodo==3) { $numero=ord($litero1); if($numero>126) {$i=0; while(($numero!=$lat3[$i])&&($i<11)) {$i++;} if ($numero==$lat3[$i]) {echo "$utf8[$i]"; $litero1=$litero2;} else {echo"&#$numero;"; $litero1=$litero2;} } else {echo "$litero1"; $litero1=$litero2;} } /* kodo=3 */ } ?>