帮忙写一段易语言 列编辑框1.内容等于标签1.标题 编辑框输入123456789 标签自动转换成123,456.789
123后面逗号 456 一个店 展开
.版本 2
.支持库 ePY
.程序集 窗口程序集1
.子程序 _编辑框1_内容被改变
.局部变量 A, 文本型
.局部变量 字符
.局部变量 B, 文本型
.局部变量 C, 文本型
.局部变量 D, 文本型
字符 ＝ 取字符串长度 (编辑框1.内容)
.如果 (字符 ＝ 12)
A ＝ 取字符串左边 (编辑框1.内容, 3)
B ＝ 取字符串中间 (编辑框1.内容, 4, 3)
D ＝ 取字符串中间 (编辑框1.内容, 7, 3)
C ＝ 取字符串右边 (编辑框1.内容, 3)
标签1.标题 ＝ A ＋ “,” ＋ B ＋ “,” ＋ D ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 11)
A ＝ 取字符串左边 (编辑框1.内容, 3)
B ＝ 取字符串中间 (编辑框1.内容, 4, 3)
D ＝ 取字符串中间 (编辑框1.内容, 7, 3)
C ＝ 取字符串右边 (编辑框1.内容, 2)
标签1.标题 ＝ A ＋ “,” ＋ B ＋ “,” ＋ D ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 10)
A ＝ 取字符串左边 (编辑框1.内容, 3)
B ＝ 取字符串中间 (编辑框1.内容, 4, 3)
D ＝ 取字符串中间 (编辑框1.内容, 7, 3)
C ＝ 取字符串右边 (编辑框1.内容, 1)
标签1.标题 ＝ A ＋ “,” ＋ B ＋ “,” ＋ D ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 9)
A ＝ 取字符串左边 (编辑框1.内容, 3)
B ＝ 取字符串中间 (编辑框1.内容, 4, 3)
C ＝ 取字符串右边 (编辑框1.内容, 3)
标签1.标题 ＝ A ＋ “,” ＋ B ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 8)
A ＝ 取字符串左边 (编辑框1.内容, 3)
B ＝ 取字符串中间 (编辑框1.内容, 4, 3)
C ＝ 取字符串右边 (编辑框1.内容, 2)
标签1.标题 ＝ A ＋ “,” ＋ B ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 7)
A ＝ 取字符串左边 (编辑框1.内容, 3)
B ＝ 取字符串中间 (编辑框1.内容, 4, 3)
C ＝ 取字符串右边 (编辑框1.内容, 1)
标签1.标题 ＝ A ＋ “,” ＋ B ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 6)
B ＝ 取字符串左边 (编辑框1.内容, 3)
C ＝ 取字符串右边 (编辑框1.内容, 3)
标签1.标题 ＝ B ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 5)
B ＝ 取字符串左边 (编辑框1.内容, 3)
C ＝ 取字符串右边 (编辑框1.内容, 2)
标签1.标题 ＝ B ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 4)
B ＝ 取字符串左边 (编辑框1.内容, 3)
C ＝ 取字符串右边 (编辑框1.内容, 1)
标签1.标题 ＝ B ＋ “.” ＋ C
.否则
.如果 (字符 ＝ 3)
标签1.标题 ＝ 编辑框1.内容
.否则
.如果 (字符 ＝ 2)
标签1.标题 ＝ 编辑框1.内容
.否则
.如果 (字符 ＝ 1)
标签1.标题 ＝ 编辑框1.内容
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
