主题：数字算几个字符？

狐表中，整数的长度相当多少个字符？英文的长度相当多少个字符？我发现转化为excle后排版好难看。规定了50个字符的行，用了整数和英文的行，变短了，加字又加不上去，不知怎办？

帮忙一下啊，回个话

 一个数字当做半个汉字，一个英文字母当做半个汉字。好像狐表中 一个数字当做1个汉字，一个英文字母当做1个汉字啊？我设计的软件中，规定行的字符长度为50，用了数字和英文的行，我数了一下，好像一个数字当做1个汉字，一个英文字母当做1个汉字，因而行的文字长度变短了，加字又加不上去，不知怎办？

怎样检测一下长度？

是不是在命令窗口输入：

Dim s As String = "ABC中国DEF"
Output.show(s.Length)

示例：

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

点击浏览该文件:搪瓷所有的.zip

，窗口“病情记录单”，姓名“蔡文忠”，第一行48个字，第二行46个字，二个符号；第三行加“tid”，则45个字；第四行加“0.25”，则44个字；这些说明是“ 一个数字当做1个汉字，一个英文字母当做1个汉字”，而不是“一个数字当做半个汉字，一个英文字母当做半个汉字”，这样对排版有影响，请帮我处理下，另：本例中怎样用Length检测一下长度？

去我只是想说，在狐表，一个数字当做1个汉字，一个英文字母当做1个汉字，而不是一个数字当做半个汉字，一个英文字母当做半个汉字

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

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

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

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

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

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个，若不将英文、数字转为半个字符，则自动截短。所以能给个将英文、数字转为半个字符的代码，可以吗？