图片文字识别，百度AI调用

Ww1206 · 发表于 2019-11-22 14:08

geniux 发表于 2019-9-15 22:28
感谢楼主所做的贡献，本人才疏学浅，但是基于楼主的文档实现了自己的需求，做了个增值税发票识别的。实际测 ...

你好，替换函数的这个建议，这个能帮忙解答下，在哪里替换吗

geniux · 发表于 2019-11-25 11:12

Ww1206 发表于 2019-11-22 14:08
你好，替换函数的这个建议，这个能帮忙解答下，在哪里替换吗

类模块，UCode。GetURL 是原函数， URLEncode是同等功能，速度更快的，新函数。调用函数名改一下就行，或者直接删除原函数，改新函数为就函数名，即可。

Function GetURL$(txt$, Optional LC = &H804) 'Chn &H804/Taiwan &H404/Japan &H411/ Korea &H412
Dim a() As Byte: a = StrConv(txt, vbFromUnicode, LC)
For i = 0 To UBound(a)
GetURL = GetURL & "%" & Right("0" & Hex(a(i)), 2)
'DoEvents
'UserForm1.Caption = Application.Text((i / UBound(a)), "0.00%") '倒计时模块，耗时比较大
Next
End Function
Public Function URLEncode( _
StringVal As String, _
Optional SpaceAsPlus As Boolean = False _
) As String
Dim StringLen As Long: StringLen = Len(StringVal)
If StringLen > 0 Then
ReDim result(StringLen) As String
Dim i As Long, CharCode As Integer
Dim Char As String, Space As String
If SpaceAsPlus Then Space = "+" Else Space = "%20"
For i = 1 To StringLen
Char = Mid$(StringVal, i, 1)
CharCode = Asc(Char)
Select Case CharCode
Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
result(i) = Char
Case 32
result(i) = Space
Case 0 To 15
result(i) = "%0" & Hex(CharCode)
Case Else
result(i) = "%" & Hex(CharCode)
End Select
Next i
URLEncode = Join(result, "")
End If
End Function

复制代码

Ww1206 · 发表于 2019-11-25 13:24

geniux 发表于 2019-11-25 11:12
类模块，UCode。GetURL 是原函数， URLEncode是同等功能，速度更快的，新函数。调用函数名改一下就行，或 ...

改了，运行有错误，大神，可否发一下你的，让我学习下，阉割版也行！

geniux · 发表于 2019-11-25 13:33

由于我开通付费的了，Token密码我已经删除。你自己参考一下就行。

Ww1206 · 发表于 2019-11-25 13:38

geniux 发表于 2019-11-25 13:33
由于我开通付费的了，Token密码我已经删除。你自己参考一下就行。

好的，谢谢了！！！

182197315 · 发表于 2019-11-26 08:50

我下载了就被识别为病毒，无法运行
宏安全级别已经设置了

sth515993646 · 发表于 2020-6-5 16:56

厉害，感谢大神分享。

vbavbameal · 发表于 2020-10-29 12:58

刚试了一张图片感觉文字识别效果很好，这都能用Excel vba实现，楼主牛！

EH_LOVE · 发表于 2020-12-29 00:37

更新一下，好多同学不会改！有需要的请下载

opiona · 发表于 2020-12-29 10:32

这个不错图片文字识别值得收藏

		自动登录	找回密码
密码			免费注册

[原创] 图片文字识别，百度AI调用