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

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

呵呵，啥办法啊?

太笨了，呵呵～  ：  不知有没有其他的问题？
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)

呵呵，是有一点笨拙了，可以判断asc码，小于0的汉字，剩下的用Char提供的判断方法，判断是字母还是数字。

谢谢啊～     还是要有个判断“汉字”的方法就好了～～

        dim s as string = "谢谢大家了 Thanks 39 aaaThanks 3333339     99"
         For i as integer = 1 to s.length           
              dim tt as integer = ASC(Mid(s,i,1)) 

               if  tt >= 65 and tt <= 90 then '为小写英文字母个数
                   n1 = n1 + 1
               end if
               if  tt >= 97 and tt <= 122 then '为大写英文字母个数
                   n2 = n2 + 1
               end if
                if  tt >= 48 and tt <= 57 then '为0～9数字个数
                   n3 = n3 + 1
               end if
                if  tt = 32 then '为空字符个数
                   n4 = n4 + 1
               end if

               if  tt < 0 then '为汉字个数
                   n5 = n5 + 1
               end if
        Next
output.show("字母: " & n1+n2 & " 数字: " & n3 & "  空格: " & n4 & "  汉字:  " & n5 & "  " & z.len

如果用asc判断，标点符号岂不都成了汉字？

因为只有汉字是两个字节，其他字符都是一个字节，其实我只想计算字符串中共有多少字节？

那这个简单
Dim s As String = "123 大家 好45"
Dim bs() As byte = System.Text.Encoding.Default.GetBytes(s)
MessageBox.Show(bs.Length)

呵呵，yangming总版主自动列宽的要求有解了！