如何将文本读入到组件里

411967191 · 发表于 2011-9-10 19:12:28

本帖最后由 411967191 于 2011-9-10 19:14 编辑

读入.rar (852 Bytes, 下载次数: 21)

sf0799 · 发表于 2011-9-10 19:12:29

本帖最后由 sf0799 于 2011-9-12 14:41 编辑

[e].版本 2

.子程序 _组合框1_列表项被选择
.局部变量临时数组, 文本型, , "0"
.局部变量 i, 整数型

选择列表框1.清空 ()
临时数组＝分割文本 (分类数组 [组合框1.现行选中项＋ 2], #换行符, )
.计次循环首 (取数组成员数 (临时数组) － 1, i)
选择列表框1.加入项目 (临时数组 [i ＋ 1], )
.计次循环尾 ()
[/e]

倒数第二行忘记加1了（加粗的地方），自己加上就行了

a307 · 发表于 2011-9-10 20:21:37

读入.rar (1.95 KB, 下载次数: 24)

411967191 · 发表于 2011-9-10 20:54:05

a307 发表于 2011-9-10 20:21

版主.貌似不好用.如果各类物品数不同读入的时候会有很多空选择未命名.jpg

a307 · 发表于 2011-9-10 21:13:39

读入.rar (2.46 KB, 下载次数: 23)

411967191 · 发表于 2011-9-11 01:19:43

本帖最后由 411967191 于 2011-9-11 01:30 编辑

读入.rar (3.45 KB, 下载次数: 14)

2011-9-11 01:29 上传
点击文件名下载附件 a307 发表于 2011-9-10 21:13
修改了下。

没空的了。

这个还可以.如果用分割文本.读入文件()应如何写....,明天起床取答案

a307 · 发表于 2011-9-11 09:49:14

读入.rar (1.46 KB, 下载次数: 17)

sf0799 · 发表于 2011-9-11 09:51:09

易语言主程序又被破坏了！

非常简单，加个如果就行了，楼主自己写吧

sf0799 · 发表于 2011-9-11 10:05:45

找了个备份，花点时间赚点币吧
没多少东西，代码也贴上
[e].版本 2

.程序集窗口程序集1
.程序集变量分类数组, 文本型, , "0"

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型

分类数组＝分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\物品.ini”)), “[”, )
.计次循环首 (取数组成员数 (分类数组) － 1, i)
组合框1.加入项目 (取文本左边 (分类数组 [i ＋ 1], 寻找文本 (分类数组 [i ＋ 1], “]”, , 假) － 1), )
.计次循环尾 ()
组合框1.现行选中项＝ 0
_组合框1_列表项被选择 ()

.子程序 _组合框1_列表项被选择
.局部变量临时数组, 文本型, , "0"
.局部变量 i, 整数型

选择列表框1.清空 ()
临时数组＝分割文本 (分类数组 [组合框1.现行选中项＋ 2], #换行符, )
.计次循环首 (取数组成员数 (临时数组) － 1, i)
选择列表框1.加入项目 (临时数组 , )
.计次循环尾 ()

[/e]

411967191 · 发表于 2011-9-11 11:04:15

sf0799 发表于 2011-9-11 10:05
找了个备份，花点时间赚点币吧
没多少东西，代码也贴上

就是这方法.但代码好象有点问题未命名.jpg

海鲜类怎么也显示在选择框里去了.还有石斑没显示出来

		自动登录	找回密码
密码			注册

[已解决] 如何将文本读入到组件里

最佳答案

点评