VB Unescape

Public Function unescape(szEscape As String) As String
    Dim i As Long,l As Long
    Dim c As String,s As String
    
    l = Len(szEscape)
    unescape = ""
    For i = 1 To l
        c = Mid$(szEscape,i,1)
        If c = "%" Then
            If Mid$(szEscape,i + 1,1) = "u" And i <= l - 5 Then
                s = "&H" & Mid$(szEscape,i + 2,4)
                If IsNumeric(s) Then
                    c = ChrW$(CLng(Val(s)))
                    i = i + 5
                End If
            ElseIf i <= l - 2 Then
                s = "&H" & Mid$(szEscape,2)
                c = ChrW$(CLng(Val(s)))
                i = i + 2
            End If
        End If
        unescape = unescape & c
    Next i
End Function

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------------------...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTime 竟然结果和...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的解决方案直接...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,看来我以前没...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, t...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integ...