如何自动读取指定的txt文本，然后在按照一定格式生成一个文本

sunday6422

指定了一个文本 1.txt，里面有多行数据，如何把它一行一行的读取出来，在按照一定格式排版，生成如2.txt这样的呢
图

小马过河

[e].版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 原文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.局部变量 计次

原文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))

文本数组 ＝ 分割文本 (原文本, #换行符, )
.计次循环首 (取数组成员数 (文本数组), 计次)
    文本1 ＝ 取文本右边 (文本数组 [计次], 3)
    文本2 ＝ 文本2 ＋ 文本1 ＋ #换行符
.计次循环尾 ()

文本2 ＝ 子文本替换 (文本2, “\”, #换行符, 1, , 真)
写到文件 (“2.txe”, 到字节集 (文本2))

[/e]



看看吧

sunday6422

谢谢楼上的大侠，我去试试先

微Fan

看看这个
[e].版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 原文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.局部变量 计次

原文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\测试1.txt”))

文本数组 ＝ 分割文本 (原文本, #换行符, )
.计次循环首 (取数组成员数 (文本数组), 计次)
    文本1 ＝ 取文本右边 (文本数组 [计次], 3)
    文本2 ＝ 文本2 ＋ 文本1 ＋ #换行符
.计次循环尾 ()

文本2 ＝ 子文本替换 (文本2, “\”, #换行符, 1, , 真)
写到文件 (“测试2.txt”, 到字节集 (文本2))[/e]

微Fan

1. ].版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. .局部变量 原文本, 文本型
   
7. .局部变量 文本数组, 文本型, , "0"
   
8. .局部变量 文本1, 文本型
   
9. .局部变量 文本2, 文本型
   
10. .局部变量 计次
    
11. 
    
12. 原文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\测试1.txt”))
    
13. 
    
14. 文本数组 ＝ 分割文本 (原文本, #换行符, )
    
15. .计次循环首 (取数组成员数 (文本数组), 计次)
    
16.     文本1 ＝ 取文本右边 (文本数组 [计次], 3)
    
17.     文本2 ＝ 文本2 ＋ 文本1 ＋ #换行符
    
18. .计次循环尾 ()
    
19. 
    
20. 文本2 ＝ 子文本替换 (文本2, “\”, #换行符, 1, , 真)
    
21. 写到文件 (“测试2.txt”, 到字节集 (文本2))

复制代码

sunday6422

不行啊，大侠，提示我这个
错误(19): 句点（对象成员引用符）处于错误位置。

sunday6422

wei870342053 发表于 2011-8-28 10:36

正在编译现行程序
正在检查重复名称...
正在预处理现行程序
错误(14): 存在无效的字符、名称、运算符或表达式。


编译就是这个提示，额

sunday6422

wei870342053 发表于 2011-8-28 10:36

大侠qq多少啊，我想加你咨询下

qq381517176

学到这里都算是学了很久了吧.我还要努力.

airpppp

楼上诸位,知道替换,咋就忘了这个呢?
子文本替换(文本1,"abcde ","")