1. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  2. <script language=javascript>
  3. function countSelected()
  4. {
  5. var txt=document.frm.ta1.value;
  6. var st=document.frm.ta1.selectionStart;
  7. var en=document.frm.ta1.selectionEnd;
  8. var sel = txt.substring(st, en);
  9. if (txt.substring(en, en+1)=="-")
  10. {
  11. var i=0;
  12. while(txt.substring(en+i,en+i+1)!=",")
  13. {
  14. sel+=txt.substring(en+i,en+i+1); i++;
  15. }
  16. }
  17. var sel = " "+sel+",";
  18. var tav = " "+ txt + ",";
  19. var c = 0;
  20.  
  21. for (i=0;i<tav.length;i++)
  22. if (sel == tav.substr(i,sel.length))
  23. c++;
  24. alert(c);
  25. }
  26. </script>
  27.  
  28. <form name="frm">
  29. <textarea style="width:600px; height:600px;" name="ta1" id="ta1" onDblclick="countSelected()">
  30. 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, 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
  31. </textarea>
  32. </form>