编程工具易语言字符转化器

Ctrl+1=切换“删首尾空行”
Ctrl+2=切换“是否备注”
Ctrl+Enter=按下“转换按钮”
Alt+X=切换转换类型,第1项为1

.判断 (组合框1.现行选中项 ＝ 2)
.变量循环首 (1, 取字节集长度 (到字节集 (text)), 4, i)
return ＝ return ＋ “DWordToText(” ＋ 到文本 (取字节集数据 (取字节集中间 (到字节集 (text), i, 4), #整数型, )) ＋ “)”
.如果真 (取字节集长度 (到字节集 (text)) － 4 ＞ i)
return ＝ return ＋ “+”
.如果真结束

.变量循环尾 ()
.如果真 (选择框_备注.选中 ＝ 真)
return ＝ return ＋ “ ' ” ＋ 子文本替换 (text, #换行符, “ ”, , , 真)
.如果真结束
return ＝ return ＋ #换行符 ＋ #换行符 ＋ “.子程序 DWordToText, 文本型” ＋ #换行符 ＋ “.参数 参数, 整数型” ＋ #换行符 ＋ “返回 (取字节集数据(到字节集(参数),10))”
.默认
.变量循环首 (1, 取字节集长度 (到字节集 (text)), 4, i)
return ＝ return ＋ “取字节集数据(到字节集(” ＋ 到文本 (取字节集数据 (取字节集中间 (到字节集 (text), i, 4), #整数型, )) ＋ “),10)”
.如果真 (i ＋ 4 ≤ 取字节集长度 (到字节集 (text)))
return ＝ return ＋ “+”
.如果真结束

.变量循环尾 ()
.判断结束
.如果真 (组合框1.现行选中项 ≠ 2 且 选择框_备注.选中 ＝ 真)
return ＝ return ＋ “ ' ” ＋ 子文本替换 (text, #换行符, “ ”, , , 真)