读取文本的每一行到标签上，求例子，超简单给10精币

什么是铁人 · 发表于 2013-12-29 21:41:11

如何把例子里面文本当中的每一行内容，显示到标签上？急要，谢谢大家了

983847264 · 发表于 2013-12-29 21:41:12

[e]
.版本 2

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

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

数组＝分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\1.txt”)), #换行符, )
段数＝取数组成员数 (数组)

.子程序 _按钮1_被单击

.如果真 (到数值 (编辑框1.内容) ＞段数)
信息框 (“请输入大于” ＋到文本 (段数) ＋ “大于0的数值”, 48, )
返回 ()
.如果真结束
标签1.标题＝数组 [到数值 (编辑框1.内容)]
段数＝取数组成员数 (数组)
[/e]

983847264 · 发表于 2013-12-29 21:51:38

[e]
.版本 2

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

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

数组＝分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\1.txt”)), #换行符, )
段数＝取数组成员数 (数组)

.子程序 _按钮1_被单击

.如果真 (到数值 (编辑框1.内容) ＞段数)
信息框 (“请输入大于” ＋到文本 (段数) ＋ “大于0的数值”, 48, )
返回 ()
.如果真结束
标签1.标题＝数组 [到数值 (编辑框1.内容)]
[/e]

什么是铁人 · 发表于 2013-12-29 21:57:07

983847264 发表于 2013-12-29 21:51
[e]
.版本 2

你这个不对啊。。

983847264 · 发表于 2013-12-29 22:11:14

亲测可以用吖。

anjljw · 发表于 2013-12-29 22:11:42

.版本 2
.支持库 shell

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量文件号, 整数型

写到文件 (取特定目录 (1) ＋ “1.txt”, #图片1) ' 吧你的txt文件放到图片资源表命名为图片1就ok
列表框1.清空 ()
文件号＝打开文件 (取特定目录 (1) ＋ “1.txt”, 1, )
移到文件首 (文件号)
.判断循环首 (是否在文件尾 (文件号, ) ＝假)
列表框1.插入项目 (0, 读入一行 (文件号), )
.判断循环尾 ()
关闭文件 (文件号)

.子程序 _列表框1_列表项被选择

编辑框1.内容＝列表框1.取项目文本 (列表框1.现行选中项)

补充内容 (2013-12-29 22:15):
附件例子忘记上传了在下楼自己看看研究吧！绝对ok的这点不过要自己单击才能显示到编辑框！如果要全自动的安个时钟周期事件就OK

流年邂逅 · 发表于 2013-12-29 22:12:02

例子.rar (2.15 KB, 下载次数: 11)

anjljw · 发表于 2013-12-29 22:15:49

123000.zip (1.31 KB, 下载次数: 3)

开心每一天s · 发表于 2013-12-29 22:17:38

有正解的了

什么是铁人 · 发表于 2013-12-29 22:22:25

可能我表达的不好吧，我的意思是，标签1的标题=我那个文本里的1，编辑框1的内容=文本的2，透明标签1的标题=文本里的3，这样子一行对应一行。 @anjljw @流年邂逅 @983847264

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

[已解决] 读取文本的每一行到标签上，求例子，超简单给10精币

最佳答案