日期:2010-03-18  浏览次数:20714 次

用正则替换图片名称函数,例如将/img/abc.jpg里abc.jpg替换成S_abc.jpg,效果如下:
想要替换为 /img/S_abc.jpg ,通过以下的函数可以实现.

以下是函数代码:
function changepic(ss)
Set re = New RegExp
re.Pattern = "\B\/(\S+)(\.jpg|.gif|.png|.bmp)\b"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
rv = re.Replace(ss,"$1_S$2")
changepic = rv
end function