| 发表于:2007-09-24 16:23:442楼 得分:0 |
dim str_pzwh as string = "qsde长城l.l,k中国 " for i = 0 to str_pzwh.length - 1 dim bt_temp() as byte = system.text.encoding.default.getbytes (str_pzwh.substring(i, 1)) if bt_temp.length = 1 then '不是汉字 ... else '是汉字 end if next | | |
|