汉字转换为UTF-8
함수 Chinese2unicode(Str)
나 어두워
희미한 Str_one
희미한 Str_unicode
i=1에서 len(Str)까지
Str_one=중간(Str,i,1)
Str_unicode=Str_unicode&chr(38)
Str_unicode=Str_unicode&chr(35)
Str_unicode=Str_unicode&chr(120)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
Str_unicode=Str_unicode&chr(59)
다음
응답.Str_unicode 쓰기
함수 종료
UTF-8 - GB2312
기능 UTF2GB(UTFStr)
Dig=1에서 len(UTFStr)까지
mid(UTFStr,Dig,1)="%"인 경우
len(UTFStr) >= Dig+8이면
GBStr=GBStr & Conv중국어(mid(UTFStr,Dig,9))
파기=파기+8
또 다른
GBStr=GBStr & mid(UTFStr,Dig,1)
종료하면
또 다른
GBStr=GBStr & mid(UTFStr,Dig,1)
종료하면
다음
UTF2GB=GBStr
함수 종료
함수 Conv중국어(x)
A=분할(mid(x,2),"%")
나는=0
j=0
i=0에서 ubound(A)까지
A(i)=c16to2(A(i))
다음
i=0에서 ubound(A)-1까지
DigS=instr(A(i),"0")
유니코드=""
j=1 ~ DigS-1의 경우
j=1이면
A(i)=right(A(i),len(A(i))-DigS)
유니코드=유니코드 & A(i)
또 다른
나=나+1
A(i)=right(A(i),len(A(i))-2)
유니코드=유니코드 & A(i)
종료하면
다음
len(c2to16(Unicode))=4이면
Conv중국어=Conv중국어 & chrw(int("&H" & c2to16(유니코드)))
또 다른
Conv중국어=Conv중국어 & chr(int("&H" & c2to16(유니코드)))
종료하면
다음
끝 기능
기능 c2to16(x)
나는=1
i=1부터 len(x)까지 4단계
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
다음
함수 종료
함수 c2to10(x)
c2to10=0
x="0"이면 함수를 종료합니다.
나는=0
i= 0에서 len(x) -1까지
mid(x,len(x)-i,1)="1"이면 c2to10=c2to10+2^(i)
다음
끝 기능
기능 c16to2(x)
나는=0
i=1에서 len(trim(x))까지
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
len(tempstr)<4 동안 수행
임시 직원="0" & 임시 직원
고리
c16to2=c16to2 & 임시 직원
다음
끝 기능
기능 c10to2(x)
mysign=sgn(x)
x=절대값(x)
디그S=1
하다
x<2^DigS이면
나가다
또 다른
디그S=디그S+1
종료하면
고리
임시수=x
나는=0
i=DigS ~ 1 step-1의 경우
임시수>=2^(i-1)이면
임시번호=임시번호-2^(i-1)
c10to2=c10to2 & "1"
또 다른
c10to2=c10to2 & "0"
종료하면
다음
mysign=-1이면 c10to2="-" & c10to2
함수 종료