HTML turinį, saugoma PHP funkcija
Šeštadienis, kovas 28, 2009 02:43Html indėlis s valymo funkcija, tačiau gana daug bandymų etmedım gozukuor
Autorinės teisės: http://www.ysfkc.com/dosyalar/guvenliHtml.phps
guvenliHtml funkcija ($ tekstas) (
pasaulio $ pradžios;
$ KonumK = 0; # <(buvo žemiau), matėme, galutinėje pozicijoje pobūdis
$ KonumB = 0; #> (Buyuktur), matėme, galutinėje pozicijoje pobūdis
$ Tag_mi = False; # tegus per jus?
$ OzellikSablon = "# turtas = vertė, naudojama pasaulio ragina formatindaki
$ TagTablosu = array (); # tegus informacija, pakeisti pasaulio alacagi
$ OzellikTablosu = array (); # funkcija (atributas) informacija apie pasaulio alacagi vieta
$ DegerTablosu = array (); # vertė (kaina), pasaulio informacinę erdvę alacagi
# Pasaulinis kintamųjų reikšmes
guvenliGlobal ();
# Tekstas perdirbimas korekcijos procesas tampa prieš
$ Text = onDuzeltme ($ tekstas);
$ I = 0;
$ Buferis = ";
$ KonumK = strpos ($ tekstas, '<', $ i); # <pobūdžio pirmoje pozicijoje rastlandigi
$ KonumB = strpos ($ tekstas, '>', $ I) #> požymį pirmąją poziciją rastlandigi
# Nuskaito tekstą pagal žymę
kaip while (true) (
# Jei <pobūdį prieš rastlandiysa
# Arba <characters buvo found, but> pobūdžio bulunamadiysa
if (($ konumK! == false & & $ konumK <$ konumB) | | ($ konumK! == false & & $ konumB === false)) (
# Gairė icerisindeysek
if ($ tag_mi) (
# Tag <olamayacagi už tegus dalis sandigimiz
# Basindaki <pobūdžio <reikalingi aplinkosaugos ataskaitai
$ Buferis .= '<'. substr ($ text, $ i, $ konumK - $ i);
Jei nesate per žymės #
Kita ()
#
$ Buferis .= substr ($ text, $ i, $ konumK - $ i);
)
$ I = $ konumK + 1;
$ KonumK = strpos ($ tekstas, '<', $ i);
# Pradžia tegus
$ Tag_mi = true;
# Jei> Character prieš rastlandiysa
# Arba> charakterį, bet jis <pobūdžio bulunamadiysa
) Elseif (($ konumB! == False & & $ konumK> $ konumB) | | ($ konumK === false & & $ konumB! == False)) (
# Gairė icerisindeysek
if ($ tag_mi) (
# Smoothed Įtraukti žymę
$ Buferio .= guvenliTag (substr ($ text, $ i, $ konumB - $ i));
# Uždaryti tegus
$ Tag_mi = False;
Jei nesate per žymės #
Kita ()
Kodar gauti Part # čia
# Ir> simboliai> reikalingi aplinkosaugos ataskaitai
$ Buferis .= substr ($ text, $ i, $ konumB - $ i). ">";
)
$ I = $ konumB 1;
$ KonumB = strpos ($ tekstas, '>', $ i);
# Jei <arba> pobūdžio rastlanmadiysa
Kita ()
# Gairė icerisindeysek
if ($ tag_mi) (
# Pabaigos bendro <pobūdžio <reikalingi aplinkosaugos ataskaitai
# Ir pridėti tekstą ir toliau buferis
$ Buferis .= '<'. substr ($ text, $ i);
Kita ()
Nuo teksto pabaigoje toliau suderintos pozicijos # pridėti buferio
$ Buferis .= substr ($ text, $ i);
)
# Dabar tegus pagal kalmadigina Dong et
break;
)
)
return $ buferis;
)
# ------------------------------------------------- -------------------------------------------------
onDuzeltme funkcija ($ tekstas) (
$ DegisiklikOncesi ='';
# Reikėtų pakeisti, jei aš nuolat daug
while ($ degisiklikOncesi! = $ tekstas) (
$ DegisiklikOncesi = $ text;
# & # Xx forma, kai simboliai rašomi ascii karsiliklarina cevriliyor
# Ir kai kurių žymių turinys leidžia atiliyor
$ Text = preg_replace ('/ / Pašalinti ",", $ tekstas);
$ Text = preg_replace ('/
$ Text = preg_replace ('/








































