自定义在多少行后插入自定义字符

渔翁姜公

群里有一个朋友需要，随手写了一下，没有用模块，新手相互学习吧！
要求是这样的：打开一个文本文件，然后每6行后面增加一个</tr><tr>字符
软件功能是这样的：打一个文本，可以选择在多少行后增加自定义的字符，然后可以把转换的内容另存为TXT
新人学习，高手路过

1. 
   
2. <P> .版本 2
   
3. .支持库 spec
   
4. .支持库 xplib
   
5. .支持库 EThread</P>
   
6. <P>.程序集 窗口程序集_启动窗口</P>
   
7. <P>.子程序 开始转换
   
8. .局部变量 打开的文件号, 整数型, , , 要循环的次数
   
9. .局部变量 计次, 整数型, , , 记录循环的变量
   
10. .局部变量 临时文件内容, 文本型, , , 临时记录文本内容</P>
    
11. <P>' 调试输出 (“打开文件名” ＋ 打开文件名)
    
12. 按钮_转换格式.禁止 ＝ 真
    
13. 按钮_转换格式.标题 ＝ “转换中”
    
14. 按钮_导出文件.禁止 ＝ 真
    
15. 编辑框_结果.内容 ＝ “”
    
16. 临时文件内容 ＝ “”
    
17. 计次 ＝ 0
    
18. .如果 (打开文件名 ＝ “”)
    
19.     信息框 (“请先点击打开文件按钮选择要操作的文本文件！”, 0, “失败提示”, )
    
20. .否则
    
21.     .如果 (插入的字符内容 ＝ “”)
    
22.         插入的字符内容 ＝ “</tr><tr>”
    
23.     .否则
    
24.         ' 调试输出 (“插入的字符内容” ＋ 插入的字符内容)
    
25.         ' 调试输出 (“多少行后” ＋ 多少行后)
    
26.     .如果结束
    
27.     ' 先打开文本文件
    
28.     打开的文件号 ＝ 打开文件 (打开文件名, 1, )
    
29.     .如果 (打开的文件号 ≤ 0)
    
30.         信息框 (“文件无法读入请重新更换!”, 0, “打开失败”, )
    
31.     .否则
    
32.         ' 调试输出 (“打开的文件号:” ＋ 到文本 (打开的文件号))
    
33.         调试输出 (到文本 (取现行时间 ()))
    
34.         .循环判断首 ()
    
35.             .如果真 (计次 ％ 到整数 (多少行后) ＝ 0 且 计次 ＞ 0)
    
36.                 临时文件内容 ＝ 临时文件内容 ＋ 插入的字符内容 ＋ #换行符
    
37.             .如果真结束
    
38.             临时文件内容 ＝ 临时文件内容 ＋ 读入一行 (打开的文件号) ＋ #换行符
    
39.             计次 ＝ 计次 ＋ 1
    
40.         .循环判断尾 (取反 (是否在文件尾 (打开的文件号, )))
    
41.         调试输出 (到文本 (取现行时间 ()))
    
42.         编辑框_结果.内容 ＝ 临时文件内容
    
43.         信息框 (“所有文本已转换完成!”, 0, “恭喜您”, )
    
44.         关闭文件 (打开的文件号)
    
45.     .如果结束</P>
    
46. <P>.如果结束
    
47. 按钮_转换格式.禁止 ＝ 假
    
48. 按钮_转换格式.标题 ＝ “转换”
    
49. 按钮_导出文件.禁止 ＝ 假</P>
    
50. <P>.子程序 _按钮_退出_被单击</P>
    
51. <P>销毁 ()</P>
    
52. <P>.子程序 __启动窗口_创建完毕
    
53. .局部变量 临时变量, 整数型, , , 记录循环的次数</P>
    
54. <P>' 初始化程序
    
55. ' 先清空所有编辑框
    
56. XP风格 (2)
    
57. .计次循环首 (100, 临时变量)
    
58.     组合框_行数.加入项目 (到文本 (临时变量), 临时变量)
    
59. .计次循环尾 ()
    
60. 组合框_行数.现行选中项 ＝ 5
    
61. 多少行后 ＝ 组合框_行数.取项目文本 (组合框_行数.现行选中项)
    
62. 编辑框_加入的格式.内容 ＝ “</tr><tr>”
    
63. 插入的字符内容 ＝ 编辑框_加入的格式.内容</P>
    
64. <P>.子程序 _按钮_打开文件_被单击</P>
    
65. <P>通用对话框_打开文件.打开 ()
    
66. 编辑框_文件地址.内容 ＝ 通用对话框_打开文件.文件名
    
67. .如果真 (编辑框_文件地址.内容 ≠ “”)
    
68.     打开文件名 ＝ 编辑框_文件地址.内容
    
69. .如果真结束</P>
    
70. <P>
    
71. .子程序 _编辑框_加入的格式_内容被改变</P>
    
72. <P>插入的字符内容 ＝ 编辑框_加入的格式.内容</P>
    
73. <P>.子程序 _组合框_行数_列表项被选择</P>
    
74. <P>多少行后 ＝ 组合框_行数.取项目文本 (组合框_行数.现行选中项)</P>
    
75. <P>.子程序 _按钮_转换格式_被单击</P>
    
76. <P>启动线程 (&开始转换, , )</P>
    
77. <P>
    
78. .子程序 _按钮_导出文件_被单击
    
79. .局部变量 要保存文件的文件号, 整数型, , , 需要保存的文件名的文件号
    
80. .局部变量 是否成功, 逻辑型, , , 是否写入成功</P>
    
81. <P>按钮_导出文件.禁止 ＝ 真
    
82. 通用对话框_保存文件.打开 ()
    
83. 导出的文件名 ＝ 通用对话框_保存文件.文件名
    
84. 调试输出 (“导出的文件名:” ＋ 导出的文件名)
    
85. .如果 (导出的文件名 ≠ “”)
    
86.     是否成功 ＝ 写到文件 (导出的文件名, 到字节集 (编辑框_结果.内容))
    
87.     .如果 (是否成功)
    
88.         信息框 (“恭喜您文件导出成功!”, 0, “保存成功”, )
    
89.     .否则
    
90.         信息框 (“文件无法保存请重试!”, 0, “保存失败”, )
    
91.     .如果结束
    
92.     ' 要保存文件的文件号 ＝ 打开文件 (导出的文件名, 4, )
    
93.     .' 如果 (要保存文件的文件号 ≤ 0)
    
94.         ' 信息框 (“文件无法保存请重试!”, 0, “保存失败”, )
    
95.     .否则</P>
    
96. <P>
    
97.     .如果结束</P>
    
98. <P>.否则
    
99.     信息框 (“文件无法保存请重试!”, 0, “保存失败”, )
    
100. .如果结束
     
101. 按钮_导出文件.禁止 ＝ 假
     
102. </P>

复制代码

lm88818

感谢楼主分享  学习一下

lm88818

感谢楼主 !!!

lyw1989

666666666666666666666666

kk9801

感谢   楼主   

yyaifei

感谢分享,谢谢了

渔翁姜公

这沙发还是留给了自己。