access|解决|问题
function filteJapanese(sStr)
dim oRegExp
set oRegExp = new RegExp
oRegExp.global = true
oRegExp.pattern = "[/u3040-/u309F|/u30A0-/u30FF]"
filteJapanese = oRegExp.replace(sStr,"")
set oRegExp = nothing
end function
NmCHTML5中文学习网 - HTML5先行者学习网NmCHTML5中文学习网 - HTML5先行者学习网