Alles over kennisdomeinen op een rijtje.
Versie 22.02.22

INVR BZV2 ".$invr_bzv2." INVR FUNC ".$invr_func; $chbt_array=array(); if ($invr_func == null) { $invr_func="vgpt"; } if($invr_domn == null) { ////////////////////// GESPREKSPARTNERS ////////////// $chbt_rslt=xtrt_xxxx("----","nederlands","base"); // $chbt_rslt=xtrt_xxxx($invr_bzv1,"nederlands","base"); ksort($chbt_rslt); // print_r($chbt_rslt); foreach($chbt_rslt as $chbt_key =>$chbt_val) { $chbt_itms=explode("!!",$chbt_key); // print_r($chbt_itms); $tref_taal=$chbt_itms[1]; if ($tref_taal == $invr_taal) { $tref_scre=$chbt_itms[0]; $tref_chbt=$chbt_itms[2]; $tref_domn=$chbt_itms[3]; $tref_domn=strtolower($tref_domn); $domn_array[$tref_domn."@domn"]=$domn_array[$tref_domn."@domn"]+1; $tref_corp=$chbt_itms[4]; $tref_corp=strtolower($tref_corp); $domn_array[$tref_corp."@corp"]=$domn_array[$tref_corp."@corp"]+1; $tref_datm=$chbt_itms[5]; $tref_levl=$chbt_itms[6]; $tref_url=$chbt_itms[7]; $domn_array[$tref_chbt."@chbt"]=$domn_array[$tref_chbt."@chbt"]+1; if ($invr_bzv2== null) { // $chbt_array[$tref_chbt]=$chbt_array[$tref_chbt]+1; } if ($invr_bzv2 == $tref_chbt[0]) { // echo "
CHBT_TREF==". $tref_chbt[0]."INVR BZV2== ".$invr_bzv2 ; // $chbt_array[$tref_chbt]=$chbt_array[$tref_chbt]+1; } // echo "
".$tref_chbt." ".$tref_corp; } } } ksort($domn_array); // print_r($domn_array); echo ""; $cl=0; echo "
"; foreach ($domn_array as $domn_key => $domn_val) { $domn_dtls=explode("@",$domn_key); $domn_text=$domn_dtls[0]; $domn_base=$domn_dtls[1]; if ($domn_base == "chbt") { // echo ""; $invr_vgpt=$domn_text; } $len_bzv2=strlen($invr_bzv2); // echo "
INVR BZV2 ".$invr_bzv2." LEN BZV2 ".$len_bzv2." TEKST ".$domn_text; if ($frelt != $domn_text) { $frelt == $domn_text; if ($domn_base == "corp") { // echo ""; $text_file="./data/".$domn_text."/lnk00000.dat"; // $text_file="https://www.semanta.nl/semanta/".$text_file; $lc=0; $tc=$tc+1; if ($cl == 4 ) { $cl=0; echo ""; } $file_size=filesize($text_file); $pdomn_text="".$domn_text.""; if ($file_size > 0) { $pdomn_text="".$domn_text.""; echo ""; $cl=$cl+1; } // echo ""; } if ($file_size > 0) { // echo ""; $open_corp=$text_file; // echo "
".$domn_text."
".$invr_vgpt."--". $domn_text."

". $pdomn_text."

". $pdomn_text."
".$invr_file." SIZE ".$file_size."/td>
"; $f = fopen($text_file, "r"); $word_count=0; $line_count=0; $full_docm=""; $tc=0; while ($line = fgets($f, 1000)) { # TITLE // $name_array=bepl_line($line) // print_r($name_array); $title_lngt=strlen($line); $line=str_replace("_"," ",$line); $line=str_replace("&"," ",$line); // echo ""; $ufull_val=urlencode($line); // echo ""; $ufull_val=str_replace("%0D%0A","",$ufull_val); $line=urldecode($ufull_val); $full_docm=$full_dom." ".$line; // echo ""; if (substr($line,0,10) == "THE TITLE:") { $titl_itms=explode(" ",$line); $title=$tc."-".substr($line,10,$title_lngt); $lc=0; foreach($titl_itms as $titl_key => $titl_val) { $titl_val=str_replace(",","",$titl_val); if (strlen($titl_val) > 4) { $lc=$lc+1; // echo "
<category><pattern>".$lc."-".$titl_val."</pattern><template>".$title."</template></category>
"; } } } # URL // echo "
LINE ".$line; if (substr($line,0,8) == "THE URL:") { $url_dtls=explode("/",$line); // print_r($url_dtls); $url=substr($line,8,$title_lngt); $aiml_url="<url>".$line."</url></link>"; $line=str_replace(".","xprd",$line); if (count($url_dtls) > 1) { // echo "
AIML URL :".$aiml_url; // echo "
URL Verfijning:".$url_dtls[1]; } } } } } } echo ""; echo "
".$line."
".$ufull_val."
NO 0D And 0A".$line."
"; // print_r($full_docm); ?>