如题,谢谢!
用正则吧!
<SCRIPT LANGUAGE="VBScript">
Function FormatStr(jnkcV)
Dim jnkcTmp,jnkcRegExp
jnkcTmp = jnkcV & ""
Set jnkcRegExp = new RegExp
jnkcRegExp.IgnoreCase = True
jnkcRegExp.Global = True
jnkcRegExp.Pattern = """([^""]*)"""
jnkcTmp = jnkcRegExp.Replace(jnkcTmp,"“$1”")
Set jnkcRegExp = Nothing
FormatStr = jnkcTmp
End Function
MsgBox FormatStr("dfsdf""sdf33asdfasd""sdfasdfas""sdf44asdfas""sdfsa")
</SCRIPT>
问题:已经 声明引号内部不能为引号
那么
例一:
如果某一句我所要到的是
“哈哈哈“有难度”呵呵呵”
而不是
“哈哈哈”有难度“呵呵呵” 当这个是正确替换
就永远都得不到了!
应该不可以排除这种可能性的存在吧
再例二:
我对她:"他刚才说:‘你说:"you love me"’"
不就被替换到:
我对她:“他刚才说:‘你说:”you love me“’”
怎么替换到:
我对她“他刚才说:‘你说:“you love me”’” 当这个是正确替换
我就不信上面简单的替换算法,可以 把例一 例二 两种情况分辨出来