易语言超级列表框删除现行选中项对应到txt文本中

zhshn · 发表于 2023-10-24 14:36:24

易语言超级列表框删除现行选中项对应到txt文本中就是我超级列表框内容对应txt文件
我删除了超级列表框现行选中项对应的内容 txt也要删除

谢谢

孙哥哥 · 发表于 2023-10-24 14:36:25

子程序名	返回值类型	公开	备注
保存子程序

变量名	类型	静态	数组	备注
列表框文本	文本型
i	整数型
项文本	文本型
a	整数型

列表框文本＝ “”

如果真 (超级列表框1.取表项数 () ＞ 0)

计次循环首 (超级列表框1.取表项数 (), i)

项文本＝ “”

计次循环首 (超级列表框1.取列数 (), a)

项文本＝项文本＋超级列表框1.取标题 (i － 1, a － 1) ＋ “,”

计次循环尾 ()

项文本＝取文本左边 (项文本, 取文本长度 (项文本) － 1)

列表框文本＝列表框文本＋项文本＋ “|”

计次循环尾 ()

列表框文本＝取文本左边 (列表框文本, 取文本长度 (列表框文本) － 1)

写配置项 (我的路径, “数据”, “列表”, 列表框文本)

子程序名	返回值类型	公开	备注
读取子程序

变量名	类型	静态	数组	备注
列表	文本型
项文本	文本型		0
i	整数型
索引	整数型
列文本	文本型		0
a	整数型

列表＝读配置项 (我的路径, “数据”, “列表”, “空”)

如果真 (列表 ≠ “空”)

超级列表框1.全部删除 ()

项文本＝分割文本 (列表, “|”, )

计次循环首 (取数组成员数 (项文本), i)

索引＝超级列表框1.插入表项 (, , , , , )

列文本＝分割文本 (项文本 [i], “,”, )

计次循环首 (取数组成员数 (列文本), a)

超级列表框1.置标题 (索引, a － 1, 列文本 [a])

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br />
.支持库 iext<br />
<br />
.子程序 保存子程序<br />
.局部变量 列表框文本, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 项文本, 文本型<br />
.局部变量 a, 整数型<br />
<br />
列表框文本 ＝ “”<br />
.如果真 (超级列表框1.取表项数 () ＞ 0)<br />
    .计次循环首 (超级列表框1.取表项数 (), i)<br />
        项文本 ＝ “”<br />
        .计次循环首 (超级列表框1.取列数 (), a)<br />
            项文本 ＝ 项文本 ＋ 超级列表框1.取标题 (i － 1, a － 1) ＋ “,”<br />
        .计次循环尾 ()<br />
        项文本 ＝ 取文本左边 (项文本, 取文本长度 (项文本) － 1)<br />
        列表框文本 ＝ 列表框文本 ＋ 项文本 ＋ “|”<br />
    .计次循环尾 ()<br />
    列表框文本 ＝ 取文本左边 (列表框文本, 取文本长度 (列表框文本) － 1)<br />
    写配置项 (我的路径, “数据”, “列表”, 列表框文本)<br />
.如果真结束<br />
<br />
<br />
.子程序 读取子程序<br />
.局部变量 列表, 文本型<br />
.局部变量 项文本, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 索引, 整数型<br />
.局部变量 列文本, 文本型, , "0"<br />
.局部变量 a, 整数型<br />
<br />
列表 ＝ 读配置项 (我的路径, “数据”, “列表”, “空”)<br />
.如果真 (列表 ≠ “空”)<br />
    超级列表框1.全部删除 ()<br />
    项文本 ＝ 分割文本 (列表, “|”, )<br />
    .计次循环首 (取数组成员数 (项文本), i)<br />
        索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />
        列文本 ＝ 分割文本 (项文本 <i>, “,”, )<br />
        .计次循环首 (取数组成员数 (列文本), a)<br />
            超级列表框1.置标题 (索引, a － 1, 列文本 [a])<br />
        .计次循环尾 ()<br />
    .计次循环尾 ()