7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
cornerxu 2001-12-14
- 打赏
- 举报
贴主，怎么不给分啊
yuanxy 2001-12-12
- 打赏
- 举报
灌一下
DeityFox 2001-12-12
- 打赏
- 举报
同意Jneu(沧海桑田) 和 cornerxu(面)
iamluodong 2001-12-12
- 打赏
- 举报
你可以使用字节数组来将你要判断的字符按位存入，然后，判断每一位的最高位是否为全0.
如果为全0,证明是数字,字母，然后从下一位开始取，同时，设置一个记数器，记住当前位置。
如果为全0,证明是数字,字母，然后从下一位开始取，同时，设置一个记数器，记住当前位置。
cornerxu 2001-12-12
- 打赏
- 举报
For i = 1 To Len(str1)
If Asc(Mid(str1, i, 1)) < 0 Then str2 = str2 & Mid(str1, i, 1)
Next
If Asc(Mid(str1, i, 1)) < 0 Then str2 = str2 & Mid(str1, i, 1)
Next
Jneu 2001-12-12
- 打赏
- 举报
汉字的ASCII码<0
