TXT文本处理

wxhscc

处理前
123456
2019021110110110110          你好啊        2109.00        2019-02-14 14:49:01

234567
2019021110110110110          你好啊        2109.00        2019-02-14 14:49:01

AA234SSS
2019021110110110110          你好啊        2109.00        2019-02-14 14:49:01


（删除掉2019开头至15个数字 加后面两个空格，倒序复制以下格式  ）
软件界面就是一个大的编辑框，一个按钮，粘贴文本进入，点击按钮1复制出以下结果


处理后
AA234SSS        你好啊        2109.00        2019-02-14 14:49:01
234567        你好啊        2109.00        2019-02-14 14:49:01
123456        你好啊        2109.00        2019-02-14 14:49:01

补充内容 (2019-2-14 18:53):
处理前

123456
2019021110110110110          你好啊        2109.00        2019-02-14 14:49:01
234567
2019021110110110110          你好啊        2109.00        2019-02-14 14:49:01
AA234SSS
2019021110110110110          你好啊        2109.00        2019-02-14 14:4...

sunsir

wxhscc 发表于 2019-2-14 19:44
留个V ：意思意思
就是这样，可以把结果倒序一下吗，就是粘贴的内容处理出来了，倒序一下，第一行变成最 ...

呼~ 这样吗？
例子.rar (353.6 KB, 下载次数: 7)

2019-2-14 20:48 上传

点击文件名下载附件

大司命

如此，这般~

wxhscc

大司命 发表于 2019-2-14 19:15
如此，这般~

编译一下exe，我这里没电脑，拜托

sunsir

大概就是这个意思吧？


111.e (745.09 KB, 下载次数: 6)

2019-2-14 19:22 上传

点击文件名下载附件

wxhscc

sunsir 发表于 2019-2-14 19:23
大概就是这个意思吧？

可以帮忙编译一下成品吗，我在外地没电脑，拜托

大司命

这~

sunsir

wxhscc 发表于 2019-2-14 19:24
可以帮忙编译一下成品吗，我在外地没电脑，拜托

好了~
例子.rar (353.4 KB, 下载次数: 9)

2019-2-14 19:29 上传

点击文件名下载附件

wxhscc

sunsir 发表于 2019-2-14 19:29
好了~

留个V ：意思意思
就是这样，可以把结果倒序一下吗，就是粘贴的内容处理出来了，倒序一下，第一行变成最后一行，整体内容倒序一下
或者排一下时间近的往下排

npzs

  

子程序名	返回值类型	公开	备 注
处理
参数名	类 型	参考	可空	数组	备 注
文件	文本型

变量名	类 型	静态	数组	备 注
h1
h2
s	文本型

h1 ＝ 打开文件 (文件, #读入, #禁止写 )
如果真 (h1 ＝ 0)
返回 ()
h2 ＝ 打开内存文件 ()
移到文件首 (h1)
判断循环首 (是否在文件尾 (h1, ) ＝ 假)
s ＝ 读入一行 (h1)
如果真 (s ≠ “”)
如果 (取文本左边 (s, 4) ＝ “2019” 且 取文本中间 (s, 20, 2) ＝ “  ”)
写出文本 (h2, 取文本右边 (s, 取文本长度 (s) － 21), #换行符, #换行符 )
写出文本 (h2, s)


判断循环尾 ()
移到文件首 (h2)
s ＝ 读入文本 (h2, 取文件长度 (h2) － 4)
关闭文件 (h2)
关闭文件 (h1)
调试输出 (s)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 处理<br /> .参数 文件, 文本型<br /> .局部变量 h1<br /> .局部变量 h2<br /> .局部变量 s, 文本型<br /> <br /> h1 ＝ 打开文件 (文件, #读入, #禁止写)<br /> .如果真 (h1 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> h2 ＝ 打开内存文件 ()<br /> 移到文件首 (h1)<br /> .判断循环首 (是否在文件尾 (h1, ) ＝ 假)<br />     s ＝ 读入一行 (h1)<br />     .如果真 (s ≠ “”)<br />         .如果 (取文本左边 (s, 4) ＝ “2019” 且 取文本中间 (s, 20, 2) ＝ “  ”)<br />             写出文本 (h2, 取文本右边 (s, 取文本长度 (s) － 21), #换行符, #换行符)<br />         .否则<br />             写出文本 (h2, s)<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 移到文件首 (h2)<br /> s ＝ 读入文本 (h2, 取文件长度 (h2) － 4)<br /> 关闭文件 (h2)<br /> 关闭文件 (h1)<br /> 调试输出 (s)