超级列表框删除空白行

quan8050

因为软件运行过程中产生了很多空白行，想要删除掉这些空白行，尝试过用查找表项的方法 但是会删除掉旁边的有数据的那一行

chenboss

修复有空格不删的问题

  

变量名	类 型	静态	数组	备 注
a	文本型
i	整数型
j	整数型

变量循环首 (超级列表框1.取表项数 (), 1, -1, i)
a ＝ “”
计次循环首 (超级列表框1.取列数 (), j)
a ＝ a ＋ 超级列表框1.取标题 (i － 1, j － 1)
计次循环尾 ()
如果真 (删全部空 (a) ＝ “”)
超级列表框1.删除表项 (i － 1)

变量循环尾 ()

.版本 2<br /> <br /> .局部变量 a, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> .变量循环首 (超级列表框1.取表项数 (), 1, -1, i)<br />     a ＝ “”<br />     .计次循环首 (超级列表框1.取列数 (), j)<br />         a ＝ a ＋ 超级列表框1.取标题 (i － 1, j － 1)<br />     .计次循环尾 ()<br />     .如果真 (删全部空 (a) ＝ “”)<br />         超级列表框1.删除表项 (i － 1)<br />     .如果真结束<br /> <br /> .变量循环尾 ()

BruceJoysky1987

.版本 2
.支持库 iext

.局部变量 i, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)
    .判断开始 (超级列表框1.取标题 (i － 1, 0) ＝ “”)
        超级列表框1.删除表项 ()
    .默认

    .判断结束

.计次循环尾 ()

圆圈

demo.e (149.38 KB, 下载次数: 0)

2025-1-30 10:47 上传

点击文件名下载附件
删除超级列表框全部空白行
删除超级列表框全部空白行

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
文本i	文本型
i	整数型
o	整数型

变量循环首 (超级列表框1.取表项数 (), 1, -1, i)
文本i ＝ “”
计次循环首 (超级列表框1.取列数 (), o)
文本i ＝ 文本i ＋ 超级列表框1.取标题 (i － 1, o － 1)
计次循环尾 ()
如果真 (文本i ＝ “”)
超级列表框1.删除表项 (i － 1)

变量循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本i, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 o, 整数型<br /> <br /> <br /> .变量循环首 (超级列表框1.取表项数 (), 1, -1, i)<br />     文本i ＝ “”<br />     .计次循环首 (超级列表框1.取列数 (), o)<br />         文本i ＝ 文本i ＋ 超级列表框1.取标题 (i － 1, o － 1)<br />     .计次循环尾 ()<br />     .如果真 (文本i ＝ “”)<br />         超级列表框1.删除表项 (i － 1)<br />     .如果真结束<br /> <br /> .变量循环尾 ()

rxat

小试牛刀，希望能用上

我很低调

判断某行列=“” 不写入