수다닷컴

제 프로젝트에 꼭 필요하네요 갈켜주세요~
ex) %BC%D2%B3%E0%BD%C3%B4%EB = 소녀시대
이렇게요.
또다르게 .
ex)%BC%D2%B3%E0%BD%C3%B4%EB - Oh! =(특수문자및 영어,한글, 띄어쓰기변환X) 소녀시대 - Oh!

UTF-16인코딩소스 //소스 해석 저는 못하고요. URL 주소를 UTF-16으로 바꺼주는 함수였는데 몇개뺐음.
Dim LenCount As Long
Dim HEADTEXT As String, TAILTEXT As String
Dim HEXTEXT As String, temp As Long

If InStr(URL, ?) Then
Dim TEMPTAIL As String
TEMPTAIL = Right$(URL, Len(URL) - InStr(URL, ?) + 1)
Debug.Print TEMPTAIL
For LenCount = 1 To InStr(URL, ?) - 1
If Mid$(URL, LenCount, 1) / Then
temp = AscW(Mid$(URL, LenCount, 1))
If temp = 0 Then
HEXTEXT = Right$(00000000 & Hex(temp), 4)
Else
HEXTEXT = Right$(00000000 & Hex(AscW(StrConv(Mid$(URL, LenCount, 1), vbFromUnicode)) + 65536), 4)
End If

HEADTEXT = Left$(HEXTEXT, 2)
TAILTEXT = Right$(HEXTEXT, 2)

If HEADTEXT 00 Then
ProtectURL = ProtectURL & ConvURL & % & TAILTEXT & % & HEADTEXT
Else
ProtectURL = ProtectURL & ConvURL & % & TAILTEXT
End If
Else
ProtectURL = ProtectURL & /
End If
Next
Else
For LenCount = 1 To Len(URL)
If Mid$(URL, LenCount, 1) / Then
temp = AscW(Mid$(URL, LenCount, 1))
If temp = 0 Then
HEXTEXT = Right$(00000000 & Hex(temp), 4)
Else
HEXTEXT = Right$(00000000 & Hex(AscW(StrConv(Mid$(URL, LenCount, 1), vbFromUnicode)) + 65536), 4)
End If

HEADTEXT = Left$(HEXTEXT, 2)
TAILTEXT = Right$(HEXTEXT, 2)

If HEADTEXT 00 Then
ProtectURL = ProtectURL & ConvURL & % & TAILTEXT & % & HEADTEXT
Else
ProtectURL = ProtectURL & ConvURL & % & TAILTEXT
End If
Else
ProtectURL = ProtectURL & /
End If
Next
End If

ProtectURL = TEMPPROT & ProtectURL & TEMPTAIL

신청하기