VB实现文字识别!!

cfans2002 2003-07-17 11:49:38
请问各位,在VB中如何识别汉字?
...全文
771 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
thirdapple 2003-07-18
  • 打赏
  • 举报
回复
如果是复杂的文字,还是建议你购买SDK库来实现,数字就好办了,细线化后进行模式识别。
dnwklin 2003-07-18
  • 打赏
  • 举报
回复
用ascii码吧。不过中文的码范围不大清楚,反正是负的。
cfans2002 2003-07-18
  • 打赏
  • 举报
回复
我主要是想看看图像识别的问题!!
最近被这个问题搞的焦头烂额!!
totti0115 2003-07-18
  • 打赏
  • 举报
回复
关于类似的问题我已经专门制电给我在美国认识的博士,在几天内有回应,给我email吧,dongkezheng0115@hotmail.com
vcbug 2003-07-18
  • 打赏
  • 举报
回复
1 如果是图象里识别的话,那算法不太好搞,涉及的比较多

2 如果是字符串里识别的话,可以用行者的思路,但不要用Len函数,那个在计算单字节和双字节混合的字符串的时候,计算结果是不对的,需要自己写一个,然后接下来的是可以靠内码的范围来判断是否汉字了.本来想贴代码的,但以前做的东西一时找不到了
lvjack 2003-07-18
  • 打赏
  • 举报
回复
感觉楼主是xayzmb(行者) 说的意思
xayzmb 2003-07-18
  • 打赏
  • 举报
回复
区分中英文字符
Public Function uLen(ByVal strBuf As String) As Long
Dim i As Long
Dim lngLen As Long
Dim lngULen As Long

lngLen = Len(strBuf)
For i = 1 To lngLen
''判断该字符是否为汉字.
''如果是汉字,那么该字符的高8位为1
If Asc(Mid(strBuf, i, 1)) And &H80 Then
lngULen = lngULen + 1
End If
lngULen = lngULen + 1
Next
uLen = lngULen
End Function
csdngoodnight 2003-07-18
  • 打赏
  • 举报
回复
问题没有说清楚。
是扫描识别呢?还是字符串里的汉字识别?
boywang 2003-07-17
  • 打赏
  • 举报
回复
up

7,785

社区成员

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

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