وظيفة 汉字转换为UTF-8
chinese2unicode(Str)
خافت أنا
خافت Str_one
خافت Str_unicode
لأني = 1 إلى لين (ستر)
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 & ConvChinese(mid(UTFStr,Dig,9))
حفر=حفر+8
آخر
GBStr=GBStr & mid(UTFStr,Dig,1)
نهاية إذا
آخر
GBStr=GBStr & mid(UTFStr,Dig,1)
نهاية إذا
التالي
UTF2GB=GBStr
وظيفة النهاية
الدالة ConvChinese(x)
أ = انقسام (منتصف (س، 2)، "٪")
أنا = 0
ي=0
لأني = 0 إلى Ubound(A)
ا(ط)=c16to2(أ(ط))
التالي
لأني=0 إلى ubound(A)-1
DigS=instr(A(i),"0")
يونيكود = ""
لـ j=1 إلى DigS-1
إذا ي = 1 ثم
A(i)=يمين(A(i),len(A(i))-DigS)
Unicode=Unicode & A(i)
آخر
ط=ط+1
ا(i)=يمين(A(i),لين(A(i))-2)
Unicode=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
لأني= 0 إلى لين(x) -1
إذا كان mid(x,len(x)-i,1)="1" ثم c2to10=c2to10+2^(i)
التالي
النهاية
c16to2(x)
أنا = 0
لأني = 1 إلى لين (تقليم (س))
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
افعل ذلك أثناء len(tempstr)<4
tempstr = "0" & tempstr
حلقة
c16to2=c16to2 & tempstr
التالي
النهاية
c10to2(x)
ماي سيجن=sgn(x)
س = القيمة المطلقة (س)
الحفريات = 1
يفعل
إذا كان x<2^DigS إذن
الخروج القيام به
آخر
ديجس=ديجس+1
نهاية إذا
حلقة
درجة الحرارة = س
أنا = 0
لـ i=DigS إلى الخطوة 1
إذا tempnum>=2^(i-1) إذن
درجة الحرارة = درجة الحرارة -2 ^ (ط -1)
c10to2=c10to2 & "1"
آخر
c10to2=c10to2 & "0"
نهاية إذا
التالي
إذا كان mysign=-1 ثم c10to2="-" & c10to2
وظيفة النهاية