编码_usc2到ansi

rmcs

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
a	文本型

a ＝ 到文本 ({ 37, 117, 55, 67, 66, 69, 37, 117, 54, 54, 49, 51 })
调试输出 (编码_usc2到ansi (a))
a ＝ 到文本 ({ 37, 117, 55, 67, 66, 69, 37, 117, 54, 54, 49, 51, 13 })
调试输出 (编码_usc2到ansi (a))
a ＝ 到文本 ({ 37, 117, 55, 67, 66, 69, 37, 117, 54, 54, 49, 51, 10 })
调试输出 (编码_usc2到ansi (a))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 文本型<br /> <br /> a ＝ 到文本 ({ 37, 117, 55, 67, 66, 69, 37, 117, 54, 54, 49, 51 })<br /> 调试输出 (编码_usc2到ansi (a))<br /> a ＝ 到文本 ({ 37, 117, 55, 67, 66, 69, 37, 117, 54, 54, 49, 51, 13 })<br /> 调试输出 (编码_usc2到ansi (a))<br /> a ＝ 到文本 ({ 37, 117, 55, 67, 66, 69, 37, 117, 54, 54, 49, 51, 10 })<br /> 调试输出 (编码_usc2到ansi (a))

只要文本有单独字节集13或字节集10,或10+13
编码就失败,返回空文本.

1038667964

虽然不太懂   但是感觉都很厉害呢

Lew

值得学习~~！！  希望能再精易能学到好的知识

萧阳天

1. .版本 2
   
2. 
   
3. .子程序 unescape, 文本型
   
4. .参数 szEscape, 文本型
   
5. .局部变量 i
   
6. .局部变量 l
   
7. .局部变量 c, 文本型
   
8. .局部变量 s, 文本型
   
9. .局部变量 p, 文本型
   
10. 
    
11. l ＝ 取文本长度 (szEscape)
    
12. .变量循环首 (1, l, 1, i)
    
13.     c ＝ 取文本中间 (szEscape, i, 1)
    
14.     .如果真 (c ＝ “%”)
    
15.         .如果 (取文本中间 (szEscape, i ＋ 1, 1) ＝ “u” 且 i ≤ l － 5)
    
16.             s ＝ 取文本中间 (szEscape, i ＋ 2, 4)
    
17.             .如果真 (到整数 (s) ≠ 0)
    
18.                 c ＝ 到文本 (编码_Unicode到Ansi (到字节集 (进制_十六到十 (s))))
    
19.                 i ＝ i ＋ 2
    
20.             .如果真结束
    
21. 
    
22.         .否则
    
23.             .如果真 (i ≤ l － 2)
    
24.                 s ＝ 取文本中间 (szEscape, i ＋ 1, 2)
    
25.                 c ＝ 到文本 (编码_Unicode到Ansi (到字节集 (进制_十六到十 (s))))
    
26.                 i ＝ i ＋ 2
    
27.             .如果真结束
    
28. 
    
29.         .如果结束
    
30.         p ＝ p ＋ c
    
31.     .如果真结束
    
32.     处理事件 ()
    
33. .变量循环尾 ()
    
34. 返回 (p)
    

复制代码