Question

求下面这段代码的解释，感激不尽！

function changename(binarystr)
for i = 0 to lenb(binarystr) - 1
temp = midb(binarystr,i+1,1)
if ascb(temp)>127 then
changename = changename&chr(ascw(midb(binarystr,i+2,1)&temp))
i = i + 1
else
changename = changename&chr(ascb(temp))
end if
next
end function

Answer 1

这个函数只是把字符串拆散之后又组合起来，而且在出现双字节字时的组装好像搞反了
changename = changename&chr(ascw(midb(binarystr,i+2,1)&temp))

是否应该是：
changename = changename&chr(temp&ascw(midb(binarystr,i+2,1)))
难道是故意这样利用双字节字来加密吗？

解释：

function changename(binarystr)
for i = 0 to lenb(binarystr) - 1 // 从头到尾逐个取出字符串字符到 temp
temp = midb(binarystr,i+1,1)
if ascb(temp)>127 then // 假如是双字节字（如汉字等），再取一个字符
changename = changename&chr(ascw(midb(binarystr,i+2,1)&temp))
i = i + 1 // 字符转换为ASC码，再转换为字符加到结果中
else
changename = changename&chr(ascb(temp)) // 单字节字符加入
end if
next
end function

追问

可以详细解释下lenb()、midb()、ascb()、ascw()的含义很用法吗？

追答

lenb() 取得字符串的长度 lenb("Delphi") 等于 6
midb() 从字符串中取得一个子串 midb("Delphi", 2, 4) 等于 "elph"
ascb() 取得单字节的ASC码 asc("A") 等于 65
ascw() 取得双字节的ASC码 asc("中") 等于 214 208

追问

解释得很详细真的很感谢你……不过我还有一个地方不明白，
for i = 0 to lenb(binarystr) - 1
temp = midb(binarystr,i+1,1)
上面表示的是逐个字节地取出binarystr对吧？那如果遇到双字节的汉字就被拆成单字节的取出吗？

追答

是的。汉字、日本文字等都是双字节字。

追问

汉字被拆成单字节取出来，那ascb(temp)>127还能有效检测出汉字吗？

追答

如果字符的ASCII码大于 127 就说明一定是双字节字，ascb(temp) 只是取出双字节字符的一半，如果不加上后面一半，当但字符显示的话，就会出现看不懂的乱码。

追问

那这段代码中的ascb(temp)>127其实检测不出temp是否为汉字咯？

追答

汉字的编码有很多种，我们常用的是GB2313，就是将汉字的区码、位码分别加上 A0，而且储存到磁盘时候是位码在前、区码在后（上面我的疑问是错误的）。所以如果字符串内的字节，如果ASCII大于了 127 都认为是双字节字。其他的汉字编码，如GBK、Big5等等，我就不知道了，有兴趣可以在网上搜搜相关知识。

Answer 2

w我只是为了回答

Answer 3

查下词典