[原创]vb正则表达式的后向引用实例

[原创]vb
正则表达式的后向引用实例,必需在服务器端运行
用php不太会写
会的帮我改成php
<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s
Set re = New RegExp
re.Pattern = \"(1)\s+(2)\s+(3)\s+(4)\s+(5)\s+(6)\s+(7)\s+(8)\s+(9)\s+(0)\s+\"
s = \"0 1 2 3 4 5 6 7 8 9 0 \"
response.Write( re.Replace(s, \"{[$1][$3][$2][$4][$6][$8][$7][$9][$0]}\") )
%>


<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s

Set re = New RegExp

re.Pattern = \"(1)\s+(2)\s+(3)\s+a(?:y|ies)\s+(5)\s+(6)\s+(7)\s+(8)\s+(9)\s+(0)\s+\"

s = \"0 1 2 3 aies 5 6 7 8 9 0 \"'(?:y|ies)不储存供以后使用

response.Write( re.Replace(s, \"{[$4][$3][$2][$6][$8][$7][$9][$0]}\") )

%>



<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

re.Pattern = \"Windows(?=95|98|NT|2000|XP|Vista)\"

s = \"0 1 2 3 Windows98 5 WindowsNt 6 7 8 Windows95 9 Windows32 0 Windows3.1\"'(?:y|ies)不储存供以后使用

response.Write( re.Replace(s, \"DOS[$1]\") )'得不到第一次匹配,没有储存


%>


<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

re.Pattern = \"Windows(?!95|98|NT|2000|XP|Vista)\"

s = \"0 1 2 3 Windows98 5 WindowsNt 6 7 8 Windows95 9 Windows32 0 Windows3.1\"'(?:y|ies)不储存供以后使用

response.Write( re.Replace(s, \"DOS[$1]\") )

%>


<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

re.Pattern = \"[0-9]+\"

s = \"0 1 2 3 Windows98 5 WindowsNt 6 7 8 Windows95 9 Windows32 0 Windows3.1\"'(?:y|ies)不储存供以后使用

response.Write( re.Replace(s, \"[$&]\") )

%>


<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s

Set re = New RegExp
're.Global = True
re.IgnoreCase = True

re.Pattern = \"\s(WindowsNt)\s\"

s = \"0 1 2 3 Windows98 5 WindowsNt 6 7 8 Windows95 9 Windows32 0 Windows3.1\"'(?:y|ies)不储存供以后使用
response.Write(\"字串为:\"&s&\"<br>\" )
response.Write( re.Replace(s, \"<匹配左侧字符:[$`]>\") )
response.Write(\"<br>\" )
response.Write( re.Replace(s, \"<匹配右侧字符:[$']>\") )
response.Write(\"<br>\" )
response.Write( re.Replace(s, \"{<匹配本身:[$1]>$$|$}\") )
response.Write(\"<br>\" )
%>


<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

re.Pattern = \"([0-9])\"

s = \"0 1 2 3 Windows98 5 WindowsNt 6 7 8 Windows95 9 Windows32 0 Windows3.1\"'(?:y|ies)不储存供以后使用

response.Write( re.Replace(s, \"{<匹配本身:[$&]>}\") )
response.Write(\"<br>\" )
%>


<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

re.Pattern = \"\s(WindowsN[tn])(\s)\"

s = \"0 1 2 3 Windows98 5 WindowsNt 6 7 8 Windows95 9 Windows32 0 Windows3.1 WindowsNn 国\"'(?:y|ies)不储存供以后使用
response.Write(\"字串为:\"&s&\"<br>\" )
response.Write( re.Replace(s, \"<匹配左侧字符:[$`]>\") )
response.Write(\"<br>\" )
response.Write( re.Replace(s, \"<匹配右侧字符:[$']>\") )
response.Write(\"<br>\" )
'response.Write( re.Replace(s, \"{<匹配本身:[$1]>$$|$}\") )
response.Write(\"<br>\" )
response.Write( re.Replace(s, \"{<匹配本身:[$2]>$$|$}\") )
response.Write(\"<br>\" )
%>


<%
'作者:heshengyu
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
Dim re, s

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

re.Pattern = \"\s(WindowsN[tn0])(\s)\"

s = \"0 1 2 3 Windows98 5 WindowsNt 6 7 8 Windows95 9 Windows32 0 Windows3.1 WindowsNn WindowsN0 国\"'(?:y|ies)不储存供以后使用
response.Write(\"字串为:\"&s&\"<br>\" )
response.Write( re.Replace(s, \"<匹配左侧字符:[$`]>\") )
response.Write(\"<br>------------------------------------------------------<br>\" )
response.Write( re.Replace(s, \"<匹配右侧字符:[$']>\") )
response.Write(\"<br>------------------------------------------------------<br>\" )
response.Write( re.Replace(s, \"{<匹配1:[$1]>$$|$}\") )
response.Write(\"<br>------------------------------------------------------<br>\" )
response.Write( re.Replace(s, \"{<匹配2:[$2]>$$|$}\") )
response.Write(\"<br>------------------------------------------------------<br>\" )
response.Write( re.Replace(s, \"{<匹配本身$$&:[$&]>$$|$}\") )
response.Write(\"<br>------------------------------------------------------<br>\" )
%>

<html>
<body>

<script type=\"text/javascript\">
/*
'作者:heshengyu 改写
'Email:[email protected]
'http://w3c.5d6d.com
'date:20090808
'
*/

var str = \"Visit W3School, W3School is a place to study web technology.\";
var patt = new RegExp(\"(W3)(Sc)(ho)ol\",\"g\");
var result;

while ((result = patt.exec(str)) != null) {
for(i=0;i<result.length;i++){
document.write(result);
document.write(\"<br>\");
}
document.write(\"<br />\");
document.write(patt.lastIndex);
document.write(\"<br />\");
document.write(\"正则表达式的原文本patt.source:\"+patt.source);
document.write(\"<br />\");
document.write(\"patt.global:\"+patt.global);
document.write(\"<br />\");
document.write(\"patt.ignoreCase:\"+patt.ignoreCase);
document.write(\"<br />\");
document.write(\"patt.multiline:\"+patt.multiline);
document.write(\"<br />\");
document.write(RegExp.$1);
document.write(\"<br />\");
document.write(RegExp.$2);
document.write(\"<br />\");
document.write(RegExp.$3);
document.write(\"<br />\");
document.write(RegExp.$4);
document.write(\"<br />\");
document.write(RegExp.$99);
document.write(\"<br />-------------------------------<br>\");
}
</script>

</body>
</html>

楼主还是人才，多多学习php相关知识

真是人才，可以用vb写