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$(sz

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 iEnd Function

总结

以上是内存溢出为你收集整理的VB Unescape全部内容，希望文章能够帮你解决VB Unescape所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。