提取TXT内容

153218

我有一个TXT文本  我要提取里面的 1 3 5 7 9······· （以此类推)  行的数据

怎么提取啊

a5218164

[e]
.版本 2

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

分割 ＝ 分割文本 (编辑框1.内容, 到文本 (#换行符), )
.变量循环首 (1, 取数组成员数 (分割), 2, i)
编辑框2.内容 ＝ 编辑框2.内容 ＋ 分割 ＋ #换行符
.变量循环尾 ()

[/e]

界面如下


左边为编辑框1，右边为编辑框2.

西瓜皮

分割文本取奇数行的文本就行了

残疾人的心声

a5218164 发表于 2013-7-23 12:27
[e]
.版本 2

你好，代码如上面的一样



满意为最佳

a5218164

喜羊羊与灰太狼 发表于 2013-7-23 12:59
你好，代码如上面的一样

你还真轻松啊- -。。。我去。。。这要是给你最佳那所有的我都可以拿最佳了。。

stillness

1. .版本 2
   
2. 
   
3. .程序集 Model
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. .局部变量 局_文本, 文本型, , "0"
   
7. .局部变量 局_欲分割文本, 文本型
   
8. .局部变量 局_计次, 整数型
   
9. .局部变量 局_循次数, 整数型
   
10. .局部变量 局_返回数组, 文本型, , "0"
    
11. .局部变量 局_Listbox, 列表框
    
12. 
    
13. 局_欲分割文本 ＝ #IDN_Text
    
14. 局_Listbox ＝ _启动窗口.列表框1
    
15. 局_文本 ＝ 分割文本 (局_欲分割文本, #换行符, )
    
16. 局_循次数 ＝ 取数组下标 (局_文本, )
    
17. .如果真 (局_循次数 ＜ 1)
    
18.     返回 ()
    
19. .如果真结束
    
20. .计次循环首 (局_循次数, 局_计次)
    
21.     .如果真 (局_计次 ％ 2 ＝ 1)
    
22.         加入成员 (局_返回数组, 局_文本 [局_计次])
    
23.     .如果真结束
    
24. 
    
25. .计次循环尾 ()
    
26. 局_循次数 ＝ 取数组下标 (局_返回数组, )
    
27. .如果真 (局_循次数 ＜ 1)
    
28.     返回 ()
    
29. .如果真结束
    
30. .计次循环首 (局_循次数, 局_计次)
    
31.     局_Listbox.加入项目 (局_返回数组 [局_计次], )
    
32. .计次循环尾 ()
    
33. 
    
34. 
    
35. 
    

复制代码

XX1.rar (1.18 KB, 下载次数: 3)

2013-7-23 13:53 上传

点击文件名下载附件

蓝冰点点

好多正解