Keskustelu: Koodit: PHP: Kirjainten esiintymistiheys

<?php

	#################################
	#  Kirjainten esiintymistiheys  #
	#    Nikolai Lampola 2004       #
	#    nlampola@gmail.com         #
	#################################

	//Alla olevaan se tekstinpätkä, voidaan tietenkin ottaa myös $_GETistä tai $_POSTista, soveltakaa tilanteen mukaan
	$oteksti = "Ohjelmointiputka on suomenkielinen Internet-sivusto, joka aloitti toimintansa vuoden 2002 alussa. Sivustolla on monipuolinen valikoima ohjelmointiin liittyviä oppaita ja koodivinkkejä sekä vilkas keskustelualue. Aika ajoin järjestetään myös erilaisia ohjelmointikilpailuja.";

	//Otetaan tekstistä pois kaikki erikoismerkit
	$teksti = preg_replace("/[^a-zA-ZåäöÅÄÖ]/",NULL,$oteksti);

	//Lasketaan kirjainten määrät
	$kirjaimet = array();
	for ($i = 0; $i <= strlen($teksti); $i++) { $kirjaimet[strtolower($teksti[$i])]++; }
	$keys = array_keys($kirjaimet);

	//Sortataan lopuksi suurimmasta pienimpään
	asort($kirjaimet,SORT_NUMERIC);
	$kirjaimet = array_reverse($kirjaimet);

	//Ja tulostetaan, myös prosentit mukaan
	echo "<b>Teksti:</b><br>".$oteksti."<br><br><b><table border='1'><tr><td>Kirjain</td><td>Kirjaimien määrä</td><td>Prosentteina koko tekstistä</td></tr>";
	$i = -1;
	foreach ($kirjaimet as $kirjain)
	{
		$i++;
		if ($keys[$i] == '') {continue;} //Jos sattuu tulemaan tyhjä merkki

		// yhden kirjaimen määrä / kaikkien merkkien määrällä * 100
		echo "<tr><td><b>".strtoupper($keys[$i])."</b></td><td>{$kirjain}</td><td>".round($kirjain/strlen($teksti)*100,1)." %</td></tr>";
	}
	echo "</table><br>";

?>