在根目录的TXT文本,指定的行后面加一个字符@

1733394688

1.rar (216.22 KB, 下载次数: 2)

2012-12-21 22:18 上传

点击文件名下载附件   假如我在指定 ggggggggg这一行后面加上一个@   怎么写代码??要保存在文档里面来.不要放在编辑框上.

stillness

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. .局部变量 Register, 文本型, , "0"
   
7. 
   
8. 枚举文件行 (取运行目录 () ＋ “\1.txt”, Register, 0)
   
9. ' //TO:OO 将其文件内容放入 寄存器中
   
10. ' //替换那一行请使用下面自定义函数
    
11. 
    
12. .子程序 替换文件行
    
13. .参数 文件, 文本型, 数组
    
14. .参数 欲, 文本型
    
15. .参数 用, 文本型
    
16. .参数 分, 逻辑型
    
17. .局部变量 s, 整数型
    
18. 
    
19. .计次循环首 (取数组成员数 (文件), s)
    
20.     .如果真 (寻找文本 (文件 [s], 欲, , 假) ≠ -1)
    
21.         文件 [s] ＝ 子文本替换 (文件 [s], 欲, 用, , , 分)
    
22.     .如果真结束
    
23. 
    
24. .计次循环尾 ()
    
25. 
    
26. .子程序 枚举文件行
    
27. .参数 文件, 文本型
    
28. .参数 返回, 文本型, 数组
    
29. .参数 方式, 整数型
    
30. .局部变量 号, 整数型
    
31. .局部变量 temp, 文本型
    
32. 
    
33. 号 ＝ 打开文件 (文件, , )
    
34. 移到文件首 (号)
    
35. .判断循环首 (是否在文件尾 (号, ) ≠ 真)
    
36.     temp ＝ 读入一行 (号)
    
37.     .如果真 (方式 ＝ 1)
    
38.         .如果真 (删全部空 (temp) ≠ “”)
    
39.             加入成员 (返回, temp)
    
40.         .如果真结束
    
41. 
    
42.     .如果真结束
    
43.     .如果真 (方式 ＝ 0)
    
44.         加入成员 (返回, temp)
    
45.     .如果真结束
    
46. 
    
47. .判断循环尾 ()
    
48. 
    
49. 
    
50. .子程序 保存文件行, 逻辑型, 公开
    
51. .参数 文件, 文本型, 数组
    
52. .参数 地址, 文本型
    
53. .局部变量 temp, 文本型
    
54. .局部变量 s, 整数型
    
55. 
    
56. .计次循环首 (取数组成员数 (文件), s)
    
57.     .如果 (s ＝ 1)
    
58.         temp ＝ 文件 [s]
    
59.     .否则
    
60.         temp ＝ temp ＋ #换行符 ＋ 文件 [s]
    
61.     .如果结束
    
62. 
    
63. .计次循环尾 ()
    
64. 返回 (写到文件 (地址, 到字节集 (temp)))
    
65. 
    

复制代码

2.rar (1.39 KB, 下载次数: 0)

2012-12-21 23:10 上传

点击文件名下载附件

1733394688

冰点 发表于 2012-12-21 22:33
可否?
[e]
.版本 2

可以了,子文本替换,原来自动加在最后面的.简单明了.

冰点

可否?
[e]
.版本 2

.局部变量 数据, 文本型

数据 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\gg.txt”))
数据 ＝ 子文本替换 (数据, “gggg” ＋ #换行符, “gggg@” ＋ #换行符, , , 真)
写到文件 (取运行目录 () ＋ “\gg.txt”, 到字节集 (数据))
[/e]

冰点

子文本替换（） 注意查看下命令的参数说明。
建议看看核心库文本操作的教程。

lianbei

可以先放在编辑框，然后输出到文件不就好了么？？