Question

易语言修改文本

Answer 1

我做好了，这是代码：
.版本
2
.程序集
窗口程序集1
.程序集变量
添加位置,
整数型
.程序集变量
上次位置,
整数型
.程序集变量
添加数量,
整数型
.子程序
_编辑框_输入并添加点_内容被改变
.如果
(取文本长度
(编辑框_输入并添加点.内容)
＞
上次位置)

添加数量
＝
取文本长度
(编辑框_输入并添加点.内容)
－
上次位置

添加位置
＝
添加位置
＋
添加数量
.否则

添加数量
＝
上次位置
－
取文本长度
(编辑框_输入并添加点.内容)

添加位置
＝
添加位置
－
添加数量

.如果真
(添加位置
＜
0)

添加位置
＝
0

.如果真结束
.如果结束
上次位置
＝
取文本长度
(编辑框_输入并添加点.内容)
.如果真
(添加位置
＝
到整数
(编辑框_几个添加一个点.内容))

编辑框_输入并添加点.内容
＝
编辑框_输入并添加点.内容
＋
“.”

添加位置
＝
0

编辑框_输入并添加点.起始选择位置
＝
取文本长度
(编辑框_输入并添加点.内容)
.如果真结束
返回
()
.子程序
_编辑框_几个添加一个点_内容被改变
.如果真
(到整数
(编辑框_几个添加一个点.内容)
＝
0)

编辑框_几个添加一个点.内容
＝
“3”

编辑框_输入并添加点.内容
＝
“”

添加位置
＝
0

返回
()
.如果真结束
编辑框_输入并添加点.内容
＝
“”
添加位置
＝
0
当然，不会复制你也可以直接下载我的源文件！

Answer 2

.版本
2
编辑框1.内容
=
加点
(“35874596848455558”,
5)
.子程序
加点,
文本型
.参数
文本,
文本型
.参数
间距,
整数型
.局部变量
文本长度
.局部变量
循环数,
整数型
.局部变量
返回文本,
文本型
文本长度
＝
取文本长度
(文本)
.如果真
(文本长度
＜
间距)
返回
(文本)
.如果真结束
循环数
＝
1
.循环判断首
()
返回文本
＝
返回文本
＋
取文本中间
(文本,
循环数,
间距)
＋
“.”
循环数
＝
循环数
＋
间距
.循环判断尾
(文本长度
＞
循环数)
返回
(取文本左边
(返回文本,
取文本长度
(返回文本)
－
1))