{"id":58145,"date":"2023-01-24T03:01:29","date_gmt":"2023-01-23T17:01:29","guid":{"rendered":"http:\/\/www.rjmprogramming.com.au\/ITblog\/?p=58145"},"modified":"2023-01-24T14:15:54","modified_gmt":"2023-01-24T04:15:54","slug":"wikipedia-mark-primer-tutorial","status":"publish","type":"post","link":"https:\/\/www.rjmprogramming.com.au\/ITblog\/wikipedia-mark-primer-tutorial\/","title":{"rendered":"Wikipedia Mark Primer Tutorial"},"content":{"rendered":"
\"Wikipedia<\/a>

Wikipedia Mark Primer Tutorial<\/p><\/div>\n

We’ve got a new “proof of concept” PHP wiki_mark_eight.php<\/a> web application<\/a> for you to try today. We’re interested in the notion, perhaps, that highlighted webpage word content can help with “skim reading”. Does it help you notice, or partition somehow, on the fly, if you are doing research and development in a limited period of time?<\/p>\n

We’ll readily admit … the jury’s out. But we could give it a go with Wikipedia<\/a> content.<\/p>\n

So, given the web application is PHP (writing HTML) what can be the road towards Javascript DOM innerText<\/a> equivalence<\/font>?<\/p>\n

<?php
\n
\n\/\/ wiki_mark_eight.php
\n\/\/ Encase 8 letter or above words in <mark><\/mark><\/a>
\n\/\/ RJM Programming
\n\/\/ January, 2023
\n
\n set_time_limit(3600);
\n
\n $letlen=8;
\n $langis='en';
\n $urlis='';
\n
\nfunction relative_to_absolute($inth) {
\n global $urlis, $letlen;
\n $froms=[];
\n $sfroms=\" \";
\n $ub=\"http:\/\/\" . $_SERVER['SERVER_NAME'] . \":\" . $_SERVER['SERVER_PORT'] . $_SERVER['REQUEST_URI'];
\n if ($urlis != \"\") {
\n $ubf=explode(\"?\", $urlis);
\n $ubff=explode(\"\/\", $ubf[0]);
\n if (strpos($ubff[sizeof($ubff) - 1], \".\") !== false && (sizeof($ubff) - 1) > 2) {
\n $ub=str_replace(\"\/\" . $ubff[sizeof($ubff) - 1], \"\/\", $ubf[0]);
\n } else {
\n $ub=str_replace(\"@$@\", \"\", str_replace(\"\/@$@\", \"\/\", ($ubf[0] . \"@$@\")));
\n }
\n $urlis=\"\";
\n }
\n $ubf=explode(\"?\", $ub);
\n $udirname=str_replace(\"\/wiki_\" . \"mark_eight.php\", \"\/\", $ubf[0]);
\n \/\/echo $udirname;
\n \/\/exit;
\n \/\/$low = strtolower($inth);
\n $outth = $inth;
\n $ideas = array(\" action='\", ' action=\"', \" Action='\", ' Action=\"', \" ACTION='\", ' ACTION=\"', \" action=\", \" Action=\", \" ACTION=\", \" href='\", ' href=\"', \" Href='\", ' Href=\"', \" HREF='\", ' HREF=\"', \" href=\", \" Href=\", \" HREF=\", \" src='\", ' src=\"', \" Src='\", ' Src=\"', \" SRC='\", ' SRC=\"', \" src=\", \" Src=\", \" SRC=\");
\n if ($udirname != \"\") {
\n $inth=str_replace(\"'\/static\/\", \"'\" . explode(\"\/wiki\/\", $udirname)[0] . \"\/static\/\", $inth);
\n $inth=str_replace('\"\/static\/', '\"' . explode(\"\/wiki\/\", $udirname)[0] . \"\/static\/\", $inth);
\n $inth=str_replace(\"'\/wiki\/\", \"'\" . explode(\"\/wiki\/\", $udirname)[0] . \"\/wiki\/\", $inth);
\n $inth=str_replace('\"\/wiki\/', '\"' . explode(\"\/wiki\/\", $udirname)[0] . \"\/wiki\/\", $inth);
\n $inth=str_replace(\"'\/w\/\", \"'\" . explode(\"\/wiki\/\", $udirname)[0] . \"\/w\/\", $inth);
\n $inth=str_replace('\"\/w\/', '\"' . explode(\"\/wiki\/\", $udirname)[0] . \"\/w\/\", $inth);
\n $outth = $inth;
\n for ($m=0; $m<sizeof($ideas); $m++) {
\n $huhs = explode($ideas[$m], $inth);
\n if (sizeof($huhs) > 1) {
\n for ($ii=(sizeof($huhs) - 1); $ii>=1; $ii--) {
\n if (strtolower(str_replace(\"file\", \"http\", strtolower(substr($huhs[$ii], 0, 4)))) == \"http\") {
\n $outth = $outth;
\n } else if (substr($huhs[$ii], 0, 1) != \"\/\" && substr($huhs[$ii], 0, 1) != \"'\" && substr($huhs[$ii], 0, 1) != '\"') {
\n $outth = str_replace($huhs[$ii], $udirname . $huhs[$ii], $outth);
\n } else if (substr($huhs[$ii], 1, 1) != \"\/\" && substr($huhs[$ii], 0, 1) != \"'\" && substr($huhs[$ii], 0, 1) != '\"') {
\n $outth = str_replace($huhs[$ii], substr($udirname, 0, (strlen($udirname) - 0)) . $huhs[$ii], $outth);
\n }
\n }
\n }
\n }
\n }
\n

\n $cerrs=explode(\">\", $outth);
\n for ($jj=1; $jj<sizeof($cerrs); $jj++) {
\n \/\/$aerrs=explode(\" \", $outth);
\n $aerrs=explode(\" \", explode('<', $cerrs[$jj])[0]);<\/font>
\n for ($ii=0; $ii<sizeof($aerrs); $ii++) {
\n if (strlen($aerrs[$ii]) >= $letlen) {
\n if (strpos($sfroms, ' ' . $aerrs[$ii] . ' ') === false) {
\n $berrs=explode(' ' . $aerrs[$ii] . ' ', $outth);
\n \/\/$laste=explode(\">\", $berrs[0])[-1 + sizeof(explode(\">\", $berrs[0]))];
\n \/\/if (strpos($laste, \"<\") === false) {
\n $sfroms.=$aerrs[$ii] . ' ';
\n \/\/}
\n }
\n }
\n }
\n }<\/font>
\n

\n $froms=explode(\" \", trim($sfroms));
\n for ($ii=0; $ii<sizeof($froms); $ii++) {
\n $outth=str_replace(' ' . $froms[$ii] . '<', ' <mark>' . $froms[$ii] . '<\/mark><', str_replace('>' . $froms[$ii] . ' ', '><mark>' . $froms[$ii] . '<\/mark> ', str_replace(' ' . $froms[$ii] . ' ', ' <mark>' . $froms[$ii] . '<\/mark> ', $outth)));
\n }
\n return $outth;
\n}
\n
\n if (isset($_GET['url'])) {
\n if (isset($_GET['letlen'])) {
\n $letlen=urldecode($_GET['letlen']);
\n }
\n $urlis=urldecode($_GET['protocol']) . urldecode($_GET['lang']) . urldecode($_GET['afterlang']) . str_replace('+','_',urldecode($_GET['url']));
\n \/\/echo $urlis;
\n \/\/exit;
\n $contis=file_get_contents($urlis);
\n echo relative_to_absolute($contis);
\n exit;
\n

\n } else {
\n

\n echo \"<html>
\n <head>
\n <script type='text\/javascript'>
\n var place='_blank';
\n

\n function ChangeLcodeNow(selov) {
\n document.getElementById('lang').value=selov.substring(0,2);
\n }
\n

\n function toggle(ia) {
\n if (place == '_blank') {
\n place='below';
\n document.getElementById('myform').target=place;
\n ia.title='Click for New Tab';
\n ia.innerHTML='+';
\n document.getElementById('myhr').style.display='block';
\n } else {
\n place='_blank';
\n document.getElementById('myform').target=place;
\n ia.title='Click for Below';
\n ia.innerHTML='-';
\n }
\n }
\n <\/script>
\n <\/head>
\n <body style=background-color:#f0f0f0; onload=\\\" if (document.URL.indexOf('https:') == 0) { location.href='http:' + document.URL.substring(6); } \\\">
\n <form onsubmit=\\\" if (place != '_blank') { document.getElementById('below').style.display='block'; } return true; \\\" id=myform target=_blank action=http:\/\/\" . $_SERVER['SERVER_NAME'] . str_replace(\":80\",\"\",str_replace(\":443\",\"\",\":\" . $_SERVER['SERVER_PORT'])) . explode('#',explode('?',$_SERVER['REQUEST_URI'])[0])[0] . \" method=GET>
\n <h1>Wikipedia Mark <input type=number style=display:inline-block;width:50px; name=letlen value='8' min=6><\/input> and Above Length Words<\/h1>
\n <h3>RJM Programming <a onclick=toggle(this); style=cursor:pointer; title='Click for Below'>-<\/a> January, 2023<\/h3>
\n <input type=text style=display:inline-block;width:50px; name=protocol value='http:\/\/' readonly><\/input><select style=dislay:inline-block;width:1px;background-color:lightpink; id=language title='Optionally select language' onchange='ChangeLcodeNow(this.value);'><option id=langone value='en'>English (en)<\/option><option value='af'>Afrikaans<\/option><option value='sq'>Albanian<\/option><option value='am'>Amharic \u2728<\/option><option value='ar'>Arabic<\/option><option value='hy'>Armenian<\/option><option value='az'>Azerbaijani<\/option><option value='eu'>Basque<\/option><option value='be'>Belarusian<\/option><option value='bn'>Bengali \u2728<\/option><option value='bs'>Bosnian \u2728<\/option><option value='bg'>Bulgarian<\/option><option value='ca'>Catalan<\/option><option value='ceb'>Cebuano \u2728<\/option><option value='zh-CN'>Chinese (Simplified)<\/option><option value='zh-TW'>Chinese (Traditional)<\/option><option value='co'>Corsican \u2728<\/option><option value='hr'>Croatian<\/option><option value='cs'>Czech<\/option><option value='da'>Danish<\/option><option value='nl'>Dutch<\/option><option value='en'>English<\/option><option value='eo'>Esperanto \u2728<\/option><option value='et'>Estonian<\/option><option value='fi'>Finnish<\/option><option value='fr'>French<\/option><option value='fy'>Frisian \u2728<\/option><option value='gl'>Galician<\/option><option value='ka'>Georgian<\/option><option value='de'>German<\/option><option value='el'>Greek<\/option><option value='gu'>Gujarati \u2728<\/option><option value='ht'>Haitian Creole<\/option><option value='ha'>Hausa \u2728<\/option><option value='haw'>Hawaiian \u2728<\/option><option value='he'>Hebrew<\/option><option value='hi'>Hindi<\/option><option value='hmn'>Hmong \u2728<\/option><option value='hu'>Hungarian<\/option><option value='is'>Icelandic<\/option><option value='ig'>Igbo \u2728<\/option><option value='id'>Indonesian<\/option><option value='ga'>Irish<\/option><option value='it'>Italian<\/option><option value='ja'>Japanese<\/option><option value='jv'>Javanese \u2728<\/option><option value='kn'>Kannada \u2728<\/option><option value='kk'>Kazakh \u2728<\/option><option value='km'>Khmer \u2728<\/option><option value='rw'>Kinyarwanda \u2728<\/option><option value='ko'>Korean<\/option><option value='ku'>Kurdish \u2728<\/option><option value='ky'>Kyrgyz \u2728<\/option><option value='lo'>Lao \u2728<\/option><option value='lv'>Latvian<\/option><option value='lt'>Lithuanian<\/option><option value='lb'>Luxembourgish \u2728<\/option><option value='mk'>Macedonian<\/option><option value='mg'>Malagasy \u2728<\/option><option value='ms'>Malay<\/option><option value='ml'>Malayalam \u2728<\/option><option value='mt'>Maltese<\/option><option value='mi'>Maori \u2728<\/option><option value='mr'>Marathi \u2728<\/option><option value='mn'>Mongolian \u2728<\/option><option value='my'>Myanmar (Burmese) \u2728<\/option><option value='ne'>Nepali \u2728<\/option><option value='no'>Norwegian<\/option><option value='ny'>Nyanja (Chichewa) \u2728<\/option><option value='or'>Odia (Oriya) \u2728<\/option><option value='ps'>Pashto \u2728<\/option><option value='fa'>Persian<\/option><option value='pl'>Polish<\/option><option value='pt'>Portuguese (Portugal, Brazil)<\/option><option value='pa'>Punjabi \u2728<\/option><option value='ro'>Romanian<\/option><option value='ru'>Russian<\/option><option value='sm'>Samoan \u2728<\/option><option value='gd'>Scots Gaelic \u2728<\/option><option value='sr'>Serbian<\/option><option value='st'>Sesotho \u2728<\/option><option value='sn'>Shona \u2728<\/option><option value='sd'>Sindhi \u2728<\/option><option value='si'>Sinhala (Sinhalese) \u2728<\/option><option value='sk'>Slovak<\/option><option value='sl'>Slovenian<\/option><option value='so'>Somali \u2728<\/option><option value='es'>Spanish<\/option><option value='su'>Sundanese \u2728<\/option><option value='sw'>Swahili<\/option><option value='sv'>Swedish<\/option><option value='tl'>Tagalog (Filipino)<\/option><option value='tg'>Tajik \u2728<\/option><option value='ta'>Tamil \u2728<\/option><option value='tt'>Tatar \u2728<\/option><option value='te'>Telugu \u2728<\/option><option value='th'>Thai<\/option><option value='tr'>Turkish<\/option><option value='tk'>Turkmen \u2728<\/option><option value='uk'>Ukrainian<\/option><option value='ur'>Urdu<\/option><option value='ug'>Uyghur \u2728<\/option><option value='uz'>Uzbek \u2728<\/option><option value='vi'>Vietnamese<\/option><option value='cy'>Welsh<\/option><option value='xh'>Xhosa \u2728<\/option><option value='yi'>Yiddish<\/option><option value='yo'>Yoruba \u2728<\/option><option value='zu'>Zulu \u2728<\/option><\/select><input title=Language type=text style=display:inline-block;width:25px;background-color:lightpink; id=lang name=lang value='en' minlength=2 maxlength=2><\/input><input type=text style='display:inline-block;width:130px;' id=afterlang name=afterlang value='.wikipedia.org\/wiki\/' readonly><\/input><input type=text style='display:inline-block;background-color:lightpink;' id=url name=url placeholder='Your_Topic_Goes_Here' value=''><\/input>
\n <input type=submit value='Mark' style=background-color:yellow;><\/input>
\n <\/form>
\n <hr id=myhr style=display:none;><\/hr>
\n <iframe frameborder=0 name=below id=below style=display:none;width:100%;height:900px;><\/iframe>
\n <\/body>
\n <\/html>\";
\n }
\n<\/code>
\n?><\/p>\n

Feel free to try below, if you like …<\/p>\n