如何统计文本框中的汉字字数?

jimqiu 2000-08-23 08:16:00
加精
如何统计文本框中的汉字字数?
...全文
199 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
shines77 2000-08-24
  • 打赏
  • 举报
回复
给你一个函数,一次就可以计算出来了,不必一个一个字节的去计算:

Function CountHzTotal(ByVal HzString As String) As Long
Dim lenAll As Long
Dim lenTrue As Long
Dim lenHz As Long

lenAll = Len(HzString) '返回完整字长(汉字算一个字节)
lenTrue = LenB(StrConv(HzString, vbFromUnicode)) '返回真实字长(汉字算两个字节,英文算一个)
lenHz = lenTrue - lenAll '计算出汉字的数量

If lenHz >= 0 Then
CountHzTotal = lenHz '返回正确汉字数目
Else
CountHzTotal = -1 '有错误
End If
End Function

酷吧!记得给分哦:)
bluntknife 2000-08-23
  • 打赏
  • 举报
回复
用下面的函数判别一个字符是否汉字,然后将文本框中的每一个字符判别一下就可以了.

Function IsHz(InputStr As String) As Boolean
Dim InStrByte() As Byte
Dim InputStrLenB As Integer

InStrByte = InputStr
InputStrLenB = LenB(inputstring)

IsHz = False

If Val(InStrByte(1)) <> 0 Then
IsHz = True
End If

End Function

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