如何用Javascript获得TextArea中的光标位置

写一个在线编辑器，UBB版的，由于没有使用弹出窗口，所以，在添加代码的时候，只能添在TextArea的最后面，无法在光标之前插入，于是在网上疯狂的找资料，工夫不负有心人，终于被我找到了如何获得TextArea中的位置，但是如果TextArea中有很多内容的时候，会显得很闪烁。其代码如下。
   
   　　function getPos(obj)
   　　{
   　　obj.focus();
   　　var workRange=document.selection.createRange();
   　　obj.select();
   　　var allRange=document.selection.createRange();
   　　workRange.setEndPoint("StartToStart",allRange);
   　　var len=workRange.text.length;
   　　workRange.collapse(false);
   　　workRange.select();
   
   　　return len;
   　　}
   
   　　这时候问题出来了，在obj.select()的时候，会造成闪烁，并且滚动条也无法归位。于是小弟根据自己的需要，将其改写如下：
   
   function getCaret(ZysrID)
   {
    var txb = document.getElementById(ZysrID);//根据ID获得对象
    var pos = 0;//设置初始位置
    txb.focus();//输入框获得焦点,这句也不能少,不然后面会出错,血的教训啦.
    var s = txb.scrollTop;//获得滚动条的位置
    var r = document.selection.createRange();//创建文档选择对象
    var t = txb.createTextRange();//创建输入框文本对象
    t.collapse(true);//将光标移到头
    t.select();//显示光标,这个不能少,不然的话,光标没有移到头.当时我不知道,搞了十几分钟
    var j = document.selection.createRange();//为新的光标位置创建文档选择对象
    r.setEndPoint("StartToStart",j);//在以前的文档选择对象和新的对象之间创建对象,妈的,不好解释,我表达能力不算太好.有兴趣自己去看msdn的资料
    var str = r.text;//获得对象的文本
    var re = new RegExp("[\\n]","g");//过滤掉换行符,不然你的文字会有问题,会比你的文字实际长度要长一些.搞死我了.我说我得到的数字怎么总比我的实际长度要长.
    str = str.replace(re,"");//过滤
    pos = str.length;//获得长度.也就是光标的位置
    r.collapse(false);
    r.select();//把光标恢复到以前的位置
    txb.scrollTop = s;//把滚动条恢复到以前的位置
   }
   
   //设置光标函数
   
   function setCaret(id,pos)
   {
   　　var textbox = document.all(id);
   　　var r = textbox.createTextRange();
   　　r.collapse(true);
   　　r.moveStart('character',pos);
   　　r.select();
   }
   
   　　其实这个不难，但不知道的时候，会搞死人的。我为了实现这个效果，前前后后差不多试了五个小时，妈的。但愿这个对一些兄弟有帮助。