Кода -копия выглядит следующим образом:
'// конвертировать китайский в Unicode
FunctionUrlencoding (vstrin)
дими
DimStrreturn, Tharechr, InnerCode, Hight8, Low8
strreturn = ""
fori = 1tolen (vstrin)
Tharechr = середина (vstrin, i, 1)
Ifabs (asc (therchr)) <& hffthen
strreturn = strreturn & thechr
еще
innerCode = ASC (ThastChr)
IfinnerCode <0Then
innerCode = innerCode+& H10000
эндиф
Hight8 = (InnerCodeAnd & HFF00)/& HFF
Low8 = innercodeand & hff
strreturn = strreturn & "%" & hex (hight8) и "%" & hex (low8)
эндиф
следующий
Urlencoding = strreturn
конечная функция
'// конвертировать Unicode в нормальный текст
functionbytes2bstr (VIN)
дими
DimStrreturn, ThisChode, NextChode
strreturn = ""
fori = 1tolenb (vin)
ThisChode = ASCB (MIDB (VIN, I, 1))
IfThischarcode <& H80Then
strreturn = strreturn & chr (this charcode)
еще
NextChode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thisChode)*& h100+cint (nextcharcode))
i = i+1
эндиф
следующий