如何删除TextArea中某一行。我的程序错在何处？

复制内容到剪贴板

代码:

function DelLine(obj){
    obj.focus();   
    var r1 = document.body.createTextRange();
    var r2 = document.body.createTextRange();
    var s  = document.selection.createRange();
    var re = obj.createTextRange().getClientRects();
    var t  = s.getBoundingClientRect().top;
    for(i=0;i<re.length;i++)if(re[i].top>=t)break;
    r2.moveToPoint(re[i].left,re[i].top);
    r1.setEndPoint("StartToStart", r2);
    r2.moveToPoint(re[i].left,re[i].bottom);
    r1.setEndPoint("EndToEnd", r2);
    r1.text = "";
}

复制内容到剪贴板

代码:

<textarea name="textarea" cols="50" rows="5" id="_AA"  ondblclick="DelLine(this);">
aaaaa
bbbb
cccc
dddd
</textarea>