VB编写但urlencode太慢有没有加速的办法

首页版块访问AI主站注册发帖

dalihua2011 发布于2018-06 浏览:3938 回复:10

快速回复

通用函数如下，但UBound(TmpData)超过70万，故造成速度特别慢，用户体验不好，有没有别的快速的方法或算来，来实现啊？？？？

Public Function URLEncode(ByVal strParameter As String) As String
Dim S As String
Dim i As Double
Dim intValue As Integer
Dim TmpData() As Byte
S = ""
TmpData = StrConv(strParameter, vbFromUnicode)
For i = 0 To UBound(TmpData)
intValue = TmpData(i)
If (intValue >= 48 And intValue <= 57) Or (intValue >= 65 And intValue <= 90) Or (intValue >= 97 And intValue <= 122) Then
S = S & Chr(intValue)
ElseIf intValue = 32 Then
S = S & "+"
Else
S = S & "%" & Hex(intValue)
End If
Next i
URLEncode = S
End Function

表格文字识别-提交请求

个赞

共10条回复最后由用户已被禁言回复于2022-04

#13182194kin回复于2022-03

对#10 aaa17343307689回复

如何提交工单反馈问题如何提交工单反馈问题

点击提交工单：https://ticket.bce.baidu.com/#/ticket/create~productId=96

#10aaa17343307689回复于2021-03

如何提交工单反馈问题如何提交工单反馈问题

#9qqzwc回复于2021-03

我也发现这个问题了，转换极其慢，搜了一下，调用JS来进行URLEncode就可以了，闪电转换完

Public Function Escape(ByVal strText As String) As String
'字符串特别长比如80万长度的时候，拼接操作极其缓慢（十几分钟都不止），直接调用JS的URLencode功能，瞬间完成
Set JS = CreateObject("msscriptcontrol.scriptcontrol")
JS.Language = "JavaScript"
Escape = JS.Eval("encodeURIComponent('" & Replace(Replace(strText, "'", "\'"), Chr(10), "") & "');")
End Function