작은인간 썸네일형 리스트형 [자료]UBound Function UrlEncode(ByVal urlText As String) As String Dim i As Long Dim ansi() As Byte Dim ascii As Integer Dim encText As String ansi = StrConv(urlText, vbFromUnicode) encText = "" For i = 0 To UBound(ansi) ascii = ansi(i) Select Case ascii Case 48 To 57, 65 To 90, 97 To 122 encText = encText & Chr(ascii) Case 32 encText = encText & "+" Case Else If ascii < 16 Then encText = encText & "%0" & He.. 더보기 이전 1 다음