请问怎么样得到多行文本框中光标的位置/选择的文本？

给你一个梅花雪斑竹类似的例子:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>光标位置</title>
<style>
INPUT{border: 1 solid #000000}
BODY,TABLE{font-size: 10pt}
</style>
</head>
<body><table border="0" width="700" cellspacing="0" cellpadding="0">
  <tr>
<td width="479" rowspan="7">
点击 TextArea 实现光标定位<p>
<textarea rows="7" cols="49" id="box" onclick=tellPoint()>    记得红与黑最后那段吗？一个猎人在草丛中穿行，皮靴踩翻了一只蚁巢。
猎人浑然不觉继续远行，而蚁群四散逃开，最后只剩下那些刚孵化的幼蚁，天
然的本能支配它们纷纷努力向最近的高出爬去。那么哪一些蚂蚁会爬到最高点？ 　　不说那些选择了草从的幼蚁，就说那些碰巧被命运安排在一棵大树脚下的
一些幼蚁吧。它们在往上爬的过程中不断的遇到分枝，只有那些一直选择了主
干的幼蚁最终能爬到人生的最高点，而那些选择了侧枝的幼蚁则在选择的开始
就决定了它只能达到一个人生的低点。无论它怎样的努力。实际上，在起初的
选择以后，努力与否已经无关紧要了。即使它开始进行了个正确的选择，在它
向上爬的过程中还会遇到新的选择，只有它始终选择正确，才可能爬到树顶。
在越靠近树根的地方做的选择越重要，如果它在第一个分支就选择错误，那以
后的命运可想而知。     关键的问题在于，对它最重要的选择，是在它最年幼无知，最没有选择能
力的时候做出的。当它在向上爬行的过程中成熟起来并回头张望的时候，也许
会明白许多，但是已无能为力。 
</textarea>   
 
<script> 
 
function movePoint() 
{ 
 var pn = parseInt(pnum.value); 
  
 if(isNaN(pn)) 
  return; 
  
 var rng = box.createTextRange(); 
   
 rng.moveStart("character",pn); 
  
 rng.collapse(true);  
  
 rng.select(); 
  
 returnCase(rng)  
   
} 
 
function tellPoint() 
{ 
 var rng = event.srcElement.createTextRange(); 
 
 rng.moveToPoint(event.x,event.y);  
 rng.moveStart("character",-event.srcElement.value.length)  
  
 pnum.value = rng.text.length 
  
 returnCase(rng) 
} 
 
 
function returnCase(rng) 
{ 
 bh.innerText = rng.boundingHeight; 
 bl.innerText = rng.boundingLeft; 
 bt.innerText = rng.boundingTop; 
 bw.innerText = rng.boundingWidth; 
 ot.innerText = rng.offsetTop; 
 ol.innerText = rng.offsetLeft; 
 t.innerText  = rng.text; 
} 
 
 
function selectText(sp,ep) 
{ 
 sp = parseInt(sp) 
 ep = parseInt(ep) 
  
 if(isNaN(sp)||isNaN(ep)) 
  return; 
   
 var rng = box.createTextRange(); 
  
 rng.moveEnd("character",-box.value.length) 
 rng.moveStart("character",-box.value.length) 
  
 rng.collapse(true); 
  
 rng.moveEnd("character",ep) 
 rng.moveStart("character",sp) 
  
 rng.select(); 
  
 returnCase(rng); 
} 
var rg = box.createTextRange();
 
function findText(tw) 
{ 
 if(tw=="") 
  return;
  
 var sw = 0; 
  
 if(document.selection) 
 { 
  sw = document.selection.createRange().text.length; 
 }  
  
 rg.moveEnd("character",box.value.length); 
  
 rg.moveStart("character",sw);  if(rg.findText(tw))  
 { 
  rg.select(); 
  returnCase(rg);
 } 
 
 if(rg.text!=tw)
 {
  alert("已经搜索完了")
  rg = box.createTextRange()
}
   
} 
 
</script>  
</p>
<p></p>
光标位置：<input type="text" value="0" id="pnum" size="8"> <input type="button" onclick="movePoint()" value="移动光标到指定位置"> 
<p></p>   
选择指定范围：<input type="text" size="9" id="sbox"> -- <input type="text" size="9" id="ebox"> <input type="button" onclick="selectText(sbox.value,ebox.value)" value="选择">
<p></p>
选择查找字符 ：<input type="text" value="" id="cbox" size="8"> <input type="button" onclick="findText(cbox.value)" value="查找下一个并选择"> </td>  
<td width="217">boundingHeight: <span id="bh"></span></td>  
  </tr>  
  <tr>  
<td width="217">boundingWidth: <span id="bw"></span></td>  
  </tr>  
  <tr>  
<td width="217">boundingTop: <span id="bt"></span></td>  
  </tr>  
  <tr>  
<td width="217">boundingLeft: <span id="bl"></span></td>  
  </tr>  
  <tr>  
<td width="217">offsetLeft: <span id="ol"></span> </td>  
  </tr>  
  <tr>  
<td width="217">offsetTop: <span id="ot"></span> </td>  
  </tr>  
  <tr>  
<td width="217">text: <span style="position: absolute; z-index: 10" id="t"></span> </td>  
  </tr>  
</table>  
</body></html>