Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <?php
- if (!isset ($_GET['text'])) {
- echo "Musíš něco napsat!:-)";
- }
- if (isset ($_GET ['text'])) { //Pokud je napsán nějaký text, tak proběhne následující podmínka.
- $text = $_GET ['text'];//Z napseného textu udělá proměnnou $text.
- $diakritika = Array ('ä'=>'a','Ä'=>'A','á'=>'a','Á'=>'A','à'=>'a','À'=>'A','ã'=>'a','Ã'=>'A','â'=>'a','Â'=>'A','č'=>'c','Č'=>'C','ć'=>'c','Ć'=>'C','ď'=>'d','Ď'=>'D','ě'=>'e','Ě'=>'E','é'=>'e','É'=>'E','ë'=>'e','Ë'=>'E','è'=>'e','È'=>'E','ê'=>'e','Ê'=>'E','í'=>'i','Í'=>'I','ï'=>'i','Ï'=>'I','ì'=>'i','Ì'=>'I','î'=>'i','Î'=>'I','ľ'=>'l','Ľ'=>'L','ĺ'=>'l','Ĺ'=>'L','ń'=>'n','Ń'=>'N','ň'=>'n','Ň'=>'N','ñ'=>'n','Ñ'=>'N','ó'=>'o','Ó'=>'O','ö'=>'o','Ö'=>'O','ô'=>'o','Ô'=>'O','ò'=>'o','Ò'=>'O','õ'=>'o','Õ'=>'O','ő'=>'o','Ő'=>'O','ř'=>'r','Ř'=>'R','ŕ'=>'r','Ŕ'=>'R','š'=>'s','Š'=>'S','ś'=>'s','Ś'=>'S','ť'=>'t','Ť'=>'T','ú'=>'u','Ú'=>'U','ů'=>'u','Ů'=>'U','ü'=>'u','Ü'=>'U','ù'=>'u','Ù'=>'U','ũ'=>'u','Ũ'=>'U','û'=>'u','Û'=>'U','ý'=>'y','Ý'=>'Y','ž'=>'z','Ž'=>'Z','ź'=>'z','Ź'=>'Z'); //převodní tabulka diakritiky
- $text = strtr ($text, $diakritika);//převede text s diakritikou na text bez diakritiky
- $p = str_split ($text);//každé písmeno z $text převede na pole
- $c = count ($p);//spočítá velikost pole
- for ($i=0; $i < $c; $i++) {
- $morseovka = Array ('a'=>'.-','A'=>'.-','b'=>'-...','B'=>'-...','c'=>'-.-.','C'=>'-.-.','d'=>'-..','D'=>'-..','e'=>'.','E'=>'.','f'=>'..-.','F'=>'..-.','g'=>'--.','G'=>'--.','h'=>'....','H'=>'....','i'=>'..', 'I'=>'..','j'=>'.---','J'=>'.---','k'=>'-.-','K'=>'-.-','l'=>'.-..','L'=>'.-..','m'=>'--','M'=>'--','n'=>'-.','N'=>'-.','o'=>'---','O'=>'---','p'=>'.--.','P'=>'.--.','q'=>'--.-','Q'=>'--.-','r'=>'.-.','R'=>'.-.','s'=>'...','S'=>'...','t'=>'-','T'=>'-','u'=>'..-','U'=>'..-','v'=>'...-','V'=>'...-','w'=>'.--','W'=>'.--','x'=>'-..-','X'=>'-..-','y'=>'-.--','Y'=>'-.--','z'=>'--..','Z'=>'--..','0'=>'-----','1'=>'.----','2'=>'..---','3'=>'...--','4'=>'....-','5'=>'.....','6'=>'-....','7'=>'--...','8'=>'---..','9'=>'----.','?'=>'..--..','!'=>'--..--',','=>'--..--','.'=>'.-.-.-',';'=>'-.-.-.','/'=>'-..-.','='=>'-...-','-'=>'-....-','('=>'-.--.-',')'=>'-.--.-','"'=>'.-..-',':'=>'---...','_'=>'..--.-');//převodní tabulka morseovky
- $p[$i] = strtr ($p[$i], $morseovka);//převede písmeno $p[$i] na písmeno v morseovce.
- echo "<span id=\"vypis\">$p[$i]/</span>";//zobrazí písmeno v morseovce. Jednotlivá písmena oddělí /.
- }
- }
- ?>
Add Comment
Please, Sign In to add comment