....
Set Retrieval = CreateObject( "Microsoft.XMLHTTP ")
.Open "Get ", url, False, " ", " "
.Send
......
Set Re=new RegExp
Re.Global = True
'我的理解 查找 <td xxxx> 标签内的内容替换成 <td>
Re.Pattern= " <td.+?> "
TheBody=Re.Replace(TheBody, " <td> ")
'替换链接地址
Re.Pattern= "http:\/\/mp3.baidu.com.+?&word= "
TheBody=Re.Replace(TheBody, "?t=2&word= ")
Re.Pattern= "(\s)\s+?(\S) "
TheBody=Re.Replace(TheBody, "$1$2 ")
Set Re=Nothing
最后这个 正则表达式 不是太明白
Re.Pattern= "(\s)\s+?(\S) " 是查找什么内容
$1 $2 是什么
麻烦高手指点
------解决方案--------------------
\s :与任何白字符匹配,包括空格、制表符、分页符等。
\S :与任何非空白的字符匹配。
+ :匹配前一个字符一次或多次。
? :匹配前一个字符零次或一次。