易语言修改文本
编辑框1.内容 = 加点 (“35874596848455558”, 5)
.子程序 加点, 文本型
.参数 文本, 文本型
.参数 间距, 整数型
.局部变量 文本长度
.局部变量 循环数, 整数型
.局部变量 返回文本, 文本型
文本长度 = 取文本长度 (文本)
.如果真 (文本长度 < 间距)
返回 (文本)
.如果真结束
循环数 = 1
.循环判断首 ()
返回文本 = 返回文本 + 取文本中间 (文本, 循环数, 间距) + “.”
循环数 = 循环数 + 间距
.循环判断尾 (文本长度 > 循环数)
返回 (取文本左边 (返回文本, 取文本长度 (返回文本) - 1))
我做好了,这是代码:
.版本 2
.程序集 窗口程序集1
.程序集变量 添加位置, 整数型
.程序集变量 上次位置, 整数型
.程序集变量 添加数量, 整数型
.子程序 _编辑框_输入并添加点_内容被改变
.如果 (取文本长度 (编辑框_输入并添加点.内容) > 上次位置)
添加数量 = 取文本长度 (编辑框_输入并添加点.内容) - 上次位置
添加位置 = 添加位置 + 添加数量
.否则
添加数量 = 上次位置 - 取文本长度 (编辑框_输入并添加点.内容)
添加位置 = 添加位置 - 添加数量
.如果真 (添加位置 < 0)
添加位置 = 0
.如果真结束
.如果结束
上次位置 = 取文本长度 (编辑框_输入并添加点.内容)
.如果真 (添加位置 = 到整数 (编辑框_几个添加一个点.内容))
编辑框_输入并添加点.内容 = 编辑框_输入并添加点.内容 + “.”
添加位置 = 0
编辑框_输入并添加点.起始选择位置 = 取文本长度 (编辑框_输入并添加点.内容)
.如果真结束
返回 ()
.子程序 _编辑框_几个添加一个点_内容被改变
.如果真 (到整数 (编辑框_几个添加一个点.内容) = 0)
编辑框_几个添加一个点.内容 = “3”
编辑框_输入并添加点.内容 = “”
添加位置 = 0
返回 ()
.如果真结束
编辑框_输入并添加点.内容 = “”
添加位置 = 0
当然,不会复制你也可以直接下载我的源文件!