日期: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 |