Semanta Tel:+31-6-4807 8750 Als u geen gespreksonderwerp opgeeft wordt de tekst gespreksonderwerp gebruikt."; require_once ("gram-tabl.php"); // print_r($conv_tabl); include ("text-isrt-func.php"); include ("smta-tlkd-func-0017.php"); // echo "
INVR TAAL ".$invr_taal; if ($invr_taal == null) { $invr_taal="nederlands"; } if ($invr_domn == null) { echo "
Als u geen gespreksonderwerp opgeeft wordt de tekst gespreksonderwerp gebruikt."; $invr_domn="gespreksonderwerp"; } if ($invr_chbt == null) { echo "
Als u geen gesprekspartner opgeeft wordt de tekst semanta gebruikt."; $invr_chbt="semantus"; } echo "

"; //////////// $tabl_work="berp,wtvr,data"; $tabl_itms=explode(",",$tabl_work); foreach($tabl_itms as $tabl_key => $tabl_val) { $invr_tabl=$tabl_val; echo "
INVR ABL ".$conv_tabl[$invr_tabl]; $berp_rslt=xtrt_xxxx($invr_bzv1,$invr_taal,$invr_tabl,6); // print_r($berp_rslt); arsort($berp_rslt); $tabl_num=count($berp_rslt); // echo "
Aantal ".$tabl_num." ".$gevonden_termen."<>".$rchs; if ($tabl_num > 0) { echo ""; foreach($berp_rslt as $berp_key => $berp_val) { $berp_dtls=explode("!!",$berp_key); // print_r($berp_dtls); $berp_scre=$berp_dtls[0]; $berp_taal=$berp_dtls[1]; $berp_chbt=$berp_dtls[2]; $berp_corp=$berp_dtls[3]; $dtls_wrds=explode(" ",$berp_lnks); $berp_rchs=$berp_dtls[4]; $sberp_corp=str_replace(" ","+",$berp_berp); $sberp_rchs=str_replace(" ","+",$berp_rchs); $berp_frst=$berp_dtls[7]; $berp_array[$berp_chbt."@".$berp_rchs."@".$berp_lnks."@".$invr_tabl."@".$berp_corp."@".$invr_ipad."@".$invr_cont]=$berp_array[$berp_chbt."@".$berp_rchs."@".$berp_lnks."@".$invrt_tabl."@".$berp_corp."@".$invr_ipad."@".$invr_cont]+1; } }} asort($berp_array); // print_r($berp_array); foreach($berp_array as $berp_key => $berp_val) { // echo "BERP KEY ".$berp_key."BERP VAL ".$berp_val; $berp_dtls=explode("@",$berp_key); // echo "

BERP DLS"; // print_r($berp_dtls); foreach($berp_dtls as $dtls_key => $dtls_val) { echo "DLS KEY ".$dtls_key."DLS VAL ".$dtls_val; } $berp_chbt=$conv_tabl[$berp_srce]; echo "
INVR CHB ".$conv_tabl[$berp_srce]; $berp_rchs=$berp_dtls[1]; $berp_lnks=$berp_dtls[2]; $berp_srce=$berp_dtls[3]; $dtls_wrds=explode(" ",$berp_lnks); $sberp_chbt=str_replace(" ","+",$berp_chbt); $sberp_lnks=str_replace(" ","+",$berp_lnks); $sberp_rchs=str_replace(" ","+",$berp_rchs); $berp_frst=$berp_dtls[7]; echo "

CHBt ".$berp_chbt."LNKS ".$berp_lnks." RCHS ".$berp_rchs; $berp_rslt=xtrt_xxxx($berp_lnks,$invr_taal,"berp",8); // echo "

BERP RSL"; // print_r($berp_rslt); if ($brelt != $berp_chbt ) { // echo ""; $full_text[$invr_tabl]=$full_text[$invr_tabl]+1; $full_text[$berp_chbt]=$full_text[$berp_chbt]+1; $full_text[$berp_lnks]=$full_text[$berp_lnks]+1; $full_text[$berp_rchs]=$full_text[$berp_rchs]+1; $corp_dtls=explode(",",$berp_corp); $brelt = $berp_chbt; } } echo "

FULL EX"; print_r($full_text); ksort($full_text); echo "

".$berp_chbt."=".$berp_lnks."=".$berp_rchs."

