如何自动在网址上面加一串字符,并打开网页呢?
网址是这个http://www.sciencedirect.com/science/article/pii/B9780122841514500002
现在想变化一下,加上这些..
.ezproxy.lib.monash.edu.au
并且把这一串放在.com和/中间,即变成
http://www.sciencedirect.com.ezproxy.lib.monash.edu.au/science/article/pii/B9780122841514500002
注意,这些网址是变化的,加的字符串也是变化的,但是都有一个规律,就是加的字符串放在网址出现的第一个/(不算Http://这里面的二个/)的前面
再比如:
http://www.ingentaconnect.com.pallas2.tcl.sc.edu/
就是
http://www.ingentaconnect.com/
和
.pallas2.tcl.sc.edu
的结合. 替换.com/为.com.ezproxy.lib.monash.edu.au/
其它类似 Local $sURL = 'http://www.sciencedirect.com/science/article/pii/B9780122841514500002'
Local $sAdd = '.ezproxy.lib.monash.edu.au'
MsgBox(0, $sURL, _URLAddString($sURL, $sAdd))
Func _URLAddString($sURL, $sAdd)
Return StringRegExpReplace($sURL, '(?<!/)/(?!/)', $sAdd, 1)
EndFunc ;==>_URLAddString
页:
[1]