蛙蛙池塘

没有公主的蛙蛙王子

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]onlytiancai的公告

残荷听雨，梨花飞雪，落英缤纷时节。晓来谁染枫林醉？点点都是离人泪<br> 活着，就是快乐！自信，就是美丽！有人爱，就是幸福。 <br><img src="http://bbs.inhe.net/UploadFile/2004-2/2004212153455526.gif" width=120 height=100><br>但愿野百合也有春天 <br></b><br><img src="http://img.mms.sohu.com/mms/1225/33/30733/p1.gif"> <STYLE TYPE="text/css" MEDIA=screen>  </STYLE>

[编辑]文章分类

[编辑]友情博客

Sinoprise Studios姐姐的博客

存档

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

</SCRIPT>
</HEAD>