analysis.php 1.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. <?php
  2. require_once "install_head.php";
  3. $filelist=array();
  4. $fileNums=0;
  5. if(($handle=fopen("filelist.csv",'r'))!==FALSE){
  6. while(($filelist[$fileNums]=fgetcsv($handle,0,','))!==FALSE){
  7. $fileNums++;
  8. }
  9. }
  10. $arrAllPaliWordsCount=array();
  11. $dirBase="analysis/";
  12. $outputDir="analysis/";
  13. $g_paliWordCounter=0;
  14. $wordCountCsvHead=array("词","数量","百分比");
  15. for($i=0;$i<$fileNums;$i++){
  16. $outputFileNameHead=$filelist[$i][1];
  17. $inputFileName[$i]=$dirBase.$outputFileNameHead.".csv";
  18. if(($handle=fopen($inputFileName[$i],'r'))!==FALSE){
  19. $wordCountCsvHead[$i*2+3]=$inputFileName[$i];
  20. while(($data=fgetcsv($handle,0,','))!==FALSE){
  21. $arrAllPaliWordsCount[$data[1]][0]=$data[1];
  22. if(count($arrAllPaliWordsCount[$data[1]])>1){
  23. $arrAllPaliWordsCount[$data[1]][1]+=$data[2];
  24. //$arrAllPaliWordsCount[$data[1]][$i*2+2]=$data[2];
  25. //$arrAllPaliWordsCount[$data[1]][$i*2+3]=$data[3];
  26. }
  27. else{
  28. $arrAllPaliWordsCount[$data[1]][1]=$data[2];
  29. //$arrAllPaliWordsCount[$data[1]][$i*2+2]=$data[2];
  30. //$arrAllPaliWordsCount[$data[1]][$i*2+3]=$data[3];
  31. }
  32. $g_paliWordCounter+=$data[2];
  33. }
  34. }
  35. else{
  36. echo "open file:".$inputFileName[$i]."false<br>";
  37. }
  38. fclose($handle);
  39. }
  40. $outputfile=$outputDir."all_count.csv";
  41. /*Pali单词统计表*/
  42. if(($fp=fopen($outputfile, "w"))!==FALSE){
  43. fputcsv($fp,$wordCountCsvHead);
  44. $i=0;
  45. $iLastRate=0.0;
  46. foreach($arrAllPaliWordsCount as $x=>$x_value){
  47. $x_value[2]=$x_value[1]*10000/$g_paliWordCounter;
  48. fputcsv($fp,$x_value);
  49. }
  50. fclose($fp);
  51. echo "Pali单词表统计导出到:"."_count_pali.csv<br>";
  52. }
  53. else{
  54. echo "can not open csv file. filename="."_count.csv";
  55. }
  56. ?>