/** Parsing statistics file */
function get_numbers($filename)
{
$r = array();
$nt = readafile($filename);
$nt = explode("\n", $nt);
foreach ($nt as $x) {
$y = explode(":", $x);
if (count($y) == 2) {
$r[strtolower($y[0])] = $y[1];
}
}
return $r;
}
}
echo "\$" . $arrayname . "=array(";
$i = 0;
foreach ($list as $word) {
if ($i == 0) {
echo "\"" . $word . "\"";
} else {
echo ",\"" . $word . "\"";
}
$i++;
if ($i % $noperline == 0) {
echo "<br>\n";
}
}
echo ");";
}
//Read verbs
$verbs = readafile("verb_words.txt");
writearray($verbs, "verb", "20", 1, 0);
echo "<br>\n";
echo "<br>\n";
$nouns = readafile("noun_words.txt");
writearray($nouns, "noun", "20", 1, 10);
echo "<br>\n";
echo "<br>\n";
$adjectives = readafile("adjective_words.txt");
writearray($adjectives, "adjective", "20", 1, 0);
echo "<br>\n";
echo "<br>\n";
$adverbs = readafile("adverb_words.txt");
writearray($adverbs, "adverb", "20", 1, 0);
