【ocr识别】VB实现OCR文字识别，怎么进行转化为foxtable程序代码呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【ocr识别】VB实现OCR文字识别，怎么进行转化为foxtable程序代码呢？

共有8410人关注过本帖树形打印复制链接主题：【ocr识别】VB实现OCR文字识别，怎么进行转化为foxtable程序代码呢？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/1 15:26:00 [显示全部帖子]

参考

http://www.cnblogs.com/stone_w/archive/2011/10/08/2202397.html

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/1 15:37:00 [显示全部帖子]

参考代码

Dim doc = CreateObject("MODI.Document")
doc.Create("d:\test.jpg")
doc.OCR(2052, True, True)
Dim layout = doc.images(0).Layout
msgbox(layout.text)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/1 15:38:00 [显示全部帖子]

识别文字，现在基本都是调用api的，如

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106768&authorid=0&page=0&star=2

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/1 16:56:00 [显示全部帖子]

安装好office，打好补丁。

直接执行这个代码即可

Dim doc = CreateObject("MODI.Document")
doc.Create("d:\test.jpg")
doc.OCR(2052, True, True)
Dim layout = doc.images(0).Layout
msgbox(layout.text)

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/1 22:53:00 [显示全部帖子]

不应该。试用版，可以识别出文字了吗？重复运行有没问题？

开发版的话，基本是一样的没有区别，我测试可以。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/1 23:01:00 [显示全部帖子]

以下是引用jyh7081在2017/11/1 22:58:00的发言：

试用版识别出来了，没有出过错，而且都是在命令窗口运行的

卸载重新安装foxtable，foxtable设置成管理员身份运行。

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/1 23:22:00 [显示全部帖子]

以下是引用jyh7081在2017/11/1 23:10:00的发言：
重装后按管理员进入也一样，重建一个新项目用命令窗口运行也不行，报同样的错

是管理员权限运行

图片点击可在新窗口打开查看

那发布后，能否正常运行代码？

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/2 12:13:00 [显示全部帖子]

安装ms office，打好sp补丁，再测试

http://www.cnblogs.com/stone_w/archive/2011/10/08/2202397.html

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/2 14:24:00 [显示全部帖子]

Dim doc = CreateObject("MODI.Document")
doc.Create("d:\test.jpg")
doc.OCR(2052, True, True)
For i As Integer = 0 To doc.Images.count - 1
Dim layout = doc.images(i).Layout
output.show(layout.text)
Next i
doc.close
doc = Nothing

[此贴子已经被作者于2017/11/2 14:24:12编辑过]

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/2 21:14:00 [显示全部帖子]

每次弹出什么？

Dim doc = CreateObject("MODI.Document")

doc.Create("d:\test.jpg")

doc.OCR(2052, True, True)

For i As Integer = 0 To doc.Images.count - 1

Dim layout = doc.images(i).Layout

msgbox(layout.text)

Next i

doc.close

doc = Nothing

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：【ocr识别】VB实现OCR文字识别，怎么进行转化为foxtable程序代码呢？