1. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  2.  
  3. <script language=javascript>
  4.  
  5. function countSelected()
  6. {
  7. var txt=document.frm.ta1.value;
  8. var st=document.frm.ta1.selectionStart;
  9. var en=document.frm.ta1.selectionEnd;
  10. var sel = txt.substring(st, en);
  11.  
  12. if (txt.substring(en, en+1)=="-" || txt.substring(en, en+1)=="'")
  13. {
  14. var i=0;
  15. while(txt.substring(en+i,en+i+1)!=",")
  16. {
  17. sel+=txt.substring(en+i,en+i+1); i++;
  18. }
  19. }
  20.  
  21. var sel = " "+sel+",";
  22. var tav = " "+ txt + ",";
  23. var c = 0;
  24.  
  25. for (i=0;i<tav.length;i++)
  26. if (sel == tav.substr(i,sel.length))
  27. c++;
  28.  
  29. alert(c);
  30. }
  31.  
  32. </script>
  33.  
  34. <form name="frm">
  35. <textarea style="width:600px; height:600px;" name="ta1" id="ta1" onDblclick="countSelected()">
  36. TEXT BURAYA Modern, t&#305;p, bu, problemleri, çözmek, için, ne, yapabilir, &#304;talya'n&#305;n, Napoli, Federico, Üniversitesi, Üroloji, Klini&#287;i, Direktörü, Prof, Dr, Vincenzo, Mirone, bu, söyle&#351;i, format&#305;ndaki, kitapta, Roberto, Gervaso, ile, beraber, bilimsel, ciddiyetten, &#351;a&#351;madan, okuyucuya, bu, konular&#305;, sade, ve, canl&#305;, bir, &#351;ekilde, aç&#305;klamaktad&#305;r, Bu, küçük, el, kitab&#305;nda, çekingenlik, veya, önyarg&#305;lar&#305;m&#305;z, nedeniyle, sormaya, cesaret, edemedi&#287;imiz, tüm, sorular&#305;n, cevaplar&#305;, bulunmaktad&#305;r, Daha, iyi, ya&#351;amak, için, bir, rehber, hislerle, &#304;talya'n&#305;n, devaml&#305;, mücadelede, B&#305;kmadan, Modern, t&#305;p, bu, problemleri, çözmek, için, ne, yapabilir, &#304;talya’n&#305;n, Napoli, Federico, Üniversitesi, Üroloji, Klini&#287;i, Direktörü, Prof, Dr, Vincenzo, Mirone, bu, söyle&#351;i, format&#305;ndaki, kitapta, Roberto, Gervaso, ile, beraber, bilimsel, ciddiyetten, &#351;a&#351;madan, okuyucuya, bu, konular&#305;, sade, ve, canl&#305;, bir, &#351;ekilde, aç&#305;klamaktad&#305;r, Bu, küçük, el, kitab&#305;nda, çekingenlik, veya, önyarg&#305;lar&#305;m&#305;z, nedeniyle, sormaya, cesaret, edemedi&#287;imiz, tüm, sorular&#305;n, cevaplar&#305;, bulunmaktad&#305;r, Daha, iyi, ya&#351;amak, için, bir, rehber, hislerle, devaml&#305;, mücadelede, B&#305;kmadan
  37. </textarea>
  38. </form>