老师们 帮忙写一个格式样子转换的例子

zhaonaichao

原文件有两种格式的，内容其实都是一样的，请将原有文件格式， 转换成另外一种格式的txt文件。

我将原有文件上传，供老师们参考  谢谢。

真冬

zhaonaichao 发表于 2021-1-3 20:49
我应该改哪几句代码？  可以得到右侧的格式呢？
改分割1 和分割2 ？？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 信息框 (格式样子转换 (#常量1), 0, , )

子程序名	返回值类型	公开	备 注
格式样子转换	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式
结果	文本型
表达式1	文本型		0
表达式2	文本型		0
i1	整数型

结果 ＝ 原文
表达式1 ＝ 分割文本 (“(\d{4})-(\d\d)-(\d\d),(\d{6})\x09(?:((?=[-\d.]*)[^\x09\r\n]*)\x09){6},日期,\|\d{16}\|0\s*|(?<=\|)0(?=[-\d.]+$),^6,^(\d\d)”, , )
表达式2 ＝ 分割文本 (“$1$2$3,$1\|日期\|0$2\r\n,b,,1|6,0|$1”, , )
计次循环首 (取数组成员数 (表达式1), i1)
正则.创建 (表达式1 [i1], )
判断 (i1 ＝ 1)
表达式2 [3] ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 1, 真)
结果 ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 2, 真)

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
引入文本	文本型

引入文本 ＝ 到文本 (读入文件 (“C:\Users\Admin\Desktop\20201229.txt”))
写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集 (格式样子转换 (引入文本)))

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 信息框 (格式样子转换 (#常量1), 0, , )<br /> <br /> .子程序 格式样子转换, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 结果, 文本型<br /> .局部变量 表达式1, 文本型, , "0"<br /> .局部变量 表达式2, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> <br /> 结果 ＝ 原文<br /> 表达式1 ＝ 分割文本 (“(\d{4})-(\d\d)-(\d\d),(\d{6})\x09(?:((?=[-\d.]*)[^\x09\r\n]*)\x09){6},日期,\|\d{16}\|0\s*|(?<=\|)0(?=[-\d.]+$),^6,^(\d\d)”, , )<br /> 表达式2 ＝ 分割文本 (“$1$2$3,$1\|日期\|0$2\r\n,b,,1|6,0|$1”, , )<br /> .计次循环首 (取数组成员数 (表达式1), i1)<br />     正则.创建 (表达式1 [i1], )<br />     .判断开始 (i1 ＝ 1)<br />         表达式2 [3] ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 1, 真)<br />     .默认<br />         结果 ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 2, 真)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 引入文本, 文本型<br /> <br /> 引入文本 ＝ 到文本 (读入文件 (“C:\Users\Admin\Desktop\20201229.txt”))<br /> 写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集 (格式样子转换 (引入文本)))

chendipang

这不是很简单的东西嘛，自己学点基础的东西分分钟完事

真冬

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

信息框 (格式样子转换 ( #常量1 ), 0, , )

子程序名	返回值类型	公开	备 注
格式样子转换	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式
结果	文本型
表达式1	文本型		0
表达式2	文本型		0
i1	整数型

结果 ＝ 原文
表达式1 ＝ 分割文本 (“(\d{4})-(\d\d)-(\d\d),(\d{6})\x09(?:((?=[-\d.]*)[^\x09\r\n]*)\x09)+,日期,\|\d{16}\|0\s*|(?<=\|)0(?=[-\d.]+$),^6,^(\d\d)”, , )
表达式2 ＝ 分割文本 (“$1$2$3,$1\|日期\|0$2\r\n,b,,1|6,0|$1”, , )
计次循环首 (取数组成员数 (表达式1), i1)
正则.创建 (表达式1 [i1], )
判断 (i1 ＝ 1)
表达式2 [3] ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 1, 真)
结果 ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 2, 真)

计次循环尾 ()
返回 (结果)

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 信息框 (格式样子转换 (#常量1), 0, , )<br /> <br /> .子程序 格式样子转换, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 结果, 文本型<br /> .局部变量 表达式1, 文本型, , "0"<br /> .局部变量 表达式2, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> <br /> 结果 ＝ 原文<br /> 表达式1 ＝ 分割文本 (“(\d{4})-(\d\d)-(\d\d),(\d{6})\x09(?:((?=[-\d.]*)[^\x09\r\n]*)\x09)+,日期,\|\d{16}\|0\s*|(?<=\|)0(?=[-\d.]+$),^6,^(\d\d)”, , )<br /> 表达式2 ＝ 分割文本 (“$1$2$3,$1\|日期\|0$2\r\n,b,,1|6,0|$1”, , )<br /> .计次循环首 (取数组成员数 (表达式1), i1)<br />     正则.创建 (表达式1 [i1], )<br />     .判断开始 (i1 ＝ 1)<br />         表达式2 [3] ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 1, 真)<br />     .默认<br />         结果 ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 2, 真)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (结果)

zhaonaichao

真冬 发表于 2020-12-29 19:20
[e=0]
.版本 2
.支持库 RegEx

感谢真冬 ，我想把文本内容 从常量改成 盘符里的文件，我哪里修改错了， 一点就卡住了。


引入文本 ＝ 到文本 (读入文件 (“C:\Users\Admin\Desktop\20201229.txt”))
表达式1 ＝ 分割文本 (引入文本, “(\d{4})-(\d\d)-(\d\d),(\d{6})\x09(?:((?=[-\d.]*)[^\x09\r\n]*)\x09)+,日期,\|\d{16}\|0\s*|(?<=\|)0(?=[-\d.]+$),^6,^(\d\d)”, )
表达式2 ＝ 分割文本 (引入文本, “$1$2$3,$1\|日期\|0$2\r\n,b,,1|6,0|$1”, )
.计次循环首 (取数组成员数 (表达式1), i1)
    正则.创建 (表达式1 [i1], )
    .判断开始 (i1 ＝ 1)
        表达式2 [3] ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 1, 真)
    .默认
        结果 ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 2, 真)
    .判断结束

.计次循环尾 ()
写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集 (结果))

zhaonaichao

真冬 发表于 2020-12-29 19:20
[e=0]
.版本 2
.支持库 RegEx

哈哈  将常量改成读取文档，似乎已经搞懂了， 我如何将它改成 点击按钮 然后执行呢？  
不要弹出这个信息框了，点一下按钮，直接保存txt即可。

真冬

zhaonaichao 发表于 2020-12-29 20:43
哈哈  将常量改成读取文档，似乎已经搞懂了， 我如何将它改成 点击按钮 然后执行呢？  
不要弹出这个信息 ...

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
引入文本	文本型

引入文本 ＝ 到文本 (读入文件 (“C:\Users\Admin\Desktop\20201229.txt”))
写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集（格式样子转换 (引入文本)）

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 引入文本, 文本型<br /> <br /> 引入文本 ＝ 到文本 (读入文件 (“C:\Users\Admin\Desktop\20201229.txt”))<br /> 写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集（格式样子转换 (引入文本)）

补充内容 (2020-12-29 21:01):
写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集 (格式样子转换 (引入文本)))

