文本字符数量统计修改

shiqing123

如下文本文件（大概1000行，只列举3行内容）： army = 1，role_张三，role_李四1，role_李四12，role_李四23，role_李四64，role_李5，role_李四56，role_李四7，role_李四28，role_李434 army = 2，role_张三，role_李四1，role_李四12，role_李四23，role_李四64，role_李5，role_李四56，role_李四7，role_李四28，role_李434，role_李四73，role_李四27 army = 5，role_张三，role_李四1，role_李四12，role_李四23，role_李四64，role_李5，role_李四56，role_李四7，role_李四28，role_李434，role_李四73，role_李四73，role_李四73 要求：通过查找army = 编号 ，统计出该编号“role_”的数量，并可以修改（添加或删除“role_”）、保存到文本

cunanhai

8.11.e (963.74 KB, 下载次数: 1)

2025-8-11 02:46 上传

点击文件名下载附件

sunjie0632

格式如果改成JSON 会不会方便很多,,

psyche

格式如果改成JSON 会不会方便很多,,

shiqing123

psyche 发表于 2025-8-10 13:37
格式如果改成JSON 会不会方便很多,,

不会JSON求帮忙写一个程序

E小菜鸟

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件内容	文本型	0
当前文件路径	文本型

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

标题 ＝ "角色管理系统"
编辑框_文件路径.内容 ＝ ""
超级列表框1.可视 ＝ 假
按钮_保存.禁止 ＝ 真

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

变量名	类 型	静态	数组	备 注
文件号	整数型
临时文本	文本型

通用对话框1.类型 ＝ 0
如果 (通用对话框1.打开 ())
当前文件路径 ＝ 通用对话框1.文件名
编辑框_文件路径.内容 ＝ 当前文件路径

' 读取文件内容
文件号 ＝ 打开文件 (当前文件路径, , )
如果真 (文件号 ＝ 0)
信息框 ("打开文件失败！", 0, , )
返回 ()

重定义数组 (文件内容, 假, 0)
判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
临时文本 ＝ 读入一行 (文件号)
加入成员 (文件内容, 临时文本)
判断循环尾 ()
关闭文件 (文件号)

' 显示文件内容
编辑框_内容.内容 ＝ ""
计次循环首 (取数组成员数 (文件内容), )
编辑框_内容.加入文本 (文件内容 [取循环索引 ()] ＋ #换行符 )
计次循环尾 ()

按钮_保存.禁止 ＝ 假
信息框 ("未选择文件！", 0, , )

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

变量名	类 型	静态	数组	备 注
查找编号	文本型
行内容	文本型
角色数量	整数型
i	整数型

查找编号 ＝ 编辑框_编号.内容
如果真 (查找编号 ＝ "")
信息框 ("请输入要查找的编号！", 0, , )
返回 ()

超级列表框1.可视 ＝ 真
超级列表框1.全部删除 ()
超级列表框1.插入列 ("行号", 50, , , , )
超级列表框1.插入列 ("内容", 300, , , , )
超级列表框1.插入列 ("角色数量", 80, , , , )
角色数量 ＝ 0
计次循环首 (取数组成员数 (文件内容), i)
行内容 ＝ 文件内容 [i]
如果真 (寻找文本 (行内容, "army = " ＋ 查找编号, , 假) ≠ -1)
' 统计角色数量
角色数量 ＝ 统计角色数量 (行内容)

' 添加到超级列表框
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 到文本 (i))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 行内容)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 到文本 (角色数量))

计次循环尾 ()
如果 (超级列表框1.取表项数 () ＞ 0)
标签_结果.标题 ＝ "找到 " ＋ 到文本 (超级列表框1.取表项数 ()) ＋ " 条匹配记录，共 " ＋ 到文本 (角色数量) ＋ " 个角色"
标签_结果.标题 ＝ "未找到编号为 " ＋ 查找编号 ＋ " 的记录"

子程序名	返回值类型	公开	备 注
统计角色数量	整数型
参数名	类 型	参考	可空	数组	备 注
行内容	文本型

变量名	类 型	静态	数组	备 注
数量	整数型
位置	整数型

数量 ＝ 0
位置 ＝ 寻找文本 (行内容, "role_", , 假)
判断循环首 (位置 ≠ -1)
数量 ＝ 数量 ＋ 1
位置 ＝ 寻找文本 (行内容, "role_", 位置 ＋ 1, 假)
判断循环尾 ()
返回 (数量)

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

变量名	类 型	静态	数组	备 注
行号	整数型
操作类型	整数型
角色名	文本型
当前行内容	文本型

