主题：数字算几个字符？

 无语，不知道想说什么，9楼已经给你答案了

Dim str As String = "abc中A国8就"
Dim count As Integer = 0
For Each s As Char In str
    If Char.IsDigit(s) OrElse s >= "A" AndAlso s <= "Z" Then
        count += 1
    End If
Next
msgbox(str.Length - count*0.5)

回12楼，这段代码的意思是什么，放在那个事件中啊？

 你不是要检测length么？就要像12楼这样检测，这个是实例代码，请好好看懂。

您说:一个数字当做半个汉字，一个英文字母当做半个汉字。可是狐表中 一个数字当做1个汉字，一个英文字母当做1个汉字，这个结论对吗？如示例
此主题相关图片如下：鴊问.png
，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:稿腧主.zip

 代码在12楼，输入英文、数字，你就算半个字符不就行了？

12楼的代码可以将英文、数字转为半个字符吗？系统设置是1个字符的，在那个事件中设置?

 为什么要转成半个字符啊，自己看结果，要在哪里用，就在哪里用，不知道你想做什么。

 

Dim str As String = "abc中A国8就"
Dim zj() As Byte = System.Text.Encoding.Default.GetBytes(str)
msgbox(zj.length)

2楼的代码

Dim str As String = "abc中A国8就" Dim count As Integer = 0 For Each s As Char In str     If Char.IsDigit(s) OrElse s >= "A" AndAlso s <= "Z" Then         count += 1     End If Next msgbox(str.Length - count*0.5) 只是在命令窗口中测试多少个字符，系统将英文、数字算1个字符，我的示例中每行字符的长度是48个，若不将英文、数字转为半个字符，则自动截短。所以能给个将英文、数字转为半个字符的代码，可以吗？

 那你输入的时候，检测有多少个字符不就解决了吗？