简单问题，来拿分❤❤❤❤

taoba0321

我导入一个"568行"的TXT文本，怎么取他的行数可以显示到标签。   以及某一行的文字，比如取第88行文字，希望给我个例子让我参考一下

superuserlrj

[e]
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 导入的文本, 文本型

' ~~使用了论坛的  精易模块  命令~
导入的文本 ＝ 到文本 (读入文件 (“C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt”))
标签1.标题 ＝ 到文本 (文本_取行数 (导入的文本))  ' 取文本一共几行
标签2.标题 ＝ 文本_取指定变量文本行 (导入的文本, 88)  ' 读取第88行的文本
[/e]

聚义堂神话

[e]
.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 原来文本, 文本型
.局部变量 行数, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 行数内容, 文本型
.局部变量 行, 整数型

原来文本 ＝ “TXT文本数据”
行 ＝ 88
分割 ＝ 分割文本 (原来文本, #换行符, )
行数 ＝ 到文本 (取数组成员数 (分割))
.如果真 (到整数 (行数) ≤ 行 且 行 ＞ 0)
    行数 ＝ 分割 [行]
.如果真结束

调试输出 (行数, 行数内容)

[/e]

你直接说啊

分割文本数组=分割文本(导入的文本,#换行符)

导入文本行数=取数组成员数(分割文本数组)

取指定文本行数=分割文本数组[88]

小冰—

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 文本, 文本型
   
6. .局部变量 行, 整数型
   
7. .局部变量 分割, 文本型, , "0"
   
8. .局部变量 行数, 整数型
   
9. .局部变量 n, 整数型
   
10. .局部变量 y, 整数型
    
11. .局部变量 内容, 文本型
    
12. 
    
13. 文本 ＝ 到文本 (读入文件 (“D:\Documents\Desktop\1111.txt”))
    
14. 分割 ＝ 分割文本 (文本, #换行符, )
    
15. .计次循环首 (取数组成员数 (分割), n)
    
16.     标签1.标题 ＝ “行数：” ＋ 到文本 (n)
    
17. .计次循环尾 ()
    
18. 行数 ＝ n － 1
    
19. .如果 (编辑框1.内容 ＝ “” 或 到数值 (编辑框1.内容) ＞ 行数)
    
20.     编辑框1.内容 ＝ 到文本 (行数)
    
21.     信息框 (“内容不能为容且不能大于行数”, 0, “信息”)
    
22.     返回 ()
    
23. .否则
    
24.     标签2.标题 ＝ “当前行数内容：” ＋ 分割 [到数值 (编辑框1.内容)]
    
25. .如果结束
    
26. 调试输出 (行数)
    

复制代码

绝对可用

补充内容 (2013-12-13 02:20):
直接复制 即可  文本路径 写你自己的   


补充内容 (2013-12-13 02:21):
直接复制即可
文本路径写你自己的

SourceCode

楼主 使用超级编辑框岂不是更方便！

﹏ゞ記憶︶ㄣ

进来看看  不是很明白