如果 (超级列表框1.取表项数 () ＝ 0)
信息框 ("请先查找要修改的记录！", 0, , )
返回 ()
行号 ＝ 到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))

操作类型 ＝ 选择框_添加.选中
角色名 ＝ 编辑框_角色名.内容
如果真 (角色名 ＝ "")
信息框 ("请输入要添加/删除的角色名！", 0, , )
返回 ()

当前行内容 ＝ 文件内容 [行号]
如果 (操作类型 ＝ 真)  ' 添加
' 检查是否已存在
如果 (寻找文本 (当前行内容, "，" ＋ 角色名, , 假) ≠ -1 或 寻找文本 (当前行内容, 角色名 ＋ "，", , 假) ≠ -1)
信息框 ("该角色已存在！", 0, , )
文件内容 [行号] ＝ 当前行内容 ＋ "，" ＋ 角色名
信息框 ("角色添加成功！", 0, , )
.否则  ' 删除
如果 (寻找文本 (当前行内容, "，" ＋ 角色名, , 假) ≠ -1)
文件内容 [行号] ＝ 子文本替换 (当前行内容, "，" ＋ 角色名, "", , , 真)
信息框 ("角色删除成功！", 0, , )
信息框 ("未找到该角色！", 0, , )


' 更新显示
编辑框_内容.内容 ＝ ""
计次循环首 (取数组成员数 (文件内容), )
编辑框_内容.加入文本 (文件内容 [取循环索引 ()] ＋ #换行符 )
计次循环尾 ()
' 重新查找以更新统计
_按钮_查找_被单击 ()

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

变量名	类 型	静态	数组	备 注
文件号	整数型
i	整数型

文件号 ＝ 打开文件 (当前文件路径, #改写, )
如果真 (文件号 ＝ 0)
信息框 ("打开文件失败！", 0, , )
返回 ()

计次循环首 (取数组成员数 (文件内容), i)
写出文本 (文件号, 文件内容 [i] ＋ #换行符 )
计次循环尾 ()
关闭文件 (文件号)
信息框 ("文件保存成功！", 0, , )

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件内容, 文本型, , "0"<br /> .程序集变量 当前文件路径, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> 标题 ＝ "角色管理系统"<br /> 编辑框_文件路径.内容 ＝ ""<br /> 超级列表框1.可视 ＝ 假<br /> 按钮_保存.禁止 ＝ 真<br /> <br /> .子程序 _按钮_打开文件_被单击<br /> .局部变量 文件号, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> 通用对话框1.类型 ＝ 0<br /> .如果 (通用对话框1.打开 ())<br />     当前文件路径 ＝ 通用对话框1.文件名<br />     编辑框_文件路径.内容 ＝ 当前文件路径<br />     <br />     ' 读取文件内容<br />     文件号 ＝ 打开文件 (当前文件路径, , )<br />     .如果真 (文件号 ＝ 0)<br />         信息框 ("打开文件失败！", 0, , )<br />         返回 ()<br />     .如果真结束<br />     <br />     重定义数组 (文件内容, 假, 0)<br />     .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)<br />         临时文本 ＝ 读入一行 (文件号)<br />         加入成员 (文件内容, 临时文本)<br />     .判断循环尾 ()<br />     关闭文件 (文件号)<br />     <br />     ' 显示文件内容<br />     编辑框_内容.内容 ＝ ""<br />     .计次循环首 (取数组成员数 (文件内容), )<br />         编辑框_内容.加入文本 (文件内容 [取循环索引 ()] ＋ #换行符)<br />     .计次循环尾 ()<br />     <br />     按钮_保存.禁止 ＝ 假<br /> .否则<br />     信息框 ("未选择文件！", 0, , )<br /> .如果结束<br /> <br /> .子程序 _按钮_查找_被单击<br /> .局部变量 查找编号, 文本型<br /> .局部变量 行内容, 文本型<br /> .局部变量 角色数量, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 查找编号 ＝ 编辑框_编号.内容<br /> .如果真 (查找编号 ＝ "")<br />     信息框 ("请输入要查找的编号！", 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 超级列表框1.可视 ＝ 真<br /> 超级列表框1.全部删除 ()<br /> 超级列表框1.插入列 ("行号", 50, , , , )<br /> 超级列表框1.插入列 ("内容", 300, , , , )<br /> 超级列表框1.插入列 ("角色数量", 80, , , , )<br /> <br /> 角色数量 ＝ 0<br /> .计次循环首 (取数组成员数 (文件内容), i)<br />     行内容 ＝ 文件内容 <i><br />     .如果真 (寻找文本 (行内容, "army = " ＋ 查找编号, , 假) ≠ -1)<br />         ' 统计角色数量<br />         角色数量 ＝ 统计角色数量 (行内容)<br />         <br />         ' 添加到超级列表框<br />         超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 到文本 (i))<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 行内容)<br />         超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 到文本 (角色数量))<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> .如果 (超级列表框1.取表项数 () ＞ 0)<br />     标签_结果.标题 ＝ "找到 " ＋ 到文本 (超级列表框1.取表项数 ()) ＋ " 条匹配记录，共 " ＋ 到文本 (角色数量) ＋ " 个角色"<br /> .否则<br />     标签_结果.标题 ＝ "未找到编号为 " ＋ 查找编号 ＋ " 的记录"<br /> .如果结束<br /> <br /> .子程序 统计角色数量, 整数型<br /> .参数 行内容, 文本型<br /> .局部变量 数量, 整数型<br /> .局部变量 位置, 整数型<br /> <br /> 数量 ＝ 0<br /> 位置 ＝ 寻找文本 (行内容, "role_", , 假)<br /> .判断循环首 (位置 ≠ -1)<br />     数量 ＝ 数量 ＋ 1<br />     位置 ＝ 寻找文本 (行内容, "role_", 位置 ＋ 1, 假)<br /> .判断循环尾 ()<br /> 返回 (数量)<br /> <br /> .子程序 _按钮_修改_被单击<br /> .局部变量 行号, 整数型<br /> .局部变量 操作类型, 整数型<br /> .局部变量 角色名, 文本型<br /> .局部变量 当前行内容, 文本型<br /> <br /> .如果 (超级列表框1.取表项数 () ＝ 0)<br />     信息框 ("请先查找要修改的记录！", 0, , )<br />     返回 ()<br /> .否则<br />     行号 ＝ 到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))<br /> .如果结束<br /> <br /> 操作类型 ＝ 选择框_添加.选中<br /> 角色名 ＝ 编辑框_角色名.内容<br /> <br /> .如果真 (角色名 ＝ "")<br />     信息框 ("请输入要添加/删除的角色名！", 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 当前行内容 ＝ 文件内容 [行号]<br /> <br /> .如果 (操作类型 ＝ 真)  ' 添加<br />     ' 检查是否已存在<br />     .如果 (寻找文本 (当前行内容, "，" ＋ 角色名, , 假) ≠ -1 或 寻找文本 (当前行内容, 角色名 ＋ "，", , 假) ≠ -1)<br />         信息框 ("该角色已存在！", 0, , )<br />     .否则<br />         文件内容 [行号] ＝ 当前行内容 ＋ "，" ＋ 角色名<br />         信息框 ("角色添加成功！", 0, , )<br />     .如果结束<br /> .否则  ' 删除<br />     .如果 (寻找文本 (当前行内容, "，" ＋ 角色名, , 假) ≠ -1)<br />         文件内容 [行号] ＝ 子文本替换 (当前行内容, "，" ＋ 角色名, "", , , 真)<br />         信息框 ("角色删除成功！", 0, , )<br />     .否则<br />         信息框 ("未找到该角色！", 0, , )<br />     .如果结束<br /> .如果结束<br /> <br /> ' 更新显示<br /> 编辑框_内容.内容 ＝ ""<br /> .计次循环首 (取数组成员数 (文件内容), )<br />     编辑框_内容.加入文本 (文件内容 [取循环索引 ()] ＋ #换行符)<br /> .计次循环尾 ()<br /> <br /> ' 重新查找以更新统计<br /> _按钮_查找_被单击 ()<br /> <br /> .子程序 _按钮_保存_被单击<br /> .局部变量 文件号, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 文件号 ＝ 打开文件 (当前文件路径, #改写, )<br /> .如果真 (文件号 ＝ 0)<br />     信息框 ("打开文件失败！", 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (文件内容), i)<br />     写出文本 (文件号, 文件内容 <i> ＋ #换行符)<br /> .计次循环尾 ()<br /> <br /> 关闭文件 (文件号)<br /> 信息框 ("文件保存成功！", 0, , )

shiqing123

E小菜鸟 发表于 2025-8-10 13:55
[e=0].版本 2
.支持库 spec

源码可否发来

补充内容 (2025-8-10 14:25):
错误(37): 找不到指定的命令／子程序／Dll命令调用名称“取循环索引”。

补充内容 (2025-8-10 15:54):
很多错误

山猫啊

新建 易程序 3.e (959.43 KB, 下载次数: 0)

2025-8-11 04:23 上传

点击文件名下载附件