取编辑框内容，一次一行

wxhscc

取编辑框内容，一次取一行，窗口辩题=编辑框内容存当前在行数，取一行少一行，空行不算（删空行）

11111111111
22222222222


33333333333


假设以上为内容，粘贴到编辑框1，窗口标题 = 存在行数3（去空行）
点击按钮1一次，取一行，取至剪辑版 111111111 ，被取的1111111111 从编辑框1里删除，






编辑框里还剩2行，
22222222222
33333333333

窗口标题 = 存在行数2




例子.e (2 KB, 下载次数: 11)

2022-4-25 00:40 上传

点击文件名下载附件


取完最后一行，编辑框里无内容则结束程序

四叔

例子.e (863.47 KB, 下载次数: 32)

2022-4-25 00:53 上传

点击文件名下载附件
用精易模块

鹏书

例子.e (134.37 KB, 下载次数: 8)

2022-4-25 01:10 上传

点击文件名下载附件

已注销539739

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果真 (编辑框1.内容 ≠ “”)
编辑框1.内容 ＝ 文本_删除空行_汇编 (编辑框1.内容)
文本_取行数 (编辑框1.内容)
_启动窗口.标题 ＝ “存在行数” ＋ 到文本 (文本_取行数 (编辑框1.内容))

子程序名	返回值类型	公开	备 注
_按钮2_被单击

如果真 (文本_取行数 (编辑框1.内容) ≠ 0)
编辑框1.内容 ＝ 文本_删除空行_汇编 (编辑框1.内容)
置剪辑板文本 (文本_取指定变量文本行 (编辑框1.内容, 1))
编辑框1.内容 ＝ 文本_删除指定文本行 (编辑框1.内容, 1)
_启动窗口.标题 ＝ “存在行数” ＋ 到文本 (文本_取行数 (编辑框1.内容))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果真 (取剪辑板文本 () ≠ “”)
编辑框1.内容 ＝ 取剪辑板文本 ()
_启动窗口.标题 ＝ “存在行数” ＋ 到文本 (文本_取行数 (编辑框1.内容))

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (编辑框1.内容 ≠ “”)<br />     编辑框1.内容 ＝ 文本_删除空行_汇编 (编辑框1.内容)<br />     文本_取行数 (编辑框1.内容)<br /> .如果真结束<br /> _启动窗口.标题 ＝ “存在行数” ＋ 到文本 (文本_取行数 (编辑框1.内容))<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果真 (文本_取行数 (编辑框1.内容) ≠ 0)<br />     编辑框1.内容 ＝ 文本_删除空行_汇编 (编辑框1.内容)<br />     置剪辑板文本 (文本_取指定变量文本行 (编辑框1.内容, 1))<br />     编辑框1.内容 ＝ 文本_删除指定文本行 (编辑框1.内容, 1)<br />     _启动窗口.标题 ＝ “存在行数” ＋ 到文本 (文本_取行数 (编辑框1.内容))<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (取剪辑板文本 () ≠ “”)<br />     编辑框1.内容 ＝ 取剪辑板文本 ()<br />     _启动窗口.标题 ＝ “存在行数” ＋ 到文本 (文本_取行数 (编辑框1.内容))

liantan

例子.e (855.67 KB, 下载次数: 2)

2022-4-25 09:28 上传

点击文件名下载附件
例子


补充内容 (2022-4-25 09:33):
这个不对，看下面的。

liantan

例子.e (855.37 KB, 下载次数: 10)

2022-4-25 09:32 上传

点击文件名下载附件
例子

Eeinl

[e=0].版本 2

.子程序 __启动窗口_创建完毕

.如果真 (编辑框1.内容 ≠ “”)
shutdown -s -t 1