汉字转换为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& เลขฐานสิบหก(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 & ConvChinese(กลาง(UTFStr,ขุด,9))
ขุด=ขุด+8
อื่น
GBStr=GBStr & กลาง(UTFStr,ขุด,1)
สิ้นสุดถ้า
อื่น
GBStr=GBStr & กลาง(UTFStr,ขุด,1)
สิ้นสุดถ้า
ต่อไป
UTF2GB=GBStr
ฟังก์ชั่นสิ้นสุด
ฟังก์ชั่น Conv Chinese(x)
A=แยก(กลาง(x,2),"%")
ผม=0
เจ=0
สำหรับ i=0 ถึง ubound(A)
ก(i)=c16to2(ก(i))
ต่อไป
สำหรับ i=0 ถึง ubound(A)-1
DigS=instr(A(i),"0")
ยูนิโค้ด = ""
สำหรับ j=1 ถึง DigS-1
ถ้า j=1 แล้ว
A(i)=ขวา(A(i),เลน(A(i))-DigS)
Unicode=ยูนิโค้ด & A(i)
อื่น
ฉัน=ฉัน+1
A(i)=ขวา(A(i),เลน(A(i))-2)
Unicode=ยูนิโค้ด & A(i)
สิ้นสุดถ้า
ต่อไป
ถ้า len(c2to16(Unicode))=4 แล้ว
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
อื่น
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด
ฟังก์ชัน c2to16(x)
ผม=1
สำหรับ i=1 ถึง len(x) ขั้นตอนที่ 4
c2to16=c2to16 & ฐานสิบหก(c2to10(กลาง(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" & กลาง(x,i,1))))
ทำในขณะที่ len(tempstr)<4
tempstr = "0" & tempstr
วนซ้ำ
c16to2=c16to2 & tempstr
ต่อไป
ฟังก์ชันสิ้นสุด
ฟังก์ชัน c10to2(x)
mysign=sgn(x)
x=หน้าท้อง(x)
ขุดS=1
ทำ
ถ้า x<2^DigS แล้ว
ออกทำ
อื่น
DigS=DigS+1
สิ้นสุดถ้า
วนซ้ำ
เวลา=x
ผม=0
สำหรับ i=DigS ถึง 1 ขั้นตอน-1
ถ้า tempnum>=2^(i-1) แล้ว
tempnum=tempnum-2^(i-1)
c10to2=c10to2 & "1"
อื่น
c10to2=c10to2 & "0"
สิ้นสุดถ้า
ต่อไป
ถ้า mysign=-1 แล้ว c10to2="-" & c10to2
ฟังก์ชั่นสิ้นสุด