no3-taco

¦^´_ 5# ­ã´£³¡ªL
°Ñ¦Òstillfish00¤j¤jªº³W«h¼gªº¡A´£¨Ñ¤£¤@¼Ëªº¼gªk
¨S¦³¤ñ¹ï«Ü¦h¦r¡A¦³¼g¿ùªº¦a¤è«ü¾É¤@¤U

1. Function Urlbig5(Ub5 As String) As String  'uniÂàbig5
   
2. Dim a() As Byte: a = StrConv(Ub5, 128)
   
3. For I = 0 To UBound(a)
   
4.     If Chr(a(I)) Like "[A-Za-z0-9]" Then  
   
5.         Urlbig5 = Urlbig5 & Chr(a(I))
   
6.     Else
   
7.         Urlbig5 = Urlbig5 & "%" & Hex(a(I))
   
8.     End If
   
9. Next I
   
10. End Function
    
11. 
    
12. Function UrlUto8x(Uu As String) As String  'uniÂàutf-8
    
13. With CreateObject("ADODB.Stream")
    
14.     .Type = 2
    
15.     .Charset = "utf-8"
    
16.     .Open
    
17.     .writetext Uu '¤º®e
    
18.     .Position = 0
    
19.     .Type = 1
    
20.     Dim ax() As Byte: ax = .read
    
21.     .Close
    
22. End With
    
23. 
    
24. For I = 3 To UBound(ax) '«O¯dBOM 3§ï1
    
25.     UrlUto8x = UrlUto8x & "%" & Hex(ax(I))
    
26. Next I
    
27. End Function

½Æ»s¥N½X