以下是函数代码：
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