Kyberia v1.0

[mirrors/Kyberia-bloodline.git] / inc / hypertext.inc

diff --git a/inc/hypertext.inc b/inc/hypertext.inc
new file mode 100644 (file)
index 0000000..19f08ed
--- /dev/null
+++ b/inc/hypertext.inc
@@ -0,0 +1,59 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<?php
+include('kyberia.inc');
+class CLASS_HYPERTEXT extends CLASS_KYBERIA {
+
+
+function CLASS_HYPERTEXT() {
+       $this->CLASS_KYBERIA();
+}
+
+function explodeText($id) {
+       $set=$this->query("SELECT text1 from articles where id_article='$id'");
+       $set->next();
+       $text=$set->getstring("text1");
+       $text=str_replace("."," ",$text);
+       $text=str_replace(","," ",$text);
+       $text=str_replace("?"," ",$text);
+       $bomb=explode(" ",$text);
+       foreach ($bomb as $slovo) {
+               if (strlen($slovo)>4 AND !strstr($slovo,">") AND !strstr($slovo,"<"))$slova[]=$slovo;
+       }
+       echo "<table>";
+       foreach ($slova as $slovo) {
+               echo "<tr><Td>$id</td><Td>$slovo</td></tr>";
+       }
+}
+// >------------------------------koniec metod---------------<
+}
+?>
\ No newline at end of file