精易论坛

标题: 自定义在多少行后插入自定义字符 [打印本页]
作者: 渔翁姜公    时间: 2017-4-5 21:30
标题: 自定义在多少行后插入自定义字符
群里有一个朋友需要，随手写了一下，没有用模块，新手相互学习吧！
要求是这样的：打开一个文本文件，然后每6行后面增加一个</tr><tr>字符
软件功能是这样的：打一个文本，可以选择在多少行后增加自定义的字符，然后可以把转换的内容另存为TXT
新人学习，高手路过

  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>
复制代码

文本内多少行后插入字符.rar

298.63 KB, 下载次数: 22, 下载积分: 精币 -2 枚

作者: 渔翁姜公    时间: 2017-4-10 13:57
这沙发还是留给了自己。
作者: yyaifei    时间: 2017-6-1 23:01
感谢分享,谢谢了
作者: kk9801    时间: 2017-6-28 20:49
感谢   楼主   
作者: lyw1989    时间: 2017-9-19 11:13
666666666666666666666666
作者: lm88818    时间: 2020-9-24 13:27
感谢楼主 !!!
作者: lm88818    时间: 2020-10-26 09:53
感谢楼主分享  学习一下



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4