编码_Ansi到Unicode 改善建议

q877272792

原精易模块里的编码_Ansi到Unicode命令如果中间有字母数字 后面的Ansi会无法继续转换到Unicode
下面是修改后的代码

  

子程序名	返回值类型	公开	备 注
编码_Ansi到Unicode	字节集		将Ansi码转换为Unicode码；成功返回转换后的字节集；保留字母数字；
参数名	类 型	参考	可空	数组	备 注
Ansi	文本型				欲转换的Ansi文本
非标准Unicode编码	逻辑型				默认为假，为标准Unicode编码

变量名	类 型	静态	数组	备 注
数据2	字节集
长度	整数型
字节集	字节集
计次	整数型
临时文本	文本型
是否有数字字母	逻辑型
临时数组	文本型		0
临时计次	整数型

如果真 (Ansi ＝ “”)
返回 ({  })
字节集 ＝ 到字节集 (Ansi)
临时计次 ＝ 0
临时文本 ＝ Ansi
计次循环首 (取字节集长度 (字节集), 计次)
临时计次 ＝ 临时计次 ＋ 1
判断 (字节集 [计次] ＞ 44 且 字节集 [计次] ＜ 58 且 字节集 [计次] ≠ 47)  ' -.0-9
加入成员 (临时数组, 取文本左边 (临时文本, 临时计次 － 1))
临时文本 ＝ 取文本右边 (Ansi, 取字节集长度 (字节集) － 计次)
临时计次 ＝ 0
是否有数字字母 ＝ 真
判断 (字节集 [计次] ＞ 64 且 字节集 [计次] ＜ 91)  ' A-Z
加入成员 (临时数组, 取文本左边 (临时文本, 临时计次 － 1))
临时文本 ＝ 取文本右边 (Ansi, 取字节集长度 (字节集) － 计次)
临时计次 ＝ 0
是否有数字字母 ＝ 真
判断 (字节集 [计次] ＞ 96 且 字节集 [计次] ＜ 123)  ' a-z
加入成员 (临时数组, 取文本左边 (临时文本, 临时计次 － 1))
临时文本 ＝ 取文本右边 (Ansi, 取字节集长度 (字节集) － 计次)
临时计次 ＝ 0
是否有数字字母 ＝ 真
如果 (计次 ＝ 取字节集长度 (字节集) 且 临时文本 ≠ “”)
加入成员 (临时数组, 临时文本)




计次循环尾 ()
如果 (是否有数字字母 ＝ 假)
长度 ＝ MultiByteToWideChar (936, 0, Ansi, -1, {  }, 0)
数据2 ＝ 取空白字节集 (长度 × 2)
MultiByteToWideChar (936, 0, Ansi, -1, 数据2, 长度 × 2)
如果真 (非标准Unicode编码)
数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)

临时文本 ＝ Ansi
计次循环首 (取数组成员数 (临时数组), 计次)
长度 ＝ MultiByteToWideChar (936, 0, 临时数组 [计次], -1, {  }, 0)
数据2 ＝ 取空白字节集 (长度 × 2)
MultiByteToWideChar (936, 0, 临时数组 [计次], -1, 数据2, 长度 × 2)
如果真 (非标准Unicode编码)
数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)
临时文本 ＝ 文本_替换 (临时文本, 1, , , 临时数组 [计次], 到文本 (数据2))
计次循环尾 ()
数据2 ＝ 到字节集 (临时文本)
返回 (数据2)

.版本 2<br /> <br /> .子程序 编码_Ansi到Unicode, 字节集, 公开, 将Ansi码转换为Unicode码；成功返回转换后的字节集；保留字母数字；<br /> .参数 Ansi, 文本型, , 欲转换的Ansi文本<br /> .参数 非标准Unicode编码, 逻辑型, 可空, 默认为假，为标准Unicode编码<br /> .局部变量 数据2, 字节集<br /> .局部变量 长度, 整数型<br /> .局部变量 字节集, 字节集<br /> .局部变量 计次, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 是否有数字字母, 逻辑型<br /> .局部变量 临时数组, 文本型, , "0"<br /> .局部变量 临时计次, 整数型<br /> <br /> .如果真 (Ansi ＝ “”)<br />     返回 ({  })<br /> .如果真结束<br /> 字节集 ＝ 到字节集 (Ansi)<br /> 临时计次 ＝ 0<br /> 临时文本 ＝ Ansi<br /> .计次循环首 (取字节集长度 (字节集), 计次)<br />     临时计次 ＝ 临时计次 ＋ 1<br />     .判断开始 (字节集 [计次] ＞ 44 且 字节集 [计次] ＜ 58 且 字节集 [计次] ≠ 47)  ' -.0-9<br />         加入成员 (临时数组, 取文本左边 (临时文本, 临时计次 － 1))<br />         临时文本 ＝ 取文本右边 (Ansi, 取字节集长度 (字节集) － 计次)<br />         临时计次 ＝ 0<br />         是否有数字字母 ＝ 真<br />     .判断 (字节集 [计次] ＞ 64 且 字节集 [计次] ＜ 91)  ' A-Z<br />         加入成员 (临时数组, 取文本左边 (临时文本, 临时计次 － 1))<br />         临时文本 ＝ 取文本右边 (Ansi, 取字节集长度 (字节集) － 计次)<br />         临时计次 ＝ 0<br />         是否有数字字母 ＝ 真<br />     .判断 (字节集 [计次] ＞ 96 且 字节集 [计次] ＜ 123)  ' a-z<br />         加入成员 (临时数组, 取文本左边 (临时文本, 临时计次 － 1))<br />         临时文本 ＝ 取文本右边 (Ansi, 取字节集长度 (字节集) － 计次)<br />         临时计次 ＝ 0<br />         是否有数字字母 ＝ 真<br />     .默认<br />         .如果 (计次 ＝ 取字节集长度 (字节集) 且 临时文本 ≠ “”)<br />             加入成员 (临时数组, 临时文本)<br />         .否则<br /> <br />         .如果结束<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> .如果 (是否有数字字母 ＝ 假)<br />     长度 ＝ MultiByteToWideChar (936, 0, Ansi, -1, {  }, 0)<br />     数据2 ＝ 取空白字节集 (长度 × 2)<br />     MultiByteToWideChar (936, 0, Ansi, -1, 数据2, 长度 × 2)<br />     .如果真 (非标准Unicode编码)<br />         数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)<br />     .如果真结束<br /> <br /> .否则<br />     临时文本 ＝ Ansi<br />     .计次循环首 (取数组成员数 (临时数组), 计次)<br />         长度 ＝ MultiByteToWideChar (936, 0, 临时数组 [计次], -1, {  }, 0)<br />         数据2 ＝ 取空白字节集 (长度 × 2)<br />         MultiByteToWideChar (936, 0, 临时数组 [计次], -1, 数据2, 长度 × 2)<br />         .如果真 (非标准Unicode编码)<br />             数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)<br />         .如果真结束<br />         临时文本 ＝ 文本_替换 (临时文本, 1, , , 临时数组 [计次], 到文本 (数据2))<br />     .计次循环尾 ()<br />     数据2 ＝ 到字节集 (临时文本)<br /> .如果结束<br /> 返回 (数据2)

天天变

还是不行啊

寻找Happy

retertertr

萧阳天

感谢反馈，暂不采纳

q877272792

第一个在循环上少加了个 临时文本 ＝ Ansi  不加的话数字字母前面的就无法转换了  【已修改】

q877272792

已重新修改 现在的就是的了