想写一个小工具，但不知道怎么写。

mengchao

比如 123.txt 文本的内容为：
辽宁省|沈阳市|铁西区|0
辽宁省|盘锦市|大洼区|0
等等。。。


正确的格式是 有3个|符号。


有的格式他不对，我想写一个工具来一键修复它。例如把123.txt拖入到工具上或者直接扔到123.txt同目录下也行来修复错误的格式。


错误格式的例子
辽宁省|沈阳市|铁西区|0|AAA    ←❌ 多出了一个|AAA
辽宁省|盘锦市|大洼区|0|222     ←❌ 多出了一个|222
山东省|日照市|五莲县             ← ❌少了一个|0
浙江省|杭州|上城区|0             ←√正确的格式。
我的想法是正确的格式跳过，错误格式多出来的内容删掉，少格式的则补。

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
文本2	文本型		0
处理文本	文本型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本), n)
文本2 ＝ 分割文本 (文本 [n], “|”, )
处理文本 ＝ 处理文本 ＋ 文本2 [1] ＋ “|” ＋ 文本2 [2] ＋ “|” ＋ 文本2 [3] ＋ “|0” ＋ #换行符
计次循环尾 ()
调试输出 (处理文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 处理文本, 文本型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     文本2 ＝ 分割文本 (文本 [n], “|”, )<br />     处理文本 ＝ 处理文本 ＋ 文本2 [1] ＋ “|” ＋ 文本2 [2] ＋ “|” ＋ 文本2 [3] ＋ “|0” ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (处理文本)

mengchao

LEOONL 发表于 2024-8-10 21:57
[e=0].版本 2
.支持库 spec

格式多出来的删除多余的，格式少内容的则每行后面补

LEOONL

mengchao 发表于 2024-8-10 21:59
格式多出来的删除多余的，格式少内容的则每行后面补

你测试一下呀

psyche

mengchao 发表于 2024-8-10 21:59
格式多出来的删除多余的，格式少内容的则每行后面补

别质疑@LEOONL大佬的代码

不说了  ，，我去忙了

猪猪侠去哪了

精益模块下载地址 精易模块v11.1.5【模块】.zip - 蓝奏云 (lanzouw.com)

  

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

变量名	类 型	静态	数组	备 注
文件	文本型
修改后文件	文本型

文件 ＝ 字节集_到文本 (读入文件 (“C:\Users\33470\Desktop\新建文件夹\123.txt”))  ' 改成你自己的目录地址
' 字节集_到文本 这个命令需要精益模块
' 如果用这个命令之后还是乱码,你需要把123.txt文件 另存为,另存的时候改为ANSI编码保存
修改后文件 ＝ 分割补全 (文件)
写到文件 (“C:\Users\33470\Desktop\新建文件夹\123.txt”, 到字节集 (修改后文件))  ' 写到你想存的地方可以和一开始读入的不一样

子程序名	返回值类型	公开	备 注
分割补全	文本型
参数名	类 型	参考	可空	数组	备 注
文件	文本型

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
文本2	文本型		0
处理文本	文本型

文本 ＝ 分割文本 (文件, #换行符, )
计次循环首 (取数组成员数 (文本), n)
文本2 ＝ 分割文本 (文本 [n], “|”, )
处理文本 ＝ 处理文本 ＋ 文本2 [1] ＋ “|” ＋ 文本2 [2] ＋ “|” ＋ 文本2 [3] ＋ “|0” ＋ #换行符
计次循环尾 ()
返回 (处理文本)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件, 文本型<br /> .局部变量 修改后文件, 文本型<br /> <br /> 文件 ＝ 字节集_到文本 (读入文件 (“C:\Users\33470\Desktop\新建文件夹\123.txt”))  ' 改成你自己的目录地址<br /> ' 字节集_到文本 这个命令需要精益模块<br /> ' 如果用这个命令之后还是乱码,你需要把123.txt文件 另存为,另存的时候改为ANSI编码保存<br /> 修改后文件 ＝ 分割补全 (文件)<br /> 写到文件 (“C:\Users\33470\Desktop\新建文件夹\123.txt”, 到字节集 (修改后文件))  ' 写到你想存的地方可以和一开始读入的不一样<br /> <br /> .子程序 分割补全, 文本型<br /> .参数 文件, 文本型<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 处理文本, 文本型<br /> <br /> 文本 ＝ 分割文本 (文件, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     文本2 ＝ 分割文本 (文本 [n], “|”, )<br />     处理文本 ＝ 处理文本 ＋ 文本2 [1] ＋ “|” ＋ 文本2 [2] ＋ “|” ＋ 文本2 [3] ＋ “|0” ＋ #换行符<br /> .计次循环尾 ()<br /> 返回 (处理文本)

企鹅号525150138

  

变量名	类 型	静态	数组	备 注
a	正则表达式类

a.创建 (“^([\u4e00-\u9fa5]+\|[\u4e00-\u9fa5]+\|[\u4e00-\u9fa5]+).*?$”, #常量1 )
调试输出 (a.替换 (“$1|0”))

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 正则表达式类<br /> <br /> a.创建 (“^([\u4e00-\u9fa5]+\|[\u4e00-\u9fa5]+\|[\u4e00-\u9fa5]+).*?$”, #常量1)<br /> 调试输出 (a.替换 (“$1|0”))

mengchao

LEOONL 发表于 2024-8-10 21:57
[e=0].版本 2
.支持库 spec

感谢大佬，确实解决了我的问题，如果检测他内容都是正确的提示，信息框无需修复。该怎么做检测呢？

LEOONL

mengchao 发表于 2024-8-11 11:46
感谢大佬，确实解决了我的问题，如果检测他内容都是正确的提示，信息框无需修复。该怎么做检测呢？ ...

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
文本2	文本型		0
处理文本	文本型
修改	逻辑型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本), n)
文本2 ＝ 分割文本 (文本 [n], “|”, )
处理文本 ＝ 处理文本 ＋ 文本2 [1] ＋ “|” ＋ 文本2 [2] ＋ “|” ＋ 文本2 [3] ＋ “|0” ＋ #换行符
如果真 (取数组成员数 (文本2) ≠ 4)
修改 ＝ 真

计次循环尾 ()
调试输出 (处理文本)
如果 (修改 ＝ 真)
调试输出 (“修改过”)
调试输出 (“无需修改”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 处理文本, 文本型<br /> .局部变量 修改, 逻辑型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     文本2 ＝ 分割文本 (文本 [n], “|”, )<br />     处理文本 ＝ 处理文本 ＋ 文本2 [1] ＋ “|” ＋ 文本2 [2] ＋ “|” ＋ 文本2 [3] ＋ “|0” ＋ #换行符<br />     .如果真 (取数组成员数 (文本2) ≠ 4)<br />         修改 ＝ 真<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (处理文本)<br /> .如果 (修改 ＝ 真)<br />     调试输出 (“修改过”)<br /> .否则<br />     调试输出 (“无需修改”)<br /> .如果结束