VB Unescape

最新推荐文章于 2021-02-05 15:39:07 发布

vizee

最新推荐文章于 2021-02-05 15:39:07 发布

阅读量832

点赞数

分类专栏： PureCode 文章标签： vb string function c

本文链接：https://blog.csdn.net/Vizee/article/details/7844730

版权

PureCode 专栏收录该内容

16 篇文章 0 订阅

订阅专栏

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, i + 1, 2)
                c = ChrW$(CLng(Val(s)))
                i = i + 2
            End If
        End If
        unescape = unescape & c
    Next i
End Function