Question

易语言将文本整理 每次删除上一句话的左边一个字 每行字符20 效果图在下面 求源码

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 a, 整数型, , , 偶数，每行最多字符数，一个汉字为两个字符
.局部变量 字符总长度, 整数型
.局部变量 n, 整数型
.局部变量 规范文本, 文本型
.局部变量 取出内容, 文本型

a ＝ 26 ' 代表每行最多13个字，此处自己修改
n ＝ 1
规范文本 ＝ 子文本替换 (子文本替换 (编辑框1.内容, #换行符, “　”, , , 真), “ ”, “”, , , 真)

字符总长度 ＝ 取文本长度 (规范文本)
.计次循环首 (字符总长度 ÷ 2, n)
.如果 (2 × n ≤ a)
取出内容 ＝ 取出内容 ＋ 取文本左边 (规范文本, 2 × n) ＋ #换行符
.否则
' 取出内容 ＝ 取出内容 ＋ 取文本右边 (取文本左边 (规范文本, 2 × n), a) ＋ #换行符
.如果结束
n ＝ n ＋ 1
.计次循环尾 ()
编辑框2.内容 ＝ 取出内容

追问

不对呀 大哥 你打包源码出来 我看看 这个我弄了好久了 没弄明白

追答

你自己建 编辑框1，编辑框2，按钮1 三个组件，我上传不了源码,我上边的源码有一句注释了，忘记取消，以下边为准

追问

大哥 效果跟我的不一样呀

追答

忘记了把编辑框2的对齐方式设为右对齐就可以了，这个太简单的了啊，都忘记说出来了！