用正则取汉字，其他的你也可以改一下正则
dim a="sad奋斗7**f前fv人品，@"
arrRet = Regex.FindAll(a,"[\\u4e00-\\u9fa5]+")
TracePrint arrRet
TracePrint Join(arrRet,"")

康乙文 用正则取汉字，其他的你也可以改一下正则 dim a="sad奋斗7**f前fv人品，@" arrRet = Regex.FindAll(a,"[\\u4e00-\\u ...

谢谢大神