保存列表框的时候怎么保存不要带4的

虫子123333

麻烦高手解决下！！！！  没有什么思路！！！

未解决.e (3.92 KB, 下载次数: 6)

2017-4-11 16:49 上传

点击文件名下载附件


补充内容 (2017-4-11 16:50):
在线等！！！！！

锦州八戒工做室

未解决.zip (1.54 KB, 下载次数: 5)

2017-4-11 16:55 上传

点击文件名下载附件

素顏じ亦傾城ジ

如果真(寻找文本(这行内容,"4")=-1) '如果这行没有找到4这个字符
          这里执行后续代码..

拉面

  

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

变量名	类 型	静态	数组	备 注
计次	整数型
文本	文本型

计次循环首 (10, 计次)
超级列表框1.插入表项 (计次 － 1, 到文本 (计次), , , , )
循环判断首 ()
置随机数种子 ()
文本 ＝ 到文本 (取随机数 (10000, ))
循环判断尾 (寻找文本 (文本, “4”, , 假) ＞ -1)
超级列表框1.置标题 (计次 － 1, 1, 文本)
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> <br /> .计次循环首 (10, 计次)<br />     超级列表框1.插入表项 (计次 － 1, 到文本 (计次), , , , )<br />     .循环判断首 ()<br />         置随机数种子 ()<br />         文本 ＝ 到文本 (取随机数 (10000, ))<br />     .循环判断尾 (寻找文本 (文本, “4”, , 假) ＞ -1)<br />     超级列表框1.置标题 (计次 － 1, 1, 文本)<br /> .计次循环尾 ()

那你不要生成带4的就可以了

MY寂寞的夜

i f(instr  (List  Box.  getCaption(Index,1),"4")=-1)
sa  ve(List  Box.  getCaption(Index,1),)

Patek

  

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

变量名	类 型	静态	数组	备 注
a	整数型
计次	整数型

. ' 如果 (选择框1.选中 ＝ 真)
' 写到文件 (取当前目录 () ＋ “\不带4的文本.txt”, 到字节集 (超级列表框1.取标题 (a － 1, 1)))
' 写到文件 (取当前目录 () ＋ “/带4的数字.txt”, 到字节集 (超级列表框1.取标题 (a － 1, 1)))

计次循环首 (超级列表框1.取表项数 (), 计次)
如果真 (寻找文本 (超级列表框1.取标题 (计次 － 1, 1), “4”, , 假) ＜ 1)
写配置项 (取运行目录 () ＋ “\配置.ini”, “带数字4的所有号码”, 超级列表框1.取标题 (计次 － 1, 0), 超级列表框1.取标题 (计次 － 1, 1))

计次循环尾 ()
' 帮忙解决下 如果号码列表有4  和没有4 是分开保存
' 不胜感激

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 a, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> .' 如果 (选择框1.选中 ＝ 真)<br />     ' 写到文件 (取当前目录 () ＋ “\不带4的文本.txt”, 到字节集 (超级列表框1.取标题 (a － 1, 1)))<br /> .否则<br />     ' 写到文件 (取当前目录 () ＋ “/带4的数字.txt”, 到字节集 (超级列表框1.取标题 (a － 1, 1)))<br /> .如果结束<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 计次)<br />     .如果真 (寻找文本 (超级列表框1.取标题 (计次 － 1, 1), “4”, , 假) ＜ 1)<br />         写配置项 (取运行目录 () ＋ “\配置.ini”, “带数字4的所有号码”, 超级列表框1.取标题 (计次 － 1, 0), 超级列表框1.取标题 (计次 － 1, 1))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> ' 帮忙解决下 如果号码列表有4  和没有4 是分开保存<br /> ' 不胜感激

改成这样就行了

秀才遇到兵

已经解决 ，望采纳