怎样把一双英文引号("")替换成一双中文引号(“”)

怎样把一双英文引号("")替换成一双中文引号(“”),谢谢!
---------------------------------------------------------------

用正则吧!

 1<script language="VBScript">   
 2Function FormatStr(jnkcV)   
 3Dim jnkcTmp,jnkcRegExp   
 4jnkcTmp = jnkcV & ""   
 5Set jnkcRegExp = new RegExp   
 6jnkcRegExp.IgnoreCase = True   
 7jnkcRegExp.Global = True   
 8jnkcRegExp.Pattern = """([^""]*)"""   
 9jnkcTmp = jnkcRegExp.Replace(jnkcTmp,"“$1”")   
10Set jnkcRegExp = Nothing   
11FormatStr = jnkcTmp   
12End Function   
13MsgBox FormatStr("dfsdf""sdf33asdfasd""sdfasdfas""sdf44asdfas""sdfsa")   
14</script>
Published At
Categories with Web编程
comments powered by Disqus