17 次查询 耗时 0.059 秒
共写了780个字,约3分钟读完,有24条留言
登录/注册

时光机 · 2020年2月15日 24

文字识别小工具:透明窗体绘图版

对于文案较多的用户,文字提取小程序确实比较实用,可以在我们平时办公的时候节约很多时间。

本程序采用的是百度ocr+vb.net

如上图所示,窗体的上半部分是透明的,直接获取透明窗体区域并绘制成图像,然后通过百度OCR文字识别提取。

我们可以看到提取返回的结果是一串json数据,其中words_result_num是提取的行数,words_result就是提取的文字内容,其他数据我们不需要,我们只需要文字内容就行了。

所以,解决来我们需要解析json数据,提取我们需要的部分:

Dim Result = Client.GeneralBasic(image).ToString

Dim jsonObject As JObject = JObject.Parse(Result)
Dim jsonArray As JArray = JArray.Parse(jsonObject.SelectToken("words_result").ToString)
For Each item As JObject In jsonArray
    abc = abc & item.SelectToken("words").ToString + vbCrLf
Next

请看示例图:

 

窗体上半部分是透明的,用于图形绘制,下半部分用于文字显示。

运行环境:Windows+.NET Framework 4.7.2

.NET Framework 4.7.2下载-链接:https://pan.baidu.com/s/1YMTjSZxlpBIhWUtighPfFw
提取码:n06q

软件下载:

隐藏内容,回复可见“马上回复”后“刷新页面”即可查看隐藏内容!

软件下载后,解压直接运行exe文件即可。注意,运行前请确认你已经安装过.NET Framework 4.7.2,否则无法运行。

文章最后更新于 2020-08-16