以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教，在一个字符串中如何判断有几个中文汉字  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=5075)
--  作者：baoxyang
--  发布时间：2009/11/20 22:47:00
--  请教，在一个字符串中如何判断有几个中文汉字
如题，谢谢指点！
--  作者：mr725
--  发布时间：2009/11/21 0:06:00
--  
length
--  作者：程兴刚
--  发布时间：2009/11/21 7:36:00
--  
dim a as String = "123字符串abc,d"
dim b as Integer = 0
for i as Integer = 1 to a.Length
    if asc(mid(a,i,1)) < 0
        b =b + 1
    end if
next
Output.Show(b)
--  作者：baoxyang
--  发布时间：2009/11/21 9:09:00
--  

非常感谢两位帮忙