Foxtable(狐表)用户栏目专家坐堂 → 网络阅卷探索


  共有3343人关注过本帖树形打印复制链接

主题:网络阅卷探索

帅哥哟,离线,有人找我吗?
刘林
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
网络阅卷探索  发帖心情 Post By:2019/3/28 20:28:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:sj.png
图片点击可在新窗口打开查看

老师,你好现在有很多的网络阅卷,我想学习和了解探索一下,现在有几个问题先请教一下
如上面的一张试卷
1、直接取试卷的选择题区域识别出答案,要学习哪些知识,或请指个例子看一下
2、如何识别贴条形码区的考号信息,或者直接识别手写的考号信息,请帮指个例子试一下

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/3/28 21:59:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190328215813.png
图片点击可在新窗口打开查看

我试一下出现这个是什么?

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/3/29 7:06:00 [显示全部帖子]

这个例子是C++写的,没学过,看不懂,如何用ft语言来写?

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/3/29 20:28:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq.png
图片点击可在新窗口打开查看


这个需要,还是慢慢一步一步试一下看,先了解一下,现在安了完整office2003(安在D盘),测试还是出现这个错,请问什么问题

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/3/29 20:59:00 [显示全部帖子]

我安装了2003,测试起了的,但第二次换了个文件就不行了
我用手写了一组数字就不行
[此贴子已经被作者于2019/3/29 21:00:54编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/3/29 21:28:00 [显示全部帖子]

我试了如图是电子档文字的图片就可以识别,但当图片效果差或手写的就出现上面问题,看来这个没什么办法了,现在的问题是怎么做更好呢

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/3/30 8:18:00 [显示全部帖子]

https://www.kancloud.cn/iflytek_restapi/rest_api/487336##


在网上查了个手写识别的接口,没做过接口,文档读不懂,请老师帮指导下这该如何下手,在FOXTABLE的语言怎么改写?

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/3/31 9:26:00 [显示全部帖子]

For i As Integer = 1 To 4
    Dim wj As String = "d:\cs" & i & ".jpg"
    If FileSys.FileExists(wj)
        Dim doc = CreateObject("MODI.Document")
        doc.Create(wj)
        doc.OCR(2052, True, True)
        For ii As Integer = 0 To doc.Images.count - 1
            Dim layout = doc.images(ii).Layout
            output.show(left((layout.text).Replace(" ",""),10))
            rename(wj,"d:\" & left((layout.text).Replace(" ",""),10) & ".jpg")
        Next
        doc.close
        doc = Nothing
    End If
Next
老师,我测试了几个图片
1、感觉速度不够快,有什么办法提点速不
2、如何循环一个文件夹中的所有图片文件
3、如何取图片文件的某个部分来识别

我的想法是手写识别现在没这个知识基础,先试一下在试卷上贴一张考号签,然后将答题卡上贴在某个区域的考号识别出来,并将试卷图片更名为考号为名,当然这个我知道有点低级,先试一下看看图片点击可在新窗口打开查看

 回到顶部