奇威羊的程式甜甜圈

BIG5 --> UTF-8

Function Convert_ASCII_Unicode(str) Dim old,new_w,j old = str new_w = "" For j = 1 To Len(str) if ascw(mid(old,j,1)) < 0 then new_w = new_w & "&#" & ascw(mid(old,j,1)) + 65536 & ";" ElseIf ascw(mid(old,j,1))>0 and ascw(mid(old,j,1))<127 then new_w = new_w & mid(old,j,1) Else new_w = new_w & "&#" & ascw(mid(old,j,1)) & ";" End if Next Convert_ASCII_Unicode = new_w End Function

UTF-8 --> BIG5

Function Convert_Unicode_ASCII(str) Dim x,y,z,temp_word,flag flag = 0 x = InStr(flag + 1,str,"&#") Do Until x = 0 or x < flag x = InStr(flag + 1,str,"&#") if x <> 0 then y = Mid(str,x,8) Select Case InStr(y,";") Case 8 z = chrw(Mid(y,3,5)) Case 7 z = chrw(Mid(y,3,4)) Case 6 z = chrw(Mid(y,3,3)) Case 5 z = chrw(Mid(y,3,2)) End Select if InStr(y,";") > 4 And Asc(z) <> 63 then str = Replace(str,Left(y,InStr(y,";")),z) End if flag = x End if Loop Convert_Unicode_ASCII = str End Function