编辑框内容 满足条件 写入文本

leshuang001

如图中内容 把内容分类了
内容 是
龙凤纹花觚-80
龙穿纹梅瓶-80
龙纹蟋蟀罐-80
龙凤纹盒-80
龙纹寿盖罐-80
松竹梅纹罐-80
访友图梅瓶-160
花卉纹执壶-160
出戟花觚-160
缠枝牡丹瓶-160
人物纹套盒-160
四方委角瓶-480
锦文双耳壶-480
莲纹花浇-480
四方龙纹罐-480
梵文法轮罐-480
庆寿纹罐-340
缠枝花棱瓶-340
婴戏文碗-340
莲纹葫芦瓶-340
道士图香炉-340
如意耳扁壶-580
白龙纹扁壶-580
龙纹提梁壶-580
兔纹花口盘-580
罗汉图炉-580


分类 以80-160-480-340-580 来创建文本名称（80.txt  把80条件加入到 80文本里面  龙凤纹花觚-80）   满足80写入到文本例
最好批量加入 与创建名称
请求大佬指点迷津 谢谢

CMM246

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
I	整数型
项	文本型		0
是否存在	逻辑型
路径	文本型
文件号	整数型
文件内容	文本型

文本 ＝ 分割文本 ( #常量2, #换行符, )
计次循环首 (取数组成员数 (文本), I)
项 ＝ 分割文本 (文本 [I], “-”, )
如果真 (取数组成员数 (项) ≠ 0)
路径 ＝ 取运行目录 () ＋ “/” ＋ 项 [2] ＋ “.txt”
是否存在 ＝ 文件是否存在 (路径)
如果真 (是否存在 ＝ 假)
写到文件 (路径, 到字节集 (“”))
文件内容 ＝ UTF8到文本 (读入文件 (路径))
判断 (文件内容 ＝ “”)
写到文件 (路径, 文本到UTF8 (文本 [I]))
写到文件 (路径, 文本到UTF8 (文件内容 ＋ #换行符 ＋ 文本 [I]))


计次循环尾 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 I, 整数型<br /> .局部变量 项, 文本型, , "0"<br /> .局部变量 是否存在, 逻辑型<br /> .局部变量 路径, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 文件内容, 文本型<br /> <br /> 文本 ＝ 分割文本 (#常量2, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), I)<br />     项 ＝ 分割文本 (文本 [I], “-”, )<br />     .如果真 (取数组成员数 (项) ≠ 0)<br />         路径 ＝ 取运行目录 () ＋ “/” ＋ 项 [2] ＋ “.txt”<br />         是否存在 ＝ 文件是否存在 (路径)<br />         .如果真 (是否存在 ＝ 假)<br />             写到文件 (路径, 到字节集 (“”))<br /> <br />         .如果真结束<br />         文件内容 ＝ UTF8到文本 (读入文件 (路径))<br />         .判断开始 (文件内容 ＝ “”)<br />             写到文件 (路径, 文本到UTF8 (文本 [I]))<br />         .默认<br />             写到文件 (路径, 文本到UTF8 (文件内容 ＋ #换行符 ＋ 文本 [I]))<br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

leshuang001

CMM246 发表于 2025-1-18 15:57
[e=1].版本 2

.子程序 __启动窗口_创建完毕

谢谢你 超级感谢