易语言编程。怎样实现依次复制并粘贴编辑框1.内容的第一行、第二行...一直到最后一行？ 附带源代码.e文件

function executeScript(html) {

var reg = www.guanbeijixie.com

//对整段木屑颗粒机HTML片段按<\/script>拆分

var htmlBlock = html.split("<\/script>")

for ( var i in htmlBlock) {

var blocks

if (blocks = htmlBlock[i].match(reg)) {

var code = blocks[1].replace(/<!--/, '')

try {

//eval_r(code)

if (!!(window.attachEvent &&!window.opera)) {

//ie

execScript(code)

} else {

//not ie

window.eval_r(code)

}

} catch (e) {

}

}

}

}

/1、网页代码如下：

<script language=javascript>

   // 自动 COPY 代码开始

   function MM_findObj(n, d) { //v4.0

   var p,i,x if(!d) d=document if((p=n.indexOf("?"))>0&&parent.frames.length) {

   d=parent.frames[n.substring(p+1)].document n=n.substring(0,p)}

   if(!(x=d[n])&&d.all) x=d.all[n] for (i=0!x&&i<d.forms.lengthi++) x=d.forms[n]

   for(i=0!x&&d.layers&&i<d.layers.lengthi++) x=MM_findObj(n,d.layers.document)

   if(!x && document.getElementById) x=document.getElementById(n) return x

   }

   function JM_cc(ob){

   var obj=MM_findObj(ob) if (obj) {

   obj.select()js=obj.createTextRange()js.execCommand("Copy")}

   alert("复制成功！您可以将本页推荐给您QQ或者论坛上的朋友阅读！")

   }

   

   // 自动 COPY 代码结束

   document.write('<br><b><font color=red style=font-size:14px>点击复制推荐给您的朋友阅读：</font></b><input name="page_url" value="'+window.location.href+'" size="64" style=color:red value="点击复制地址给您的朋友阅读" onClick=JM_cc("page_url")>')

   </script>

2、复制的HTML代码的话，可以在代码前加上<span>，在代码后加上</span>。例：<span>这里是你复制的内容！！</span>。

---