如何实现这个功能：替换字符串为某1个字符？

Question

偷个懒～～
如题：将某个字符串替换为单个字符组成的字符串，比如
“ABC中国”，替换为“**×××”，要区别中英文，因为为了保持显示时的长度一致！～

Answer 1

aa="ABC中国"
aa=replace(aa,"ABC","**")
aa=replace(aa,"中国","×××")这样不行吗？

Answer 2

if(str[i] < 0xa0)   ？
不确定是不是0xa0了

Answer 3

Dim s1 As String, s2 As String
Dim i As Long
s1 = "ABC中国"
s2 = ""
For i = 1 To Len(s1)
    If Asc(Mid(s1, i, 1)) > 0 Then s2 = s2 + "*" Else s2 = s2 + "×"
Next
MsgBox s2

Answer 4

也就是说双字节字符Ascii值都是小于0的吗？

Answer 5

呵呵，既然知道是双字节，就用双字节去判断，使用LenB(StrConv(某一个字符,vbFromUnicode))来判断，如果为2，则是CJK（Chinese,Japanese,Korean），那再进行替换即可以实现LZ想要实现的功能了