蛙蛙池塘

没有公主的蛙蛙王子

蛙蛙推荐:用正则表达式替换html标签

这个小程序可以把html控件转换为web控件,比如说<input name="a">可以换成<<asp:TextBox   id= "a" runat="server"></asp:TextBox>

写了一中午才写成

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>一个小正则表达式 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="蛙蛙王子">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
 
<SCRIPT LANGUAGE="vbScript">
function change()
 s=document.all("txt1").value   
 Dim regEx, retVal            ' 建立变量。
 Set regEx = New RegExp         ' 建立正则表达式。
 regEx.Pattern = "(<input)(.*?)(name=)(.*?)(>)"   ' 设置模式。
 regEx.IgnoreCase = True         ' 设置不区分大小写。
 regEx.Global = True   ' 设置全程性质。
 retVal = regEx.Test(s)         ' 执行搜索测试。
 If retVal Then  
  msgbox("找到一个或多个匹配")
 Else
  msgbox("没有找到")
    End If 
 document.all("txt2").value=regEx.Replace(s, "<asp:TextBox $2 id= $4 runat=""server""></asp:TextBox>")  
end function
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function c(){
document.all["txt2"].value = document.all["txt1"].value.replace(/(<input)(.*?)(name=)(.*?)(>)/ig,"<asp:TextBox $2 id= $4 runat=/"server/"></asp:TextBox>");
}
//-->
</SCRIPT>
</HEAD>

<BODY>
     <p>
      <textarea name="txt1" cols="50" rows="5" id="txt1"></textarea>
</p>
    <p>
      <textarea name="txt2" cols="50" rows="5" id="txt"></textarea>
      <br>
</p>

      <input type="button" name="Submit" value="转换" language="vbscript" onClick="change()"> <input type="button" name="Submit" value="转换" language="JavaScript" onClick="c()">
    <p>&nbsp; </p>
</BODY>
</HTML>

阅读更多
个人分类: javascript相关
上一篇蛙蛙推荐:蛙蛙牌asp上传组件,(有完整注释)
下一篇蛙蛙请教:动态拼接表格问题的解决
想对作者说点什么? 我来说一句

蛙灵桌面。蛙灵桌面。蛙灵桌面

2009年10月14日 535KB 下载

没有更多推荐了,返回首页

关闭
关闭