一字符串中含有，汉字，大小写英文字母及数字，如何从其中分离出汉字？

[meifen]

[Jneu]

汉字的ASCII码<0

[cornerxu]

For i = 1 To Len(str1)
If Asc(Mid(str1, i, 1)) < 0 Then str2 = str2 & Mid(str1, i, 1)
Next

[iamluodong]

你可以使用字节数组来将你要判断的字符按位存入，然后，判断每一位的最高位是否为全0.
如果为全0,证明是数字,字母，然后从下一位开始取，同时，设置一个记数器，记住当前位置。

[DeityFox]

同意Jneu(沧海桑田)　和 cornerxu(面)　

[yuanxy]

灌一下

[cornerxu]

贴主，怎么不给分啊