<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" /><form><textarea cols=100 rows=2000 onclick=select()>&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;
&lt;html xmlns=&quot;http://www.w3.org/1999/xhtml&quot;&gt;
&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=utf-8&quot; /&gt;
&lt;title&gt;Kelimeler&lt;/title&gt;
&lt;/head&gt;

&lt;body&gt;

&lt;form action=&quot;&quot; method=&quot;post&quot;&gt;

&lt;textarea name=&quot;metin&quot; cols=&quot;80&quot; rows=&quot;10&quot;&gt;&lt;?php echo $_POST['metin'] ?&gt;&lt;/textarea&gt;
&lt;br /&gt;
&lt;input name=&quot;dugme&quot; type=&quot;submit&quot; value=&quot;Kelime Listesi&quot; /&gt;

&lt;/form&gt;

&lt;p&gt;
&lt;?php

function kucuk_harf($k)
{
	switch($k)
	{
		case &quot;B&quot;:$snc=&quot;b&quot;;break;
		case &quot;&Ccedil;&quot;:$snc=&quot;&ccedil;&quot;;break;
		case &quot;Ğ&quot;:$snc=&quot;ğ&quot;;break;
		case &quot;&Uuml;&quot;:$snc=&quot;&uuml;&quot;;break;
		case &quot;&Ouml;&quot;:$snc=&quot;&ouml;&quot;;break;
		case &quot;İ&quot;:$snc=&quot;i&quot;;break;
		case &quot;I&quot;:$snc=&quot;ı&quot;;break;
			
	}
	return $snc;
}

function kucuk_harfe_donustur($metin)
{
	$metin1=&quot;&quot;;
	for ($i=0;$i&lt;strlen($metin);$i++)
		$metin1.=kucuk_harf($metin[$i]);
	return $metin1;
}

function kelime_turu($klm)
{
	$klm=trim($klm);
	switch(true)
	{
	case ($klm==&quot;ve&quot; || $klm==&quot;ile&quot; || $klm==&quot;ise&quot; || $klm==&quot;de&quot; || $klm==&quot;da&quot;): $sonuc=&quot;Bağla&ccedil;&quot;;break;
	case (is_numeric($klm)): $sonuc=&quot;Sayı&quot;;break;
	case (strrpos($klm,&quot;,&quot;) &amp;&amp; strrpos($klm,&quot;,&quot;)!=strlen($klm)-1): $sonuc=&quot;&lt;&lt; Boşluk Hatası &gt;&gt;&quot;;break;
	case (strrpos($klm,&quot;.&quot;) &amp;&amp; strrpos($klm,&quot;.&quot;)!=strlen($klm)-1): $sonuc=&quot;&lt;&lt; Boşluk Hatası &gt;&gt;&quot;;break;
	case ($klm==&quot;&quot;): $sonuc=&quot;&lt;&lt; Boşluk Hatası &gt;&gt;&quot;;break;
	default: $sonuc=&quot;Kelime&quot;;break;
	}
	return $sonuc;
}

if (isset($_POST['dugme']))
{
	$metin=strtolower(strtr($_POST['metin'],&quot;&Ccedil;&Ouml;Şİ&Uuml;ĞI&quot;,&quot;&ccedil;&ouml;şi&uuml;ğı&quot;));
	$dizi=explode(&quot; &quot;,$metin);
	$kelimeler=array_count_values($dizi);	
	arsort($kelimeler);
	
	echo &quot;&lt;table width='800' border='1'&gt;
		&lt;tr bgcolor='#DB9393'&gt;
    		&lt;td&gt;Kelime&lt;/td&gt;
    		&lt;td&gt;Frekans&lt;/td&gt;
			&lt;td&gt;Y&uuml;zde&lt;/td&gt;
			&lt;td&gt;T&uuml;r&uuml;&lt;/td&gt;
  		&lt;/tr&gt;
	&quot;;
	
	foreach ($kelimeler as $kelime=&gt;$sayi) {
		
		$yuzde=100*$sayi/count($kelimeler);
		$klm_tur=kelime_turu($kelime);
		$grafik=&quot;&lt;img src='dikdortgen.jpg' width='$yuzde%' height='30px'/&gt;&quot;;
    	echo &quot;	
			&lt;tr bgcolor='#FFFFCE'&gt;
    		&lt;td&gt;$kelime&lt;/td&gt;
    		&lt;td&gt;$sayi&lt;/td&gt;
			&lt;td&gt;$grafik %$yuzde&lt;/td&gt;
			&lt;td&gt;$klm_tur&lt;/td&gt;
  			&lt;/tr&gt;
  		&quot;;
	}

  echo &quot;&lt;/table&gt;&quot;;

}

?&gt;
&lt;/body&gt;
&lt;/html&gt;
</textarea></form>