vbs的正则，太久没用忘光了

[灬上海爽爷]

现要替换form action里的内容，要求相对路径改绝对路径，绝对路径也要改另一个域名
假设

content="<form action=""?action=1""></form><form action=""test.asp""></form><form action=""/test.asp""></form><form action=""../test.asp""></form><form action=""http://www.xxx.net.cn/test.asp""></form>"

'共5种情况，现要求替换成如下这种
content="<form action=""http://www.xxx.org.cn/?action=1""></form><form action=""http://www.xxx.org.cn/test.asp""></form><form action=""http://www.xxx.org.cn/test.asp""></form><form action=""http://www.xxx.org.cn/../test.asp""></form><form action=""http://www.xxx.org.cn""></form>"

求高手帮写个正则

[daols]

http://www.xxx.org.cn/../test.asp
这个地址应该不存在吧...

还有最后那个<form action=""http://www.xxx.org.cn"">
不用加test.asp么??

看不懂楼主的意思...

[叶子]

'1
<form action=""?action=1"">
变成
<form action=""http://www.xxx.org.cn/?action=1"">
'2
<form action=""test.asp""></form>
变成
<form action=""http://www.xxx.org.cn/test.asp""></form>
'3
<form action=""/test.asp"">
变成
<form action=""http://www.xxx.org.cn/test.asp""></form>
'4
<form action=""../test.asp""></form>
变成
<form action=""http://www.xxx.org.cn/../test.asp""></form>
'5
<form action=""http://www.xxx.net.cn/test.asp""></form>
变成
<form action=""http://www.xxx.org.cn""></form>

最后一个把网站都改了？？

[叶子]

'貌似替换一下就满足前4条
content=Replace(content,"action=""","action=""http://www.xxx.org.cn/"))

[灬上海爽爷]

嗯，自己解决了，当散分吧。

[daols]

content="<form action=""?action=1""></form><form action=""test.asp""></form><form action=""/test.asp""></form><form action=""../test.asp""></form><form action=""http://www.xxx.net.cn/test.asp""></form>"
'共5种情况，现要求替换成如下这种
'content="<form action=""http://www.xxx.org.cn/?action=1""></form><form action=""http://www.xxx.org.cn/test.asp""></form><form action=""http://www.xxx.org.cn/test.asp""></form><form action=""http://www.xxx.org.cn/../test.asp""></form><form action=""http://www.xxx.org.cn""></form>"

' 本人测试成功( 环境win2003sp2, WSH-5.6 ), 执行了三次替换:
'1. 替换 http:// 开头的:
content=xReplace(content, "action=""http:\/\/.*?""", "action=""http://www.xxx.org.cn""")
'2. 替换非 http:// 开头的:
content=xReplace(content, "action=""((?!http:\/\/).*?)""", "action=""http://www.xxx.org.cn/$1""")
'3. 修复路径中的双斜杠 ( //test ) 字符:
content=xReplace(content, "action=""http:\/\/(.*?)\/\/", "action=""http://$1/")

msgbox content

Private Function xReplace(txt,exp,str)
set regex=new regexp
regex.pattern=exp
regex.ignorecase=true
'regex.MultiLine = false '低版本WSH不兼容此选项
regex.global=true
xReplace=regex.Replace(txt,str)
End Function

Private Function xTest(exp,str)
set regex=new regexp
regex.pattern=exp
regex.ignorecase=true
'regex.MultiLine = false '低版本WSH不兼容此选项
regex.global=true
xTest=regex.test(str)
End Function

另:
如果只是要达到这样的htm代码运行效果, 可以用js直接在DOM结构中修改代码而不用直接改脚本文件内容, 这样能兼容更多的浏览器, 类似:

var x=document.forms;
for (var i=0;i<x.length;i++){
  if (/^http/.test(x[i].getAttribute('action'))) {x[i].setAttribute('action', 'http://www.xxx.org.cn');} else {
    x[i].setAttribute('action', 'http://www.xxx.org.cn/'+x[i].getAttribute('action'));
  }
}

[daols]

额...上边那个Private Function xTest(exp,str)段没用上可以去掉...

还有js最后一行改成:
x[i].setAttribute('action', 'http://www.xxx.org.cn/'+x[i].getAttribute('action').replace(/^\//gi, ''));