IE上のカーソル位置に文字列を書き込む方法

JavaScriptでカーソルの位置（テキストボックス上に
カーソルがあるとする）に文字列を書き込む
方法を教えてください。

No.1 回答者： kokorone 回答日時： 2006/05/09 22:32

参照ＵＲＬを右クリックしてソースを表示してみました。

<script language=javascript>
<!--
/*IE以外用ダミー*/
function pos(){}
function ins(){}
//-->
</script>
<script language=jscript>
var n=0
function pos(){
if(!document.all)return
var r=document.selection.createRange()
r.moveEnd("textedit")
n=r.text.length
}
function ins(str){
var r=document.forms[0].txt1.createTextRange()
r.collapse()
r.moveStart("character",document.forms[0].txt1.value.length-n)
r.text=str
}
</script>
<form>
カーソル位置に文字を挿入できます
<p>
<input type=text name=txt1 size=60 onmouseup=pos() onkeyup=pos()>
<br>
<input type=button onclick=ins("文字") value=文字挿入>
</form>

参考URL：http://mugi.cc/js/000603.htm