"; foreach($full_text as $dtls_key => $dtls_val) { echo ""; } echo "

".$dtls_key."

"; // echo "
INVR LGRM ".$invr_lgrm; $bzkr_taal=text_isrt($invr_taal."@".$invr_taal); $woorddelen=text_isrt($invr_taal."@woorddelen"); $vertalingen=text_isrt($invr_taal."@vertalingen"); $vertalingen=strtoupper($vertalingen); $vertaling=text_isrt($invr_taal."@vertaling"); $grammatica=text_isrt($invr_taal."@grammatica"); $bewerken=text_isrt($invr_taal."@bewerken"); $gevonden_termen=text_isrt($invr_taal."@gevonden termen"); $kenmerken=text_isrt($invr_taal."@kenmerken"); $bewerken=text_isrt($invr_taal."@bewerken"); $aantal_woorden=text_isrt($invr_taal."@aantal woorden"); $woorddelen=text_isrt($invr_taal."@woorddelen"); $uw_antwoord=text_isrt($invr_taal."@uw antwoord"); // echo "
vertaling ".$woorddelen; // echo "
grammatica ".$grammatica; // echo "
bewerken ".$bewerken; // echo "
Woorddelen ".$woorddelen; // echo '

'.$vertalingen.'

'; $smta_modl="shrt-berp.php"; $targ="_self"; // include "isrt-taal.php"; $invr_lgrm=$invr_lgrm." U ".$invr_bzv1." IK ".$invr_bzv2; if ($invr_bzv1 == null) { $invr_bzv1="smta"; } if ($invr_bzv1 != null) { $save_bzv1=$invr_bzv1; } // echo "
INVR DOMN ".$invr_domn." INVR BZV1 ".$invr_bzv1."
"; $taal_rslt=bepl_taal($invr_bzv1); // print_r($taal_rslt); $taal_itms=explode(".",$taal_rslt); $text_ipcd=$taal_itms[0]; $text_taal=$taal_itms[1]; // echo "
".$text_taal.""; //////////////////////////// CONVERT TO PROCESSEABLE TEXT ///////////////////// $invr_bzv1=str_replace("/v.)",",vrl, ",$invr_bzv1); $invr_bzv1=str_replace("/",",=, ",$invr_bzv1); $invr_bzv1=str_replace("�","",$invr_bzv1); $invr_bzv1=str_replace("�","",$invr_bzv1); $invr_bzv1=str_replace("�","",$invr_bzv1); $invr_bzv1=str_replace("+"," ",$invr_bzv1); $splt_bzv1=explode(" ",$invr_bzv1); foreach ($splt_bzv1 as $splt_key => $splt_val) { // echo "
SPLT BZV1 EEN ".$splt_val."
"; } // $invr_bzv1=$splt_bzv1[0]." ".$splt_bzv1[2]; // echo "
INVR BZV1 TWEE ".$invr_bzv1."
"; $bzv1_leng=strlen($invr_bzv1); $new_bzv1=""; for ($l=0;$l<$bzv1_leng;$l++) { $asci_letr=ord($invr_bzv1[$l]); // echo "
INVR BZV1 ".$invr_bzv1[$l]."=ascii ".$asci_letr; if ($asci_letr == 13 or $asci_letr == 10 or $asci_letr == 9) { $invr_bzv1[$l] = "."; // echo "
INVR = "; } $asci_letr=ord($invr_bzv1[$l]); $new_bzv1=$new_bzv1.$invr_bzv1[$l]; } // echo "
SHRT berp ".$new_bzv1; //////////////////////////// echo "
LENGTE BZV1 ".strlen($invr_bzv1); $splt_bzv1=explode(".",$invr_bzv1); // print_r($splt_bzv1); $tlfm_array=array(); echo "
SINVR DOMN ".$sinvr_domn; ?> ".$sql0." Aantal ".$tabl_num." ".$gevonden_termen."<>".$rchs; if ($tabl_num > 0) { foreach($berp_rslt as $berp_key => $berp_val) { echo "
BERP KEY ".$berp_key; $ipad=$row['ipad']; $taal=$row['taal']; $domn=$row['domn']; $lnks=$row['lnks']; $rchs=$row['rchs']; $lnks=str_replace("_"," ",$lnks); $gw27_rchs=$rchs; $rchs_itms=explode(",",$gw27_rchs); print_r($rchs_itms); $gw27_lnks=$lnks; $srchs=substr(str_replace(" ","+",$rchs),0,128); // include ("tlkd-rslt.php"); $rslt_rchs=str_replace("%%",$invr_domn,$rchs); echo "
".$datm." ".$lnks."
".$rslt_rchs.""; } } exit; /////////////////////////// $zoek_bzv1=str_replace(" ","",$invr_bzv1); $nr=0; $zoek_ipad="%".$userip."%"; $sql0="SELECT * from berp WHERE `ipad` like '$zoek_ipad' order by datm desc "; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $tablresult = mysql_query($sql0, $link); $tabl_num = mysql_num_rows($tablresult); echo "
".$sql0." Aantal ".$tabl_num." ".$gevonden_termen."<>".$rchs; if ($tabl_num > 0) { while ($row = mysql_fetch_assoc($tablresult) and $nr < 10) { $ipad=$row['ipad']; $taal=$row['taal']; $domn=$row['domn']; $lnks=$row['lnks']; $rchs=$row['rchs']; $datm=$row['datm']; $lnks=str_replace("_"," ",$lnks); $gw27_rchs=$rchs; $gw27_lnks=$lnks; $srchs=substr(str_replace(" ","+",$rchs),0,128); // include ("tlkd-rslt.php"); if ($nr == 0) { echo "
".$datm." ".$lnks."
".$rchs.""; echo "

"; } if ($nr > 0) { echo "
".$lnks." ".$rchs.""; } $nr=$nr+1; } } //////// ZOEK SPLT ////// $zoek_bzv1=str_replace(" ","",$invr_bzv1); $sql0="SELECT * from berp WHERE `rchs` = 'splt' order by rchs asc"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $tablresult = mysql_query($sql0, $link); $tabl_num = mysql_num_rows($tablresult); // echo "
FIND SPLT ".$sql0." Aantal ".$tabl_num." ".$gevonden_termen; if ($tabl_num > 0) { while ($row = mysql_fetch_assoc($tablresult)) { $ipad=$row['ipad']; $taal=$row['taal']; $domn=$row['domn']; $lnks=$row['lnks']; $rchs=$row['rchs']; $gw27_rchs=$rchs; $gw27_lnks=$lnks; // echo "
".$lnks." ".$rchs.""; $tlkd_pos=strpos($invr_bzv1,$lnks); if ($tlkd_pos === false) { // echo "
The string ".$tlkd_form." was not found in the string ".$line_bzv1; } else { // echo "
TLKD POS ".$tlkd_pos." GW27 LNKS ".$gw27_lnks." GW27 RCHS ".$gw27_rchs; // echo "
TLKD ANLS SENT SPLT ".$gw27_rchs." GW27 LNKS ".$gw27_lnks." BZV1 ".$invr_bzv1." FORM ".$tlkd_form." ZERO ".$rslt_domn[0]." ONE ".$rslt_domn[1]; // $gw27_rchs="vrvg"; // $tlkd_form="is de"; // $invr_bzv1="Semanta is de handelsnaam waaronder Lingvistica taalkundige producten en diensten levert"; // echo "
".$splt_zinn[1]." lijkt een vervolg op ".$splt_zinn[0]." als gevolg van ".$gw27_rchs; $ra=0; if ($gw27_rchs == "vrvg" or $gw27_rchs== "vrwz" or $gw27_rchs== "vrwd" or $gw27_rchs == "splt") { $swdot=1; $aiml_text="".$gw27_lnks."".trim($splt_zinn[0]).""; $splt_zinn=explode($gw27_lnks,$invr_bzv1); print_r($splt_zinn); echo "
".$aiml_text."".$splt_zinn[0]." ".$gw27_lnks." ".$splt_zinn[1].""; $cmds_ipad=$userip; $rshrt_key=str_replace(" ","_",$invr_bzv2); $cmds_bzv2=trim($splt_zinn[0])."[berp[".$invr_taal."[".$gw27_lnks."[".trim($splt_zinn[1])."[100"; echo "
INVR BZV2 ".$cmds_bzv2; // include ("chbt-cmds-code-2.php"); } // include ("tlkd-rslt.php"); } } } ////////////////////////// $sg=0; $vg=0; $sw_eror=0; $tlkd_rslt=smta_tlkd($invr_bzv1."@tlkd"); $invr_bzv1=trim($invr_bzv1); $expl_bzv1=explode(" ",$invr_bzv1); // echo "
INVR BZV1 ".$invr_bzv1; // print_r($expl_bzv1); // echo "
COUNT ".count($expl_bzv1); if (count($expl_bzv1) < 9 and count($expl_bzv1) > 1) { $stlkd_form=str_replace(" ","+",$invr_bzv1); $sql="SELECT * FROM berp where `lnks` = '$invr_bzv1' "; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $mtch_result = mysql_query($sql, $link); $num_mtch = mysql_num_rows($mtch_result); // echo "
berp SQL Aantal entries ".$num_mtch." for ".$sql; if ($num_mtch == 0) { $ltlkd_form=" ".$invr_bzv1.""; $tlfm_array[$ltlkd_form]=$tlfm_array[$ltlkd_form]+1; } if ($num_mtch > 0); { while ($row = mysql_fetch_assoc($mtch_result)) { $chtr_ipad=$row['ipad']; $chtr_taal=$row['taal']; $chtr_domn=$row['domn']; $domn_array[$chtr_domn]=$domn_array[$chtr_domn]+1; $chtr_lnks=$row['lnks']; $zoek_last="gps.".$tlkd_form; $last_rslt=$last_array[$zoek_last]; if ($last_rslt != null) { $chtr_lnks=$last_rslt; } $chtr_rchs=$row['rchs']; $chtr_levl=$row['levl']; $chtr_rchs=str_replace("!!",$tlkd_form,$chtr_rchs); $chtr_lnks=trim($chtr_lnks); $chtr_rchs=trim($chtr_rchs); $vrag_array[$vg]=$chtr_lnks.".".$chtr_rchs; $vg=$vg+1; // echo "
RCHS ".$chtr_rchs." LNKS ".$chtr_lnks." TLKD KEY ".$tlkd_key." LEVL ".$chtr_levl; } } } foreach ($tlkd_rslt as $tlkd_key => $tlkd_val) { $last_text=""; // echo "
LINE BZV1 ".$line_bzv1; // echo "
KEY ".$tlkd_key." VAL ".$tlkd_val; $key_itms=explode("@",$tlkd_key); // echo "
KEY ITMS
"; // print_r($key_itms); $tlkd_gram=$key_itms[0]; $tlkd_form=$key_itms[1]; $tlkd_gram=trim($tlkd_gram); $tlkd_form=trim($tlkd_form); if ($tlkd_val == "onderwerp") { $form_itms=explode(".",$tlkd_form); $subj_array[$form_itms[1]]=$subj_array[$form_itms[1]]+1; } $stlkd_form=str_replace(" ","+",$tlkd_form); $stlkd_gram=str_replace(" ","+",$tlkd_gram); // $tlkd_form=str_replace("START","",$tlkd_form); // echo "
TLKD KEY".$tlkd_key." TLKD VAL ".$tlkd_val." GRAMMATICA ".$tlkd_gram." WOORDVORM ".$tlkd_form."
"; $sgmt_text="vraag"; $form_itms=explode(".",$tlkd_form); // echo "
FORM ITMS
"; // print_r($form_itms); if (count($form_itms) > 1) { // echo "
FORM ITMS [1]".$tlkd_val." ".$form_itms[1]; $form_wrds[$tlkd_val.".".$tlkd_key]=$form_wrds[$tlkd_val.".".$tlkd_key]+1; } if ($tlkd_form == "error") { $svrag_qstn=str_replace(" ","+",$tlkd_gram); $smta_updt="lnks=".$stlkd_gram."&bzv1=".$svrag_qstn."&taal=".$text_taal; $psmta_word= ''.$tlkd_gram.''; $gram_rchs="
Not found"; echo "".$psmta_word." ".$gram_rchs.""; // echo ''; // echo '<'; // echo ''; echo ""; if ($er > 0) { // $gram_rchs="Dit woord ken ik ook niet."; } $er=$er+1; } if ($tlkd_form != "error" and $tlkd_val == "onderwerp") { $sw_error=0; $nzoek_form=str_replace(" ","_",$tlkd_form); // echo "
NZOEK ".$nzoek_form." TEXT TAAL ".$text_taal; $text_array[$tlkd_form]=$tlkd_val; $gram_array[$tlkd_form]=$tlkd_gram; // echo "
TEXT INFO ".$tlkd_form."-".$tlkd_val; trim($tlkd_form); $gram_itms=explode(" ",$tlkd_form); // print_r($gram_itms); //////////////////////////////////// $sql="SELECT * FROM berp where `lnks` = '$nzoek_form' or `lnks` = '$form_itms[1]' "; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $mtch_result = mysql_query($sql, $link); $num_mtch = mysql_num_rows($mtch_result); // echo "
berp SQL Aantal entries ".$num_mtch." for ".$sql; if ($num_mtch == 0) { // echo "
SYSTEEMFOUT CHTR SQL PLEASE CONTACT US on 31-162-313323"; // exit; } if ($num_mtch > 0 ) { // echo "
CHTR SQL gt 0 Aantal entries ".$num_mtch." for ".$sql; while ($row = mysql_fetch_assoc($mtch_result)) { $chtr_ipad=$row['ipad']; $chtr_taal=$row['taal']; $chtr_domn=$row['domn']; $domn_array[$chtr_domn]=$domn_array[$chtr_domn]+1; $chtr_lnks=$row['lnks']; $zoek_last="gps.".$tlkd_form; $last_rslt=$last_array[$zoek_last]; if ($last_rslt != null) { $chtr_lnks=$last_rslt; } $chtr_rchs=$row['rchs']; $chtr_levl=$row['levl']; $chtr_rchs=str_replace("!!",$tlkd_form,$chtr_rchs); $chtr_lnks=trim($chtr_lnks); $chtr_rchs=trim($chtr_rchs); $vrag_array[$vg]=$chtr_lnks.".".$chtr_rchs; $vg=$vg+1; // echo "
RCHS ".$chtr_rchs." LNKS ".$chtr_lnks." TLKD KEY ".$tlkd_key." LEVL ".$chtr_levl; } } str_replace("START","",$tlkd_form); $tlkd_pos=strpos($invr_bzv1,$tlkd_form,0); // echo "
TLKD POS ".$tlkd_pos.; $ptlkd_form="".$tlkd_form.""; $pline_bzv1=str_replace($tlkd_form,$ptlkd_form,$invr_bzv1); if ($tlkd_pos === false) { // echo "
The string ".$tlkd_form." was not found in the string ".$line_bzv1; } else { $pline_bzv1=str_replace($tlkd_form,$ptlkd_form,$invr_bzv1); // echo "
".$pline_bzv1; // echo "
TLKD FORM FOUND ".$tlkd_form; // echo "
LOCATIE ".$tlkd_form." POS ".$tlkd_pos; $tlkd_itms=explode(" ",$tlkd_form); // echo "
TLKD ITMS
"; // print_r($tlkd_itms); $form_rslt=""; foreach($tlkd_itms as $form_key => $form_val) { echo "
FORM_VAL".$form_val; if ($form_val !=null) { $form_rslt=$form_rslt." ".$form_val; } } // echo "
FORM_RSLT".$form_rslt; if (substr_count ($form_rslt," ") > 1 and substr($form_rslt,0,5) != "START") { echo "
FORM_RSLT".$form_rslt; // echo "
FORM RSLT ".$form_rslt." COUNT ".substr_count ($form_rslt," "); // $form_array[$form_rslt.".".$tlkd_pos]=$form_array[$form_rslt.".".$tlkd_pos]+1; $form_array[$form_rslt]=$tlkd_pos; } } } $form_itms=explode(" ",$tlkd_form); if (count($form_itms) > 1) { // echo " WOORDVORM ".$tlkd_form."
"; $tlkd_form=trim($tlkd_form); // $sql="SELECT ipad,taal,lnks,rchs,domn, MATCH (lnks,rchs) AGAINST ('$tlkd_form' ) AS scre FROM berp WHERE MATCH (lnks,rchs) AGAINST ('$tlkd_form' ) order by lnks asc"; $sql="SELECT * from berp where `lnks` ='$tlkd_form' order by lnks asc"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $mtch_result = mysql_query($sql, $link); $num_mtch = mysql_num_rows($mtch_result); // echo "
berp SQL Aantal entries ".$num_mtch." for ".$sql; if ($num_mtch == 0) { if ($hform != $tlkd_form) { $hform=$tlkd_form; $tlkd_pos=strpos($invr_bzv1,$tlkd_form); // echo "
TLKD POS ".$tlkd_pos; // $ptlkd_form="".$tlkd_form.""; // $pline_bzv1=str_replace($tlkd_form,$ptlkd_form,$invr_bzv1); if ($tlkd_pos === false) { // echo "
The string ".$tlkd_form." was not found in the string ".$line_bzv1; } else { $ltlkd_form="".$tlkd_form.""; // echo "
".$ltlkd_form; $tlfm_array[$ltlkd_form]=$tlfm_array[$ltlkd_form]; // echo "
SEGMENTNOT FOUND :"; // exit; } } } if ($num_mtch > 0 ) { // echo "
CHTR SQL gt 0 Aantal entries ".$num_mtch." for ".$sql; while ($row = mysql_fetch_assoc($mtch_result)) { $chtr_scre=$row['scre']; $chtr_ipad=$row['ipad']; $chtr_taal=$row['taal']; $chtr_domn=$row['domn']; $domn_array[$chtr_domn]=$domn_array[$chtr_domn]+1; $chtr_lnks=$row['lnks']; $zoek_last="gps.".$tlkd_form; $last_rslt=$last_array[$zoek_last]; if ($last_rslt != null) { $chtr_lnks=$last_rslt; } $chtr_rchs=$row['rchs']; $chtr_levl=$row['levl']; $chtr_rchs=str_replace("!!",$tlkd_form,$chtr_rchs); $chtr_lnks=trim($chtr_lnks); $chtr_rchs=trim($chtr_rchs); // echo "
KEY ".$subj_key." VAL ".$subj_val; if ($hrelt != $chtr_rchs) { $smta_array[$chtr_rchs]=$smta_array[$chtr_rchs]+1; $sg=$sg+1; $hrelt = $chtr_rchs; // echo "
RCHS ".$chtr_rchs." LNKS ".$chtr_lnks; } } } // echo "
TLKD VAL ".$tlkd_val; } } // print_r($tlfm_array); foreach ($tlfm_array as $tlfm_key => $tlfm_val) { echo "
".$tlfm_key; $tlfm_itms=explode(" ",$tlfm_key); } if (count($smta_array) > 0) { echo " Ik heb een of meer ".count($smta_array)." mogelijke antwoorden."; } // print_r($smta_array); asort($smta_array); foreach($smta_array as $smta_key => $smta_val) { // $invr_bzv2=$invr_bzv2."
".$smta_key; echo "
".$smta_key.""; $gw27_rchs=$smta_key; include ("tlkd-rslt.php"); } // echo "
Wat ik ervan denk ".$invr_bzv2.""; // print_r($smta_array); // echo "
GRAM ARRAY
"; // print_r($gram_array); // print_r($subj_array); $invr_domn=""; $vg=0; foreach($subj_array as $subj_key => $subj_val) { $invr_domn=$invr_domn." ".$subj_key; } ////// //////////////////////////////////// $sql="SELECT ipad,taal,lnks,rchs,domn, MATCH (lnks,rchs) AGAINST ('$invr_domn' ) AS scre FROM berp WHERE MATCH (lnks,rchs) AGAINST ('$invr_domn' ) order by lnks asc"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $mtch_result = mysql_query($sql, $link); $num_mtch = mysql_num_rows($mtch_result); // echo "
berp SQL Aantal entries ".$num_mtch." for ".$sql; if ($num_mtch == 0) { // echo "
SYSTEEMFOUT CHTR SQL PLEASE CONTACT US on 31-162-313323"; // exit; } if ($num_mtch > 0 ) { // echo "
CHTR SQL gt 0 Aantal entries ".$num_mtch." for ".$sql; while ($row = mysql_fetch_assoc($mtch_result)) { $chtr_scre=$row['scre']; $chtr_ipad=$row['ipad']; $chtr_taal=$row['taal']; $chtr_domn=$row['domn']; $domn_array[$chtr_domn]=$domn_array[$chtr_domn]+1; $chtr_lnks=$row['lnks']; $zoek_last="gps.".$tlkd_form; $last_rslt=$last_array[$zoek_last]; if ($last_rslt != null) { $chtr_lnks=$last_rslt; } $chtr_rchs=$row['rchs']; $chtr_levl=$row['levl']; $chtr_rchs=str_replace("!!",$tlkd_form,$chtr_rchs); $chtr_lnks=trim($chtr_lnks); $chtr_rchs=trim($chtr_rchs); $vrag_array[$vg]=".".$chtr_rchs; $vg=$vg+1; // echo "
SCORE ".$chtr_scre." RCHS ".$chtr_rchs." LNKS ".$chtr_lnks." TLKD KEY ".$tlkd_key." LEVL ".$chtr_levl; } } /////// // echo "
Semanta kiest en toont maximaal 4 resultaten.
Per gekozen term toont Semanta de woorddelen waarvan informatie in de woordenschat aanwezig is."; // echo "
Gespreksonderwerp: ".$invr_domn."
"; // print_r($form_wrds); if ($sw_error == 1) { ?> "; // echo "
WAT IS HET GEWORDEN VOOR ".$invr_bzv1."

"; $subj_form=""; $actv_form=""; asort($vrag_array); // print_r($vrag_array); //////////////////////////// VRAG ARRAY /////////////////////// $vrag_array=array_unique($vrag_array); $invr_bzv1=trim($invr_bzv1); $cinvr_bzv1="".$invr_bzv1.""; // echo "
WAT IS HET GEWORDEN VOOR CINVR BZV1 ".$cinvr_bzv1; foreach($vrag_array as $vrag_key => $vrag_val) { $vrag_itms=explode(".",$vrag_val); $vrag_rchs=$vrag_itms[1]; $svrag_rchs=str_replace(" ","+",$vrag_rchs); $vrag_lnks=$vrag_itms[0]; if ($hrelt != $vrag_rchs) { $cvrag_rchs=str_replace($invr_bzv1,$cinvr_bzv1,$vrag_rchs); echo "".$cvrag_rchs.""; $hrelt=$vrag_rchs; ?> "; $rshrt_key=str_replace(" ","_",$vrag_lnks); $cmds_ipad=$userip; if ($vrag_rchs != null) { $cmds_bzv2=$vrag_lnks."[berp[".$text_taal."[".$invr_domn."[".$invr_rchs."[".$invr_lgrm; // echo "
SHRT berp INVR BZV2 ".$cmds_bzv2; // include ("chbt-cmds-code-2.php"); } // echo "
berp ".$rshrt_key." IPAD ".$userip." DOMN ".$invr_bzv1." BZV2 ".$invr_bzv2." TAAL ".$text_taal." lnks ".$vrag_lnks; /////////// $invr_sess=$invr_sess."@".$shrt_key."@".$invr_bzv2."@".$invr_lnks; // echo "
INVR SESS ".$invr_sess; } } echo ""; $pline=""; $bzv1_itms=explode(" ",$invr_bzv1); $sinvr_domn=str_replace(" ","+",$invr_domn); // echo "
COUNT ITEMS ".count($bzv1_itms); if ($text_taal== null) { $text_taal="nederlands"; } $cntr_itms=count($bzv1_itms); if ($cntr_itms < 20) { $rbzv1_domn=str_replace(" ","_",$sinvr_domn); $ltlkd_form=" ".$invr_domn.""; echo "
".$ltlkd_form; } ///////////////////////// $invr_bzv1=$save_bzv1; $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); asort($subj_array); echo "

U kunt bij BOL kennis vergaren en tegelijkertijd bijbehorende producten bekijken en bestellen..."; // print_r($subj_array); echo ""; foreach($subj_array as $subj_key => $subj_val) { if (strlen($subj_key) > 3) { $tlkd_pos=strpos($invr_bzv1,$subj_key); $lbol=" ".$subj_key.""; $bol_array[$lbol]=$bol_array[$lbol]+1; // echo "
TLKD POS ".$tlkd_pos; // $ptlkd_form="".$tlkd_form.""; // $pline_bzv1=str_replace($tlkd_form,$ptlkd_form,$invr_bzv1); if ($tlkd_pos === false) { // echo "
The string ".$tlkd_form." was not found in the string ".$line_bzv1; // break; } else { // echo "
KEY ".$subj_key." VAL ".$subj_val; $sql0="SELECT ipad,taal,lnks,rchs,domn, MATCH (domn,lnks,rchs) AGAINST ('$subj_key' ) AS scre FROM smta WHERE MATCH (domn,lnks,rchs) AGAINST ('$subj_key' ) order by lnks asc"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $tablresult = mysql_query($sql0, $link); $tabl_num = mysql_num_rows($tablresult); // echo "
".$sql0." Aantal ".$tabl_num." ".$gevonden_termen."<>".$invr_bzv1; if ($tabl_num > 0) { $nl=0; } while ($row = mysql_fetch_assoc($tablresult) and $nl < 4) { $scre=$row['scre']; $ipad=$row['ipad']; $taal=$row['taal']; $domn=$row['domn']; $lnks=$row['lnks']; /////// $tlkd_rslt=smta_tlkd($lnks."@tlkd"); foreach ($tlkd_rslt as $tlkd_key => $tlkd_val) { if ($tlkd_val == "onderwerp") { $key_itms=explode("@",$tlkd_key); // echo "
KEY ITMS
"; // print_r($key_itms); $tlkd_gram=$key_itms[0]; $tlkd_form=$key_itms[1]; $tlkd_gram=trim($tlkd_gram); $tlkd_form=trim($tlkd_form); $tlkd_form=strtolower($tlkd_form); $form_itms=explode(".",$tlkd_form); $rslt_array[$form_itms[1]]=$rslt_array[$form_itms[1]]+1; } } $rchs=$row['rchs']; $tlkd_rslt=smta_tlkd($rchs."@tlkd"); foreach ($tlkd_rslt as $tlkd_key => $tlkd_val) { if ($tlkd_val == "onderwerp") { $key_itms=explode("@",$tlkd_key); // echo "
KEY ITMS
"; // print_r($key_itms); $tlkd_gram=$key_itms[0]; $tlkd_form=$key_itms[1]; $tlkd_gram=trim($tlkd_gram); $tlkd_form=trim($tlkd_form); $tlkd_form=strtolower($tlkd_form); $form_itms=explode(".",$tlkd_form); $rslt_array[$form_itms[1]]=$rslt_array[$form_itms[1]]+1; } } $lnks=str_replace("_"," ",$lnks); // echo "
SCORE ".$scre." ".$lnks." ".$rchs.""; if ($hrelt != $lnks) { break; // echo "
SCORE ".$scre." ".$lnks." ".$rchs.""; $slnks=str_replace(" ","+",$lnks); $srchs=str_replace(" ","+",$rchs); $lngt_lnks=strlen($lnks); $lngt_rchs=strlen($rchs); $llnks=""; if (strlen($lnks) > 512) { $llnks=""; $llnkd=""; } $lrchs=""; if (strlen($rchs) > 512) { $lrchs=""; $lrchd=""; } echo "".$llnks."
".$llnkd.""; $hrelt = $lnks; $nl=$nl+1; } } } } } echo "

".substr($lnks,0,64)."	".substr($lnks,0,64)."		".substr($rchs,0,64)."	".substr($rchs,0,64)."
".$lngt_lnks."	".$domn."	".$lngt_rchs." ".$lrchs." ".$llnkd."

"; // print_r($bol_array); foreach($bol_array as $bol_key => $bol_val) { echo "
".$bol_key; } echo "

"; ksort($rslt_array); if (count($rslt_array) > 0) { echo "".$invr_bzv1." "; } foreach($rslt_array as $rslt_key => $rslt_val) { if (strlen($rslt_key) > 3 ) { $aiml_text="<category><topic>".$invr_domn."</topic><pattern>".$rslt_key."</pattern><template>".$invr_chbt."</template></category>"; // echo "
AIML TEXT ".$aiml_text; echo $rslt_val."-".$rslt_key.""; $cmds_bzv2=$rslt_key."[tref[".$text_taal."[".$invr_domn."[".$invr_chbt."[".$invr_lgrm; // echo "
SHRT berp INVR BZV2 ".$cmds_bzv2; include ("chbt-cmds-code-2.php"); } } $rchs=str_replace("+"," ",$rchs); // echo "
".$lnks."".$rchs.""; $sinvr_lgrm=str_replace(" ","+",$invr_lgrm); //////////// echo ""; // echo "
SESSIE GEGEVENS ".$invr_lgrm; ?>