怎样判断字符串中有多少个汉字、英文字母和数字，还有空格？（笨办法搞定了） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样判断字符串中有多少个汉字、英文字母和数字，还有空格？（笨办法搞定了）

共有20870人关注过本帖树形打印复制链接主题：怎样判断字符串中有多少个汉字、英文字母和数字，还有空格？（笨办法搞定了）

mr725

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

怎样判断字符串中有多少个汉字、英文字母和数字，还有空格？（笨办法搞定了） 发帖心情

Post By：2010/3/16 13:48:00 [显示全部帖子]

【谢谢大家了 Thanks 39】
判断这个字符串中有几个汉字、几个空格、几个英文字母、几个数字？
代码怎么写？

[此贴子已经被作者于2010-3-16 14:40:56编辑过]

mr725

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/3/16 15:20:00 [显示全部帖子]

太笨了，呵呵～：不知有没有其他的问题？
dim z as string = "谢谢大家了 Thanks 39 aaaThanks 3333339     99"
dim az as string = "abcdefjhijklmnopqrstuvwxyzABCDEFJHIJKLMNOPQRSTUVWXYZ"
dim nb as string = "0123456789"
dim n,n0,n1,n2 as integer
for i as integer = 0 to z.length-1
    if az.contains(z(i))
        n=n+1
    elseif nb.contains(z(i))
        n0=n0+1
    elseif z(i)= " "
        n1=n1+1
    else
        n2=n2+1
    end if
    output.show(z(i))
    if i = 6
        exit for
    end if
next
output.show("字母: " & n & " 数字: " & n0 & " 空格: " & n1 & " 汉字: " & n2 & " " & z.length)