Export Pali Text DB to CSV
$from";
if($to==0 || $to>=217) $to=216;
$book = $from +1;
if(($fp=fopen(_DIR_PALI_TITLE_."/".$book."_title.csv", "w"))!==FALSE){
fputcsv($fp,array('id','book','par_num','level','class','title','text'));
PDO_Connect("sqlite:"._FILE_DB_PALITEXT_);
$query="select id, book, paragraph, level, class, toc, text from pali_text where book = '$book' ";
$title_data = PDO_FetchAll($query);
foreach( $title_data as $value){
$value["id"] = "NULL";
$value["book"] = "p".$value["book"];
if($value["level"]=="100"){
$value["toc"] = "";
}
fputcsv($fp,$value);
}
fclose($fp);
echo "ok";
}
else{
echo "error:can not open file "._DIR_PALI_TITLE_."/".$book."_title.csv";
}
if($from==$to){
echo "齐活！功德无量！all done!
";
}
else{
echo "";
echo "正在载入:".($from+1)."——".$filelist[$from+1][0];
}
?>