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

本程序采用的是百度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，否则无法运行。

Back Top