這個小程式可以把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>一個小Regex </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。
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> </p>
</BODY>
</HTML>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
