蛙蛙推荐:用正则表达式替换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>

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值