zhaonaichao

真冬 发表于 2020-12-29 21:00
[e=0]
.版本 2

真冬早！！！
如何不让它弹出消息框呢？  把这句去掉就报错了，不去掉就弹出信息框！！

只想每次打开，点击一下按钮  就转换。不要信息提示

真冬

zhaonaichao 发表于 2020-12-30 09:17
真冬早！！！
如何不让它弹出消息框呢？  把这句去掉就报错了，不去掉就弹出信息框！！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口			'

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 信息框 (格式样子转换 (#常量1), 0, , )

子程序名	返回值类型	公开	备 注
格式样子转换	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式
结果	文本型
表达式1	文本型		0
表达式2	文本型		0
i1	整数型

结果 ＝ 原文
表达式1 ＝ 分割文本 (“(\d{4})-(\d\d)-(\d\d),(\d{6})\x09(?:((?=[-\d.]*)[^\x09\r\n]*)\x09)+,日期,\|\d{16}\|0\s*|(?<=\|)0(?=[-\d.]+$),^6,^(\d\d)”, , )
表达式2 ＝ 分割文本 (“$1$2$3,$1\|日期\|0$2\r\n,b,,1|6,0|$1”, , )
计次循环首 (取数组成员数 (表达式1), i1)
正则.创建 (表达式1 [i1], )
判断 (i1 ＝ 1)
表达式2 [3] ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 1, 真)
结果 ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 2, 真)

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
引入文本	文本型

引入文本 ＝ 到文本 (读入文件 (“C:\Users\Admin\Desktop\20201229.txt”))
写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集（格式样子转换 (引入文本)）

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口, , , '<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 信息框 (格式样子转换 (#常量1), 0, , )<br /> <br /> .子程序 格式样子转换, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 结果, 文本型<br /> .局部变量 表达式1, 文本型, , "0"<br /> .局部变量 表达式2, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> <br /> 结果 ＝ 原文<br /> 表达式1 ＝ 分割文本 (“(\d{4})-(\d\d)-(\d\d),(\d{6})\x09(?:((?=[-\d.]*)[^\x09\r\n]*)\x09)+,日期,\|\d{16}\|0\s*|(?<=\|)0(?=[-\d.]+$),^6,^(\d\d)”, , )<br /> 表达式2 ＝ 分割文本 (“$1$2$3,$1\|日期\|0$2\r\n,b,,1|6,0|$1”, , )<br /> .计次循环首 (取数组成员数 (表达式1), i1)<br />     正则.创建 (表达式1 [i1], )<br />     .判断开始 (i1 ＝ 1)<br />         表达式2 [3] ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 1, 真)<br />     .默认<br />         结果 ＝ 正则.替换 (结果, 表达式2 [i1], 1, , i1 ≠ 2, 真)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 引入文本, 文本型<br /> <br /> 引入文本 ＝ 到文本 (读入文件 (“C:\Users\Admin\Desktop\20201229.txt”))<br /> 写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集（格式样子转换 (引入文本)）

补充内容 (2020-12-30 10:06):
写到文件 (“C:\Users\Admin\Desktop\111.txt”, 到字节集 (格式样子转换 (引入文本)))

zhaonaichao

真冬 发表于 2020-12-30 09:58
[e=1]
.版本 2

感谢真冬老师！厉害~

最后再请教老师一个高级的小问题， 保存到电脑的文件名如下，比如今天是30号就下面的那种，明天是31号，导出的txt 文件名就自动是20201231  

写到文件 (“C:\Users\Admin\Desktop\20201230.txt”, 到字节集（格式样子转换 (引入文本)））



补充内容 (2020-12-30 11:55):
是不是 在这句话的前面 需要加上一个取当前日期的代码？