易语言实现文本赋值

shiqing123

如下文本文件（大概1000行，只列举3行内容）：
army = 1，role_张三，role_李四1，role_李四12，role_李四23，role_李四64，role_李5，role_李四56，role_李四7，role_李四28，role_李434（10个role_)
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（12个role_)
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（13个role_)


要对每一行的role_人名 分别赋固定的值，比如第1行（10个role_)分别赋10个固定的数，第2行（12个role_)分别赋12个固定的数，，，，以此类推，每一行固定的数组可以自己设置比如：

army = 1，role_张三，1221，role_李四1，1211，role_李四12，1212121，role_李四23，121，role_李四64，11211，role_李5，121，role_李四56，11，role_李四7，1212121，role_李四28，122221，role_李434，1111111  （数组为：1221，1211，1212121，121，11211，121，11，1212121，122221，1111111）

army = 2，role_张三，12221，role_李四1，12211321，role_李四12，12621，role_李四23，12421，role_李四64，12621，role_李5，12721，role_李四56，12821，role_李四7，12291，role_李四28，123321，role_李434，124421，role_李四73，122121，role_李四27，125621

army = 5，role_张三，124221，role_李四1，142221，role_李四12，1245221，role_李四23，12221，role_李四64，124221，role_李5，1222561，role_李四56，1226721，role_李四7，122521，role_李四28，122721，role_李434，124221，role_李四73，1256221，role_李四73，1224521，role_李四73，1245221


要求 通过易语言 先分别设置好10个role_、12个role_、13个role_的数值组，通过查找 “army =”的编号（可以向上、向下查找），统计出 该编号的 role_ 数量，然后点击按钮自动（编号太多，最好不要选择）将对应数量的role_的数值组里面的数值 自动赋给该行的每一个role_（不同数量role_的数值组中，每个role_数值大小以及占百分比可以在文本框中显示出来）

求大神解答

1173847128

你在说啥？

huayuanderen

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
role数值组_10	文本型	10
role数值组_12	文本型	12
role数值组_13	文本型	13
当前行内容	文本型
当前行号	整数型
总行数	整数型
文件内容	文本型	0

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

' 初始化10个role的数值组
role数值组_10 ＝ { "1221", "1211", "1212121", "121", "11211", "121", "11", "1212121", "122221", "1111111" }

' 初始化12个role的数值组
role数值组_12 ＝ { "12221", "12211321", "12621", "12421", "12621", "12721", "12821", "12291", "123321", "124421", "122121", "125621" }

' 初始化13个role的数值组
role数值组_13 ＝ { "124221", "142221", "1245221", "12221", "124221", "1222561", "1226721", "122521", "122721", "124221", "1256221", "1224521", "1245221" }

' 读取文件内容
编辑框_文件内容.内容 ＝ 读入文件 ("data.txt")
文件内容 ＝ 分割文本 (编辑框_文件内容.内容, #换行符, )
总行数 ＝ 取数组成员数 (文件内容)

' 显示百分比信息
显示百分比信息 ()

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

.局部变量 i, 整数型
.局部变量 当前role数量, 整数型
.局部变量 行内容, 文本型
.局部变量 role列表, 文本型, , "0"
.局部变量 新行内容, 文本型

计次循环首 (总行数, i)
行内容 ＝ 文件内容[i]

' 检查是否是army行
如果 (寻找文本 (行内容, "army =", , 假) ＞ 0)
当前行内容 ＝ 行内容
当前行号 ＝ i

' 统计role数量
role列表 ＝ 分割文本 (行内容, "，", )
当前role数量 ＝ 取数组成员数 (role列表) － 1  ' 减去army部分

' 根据role数量选择对应的数值组
判断 (当前role数量 ＝ 10)
新行内容 ＝ 生成新行内容 (role列表, role数值组_10)
判断 (当前role数量 ＝ 12)
新行内容 ＝ 生成新行内容 (role列表, role数值组_12)
判断 (当前role数量 ＝ 13)
新行内容 ＝ 生成新行内容 (role列表, role数值组_13)
信息框 ("不支持的role数量：" ＋ 到文本 (当前role数量), 0, , )
到循环尾 ()

' 更新文件内容
文件内容[i] ＝ 新行内容
' 不是army行，跳过

计次循环尾 ()

' 更新显示
编辑框_文件内容.内容 ＝ 合并文件内容 ()
信息框 ("处理完成！", 0, , )

子程序名	返回值类型	公开	备 注
生成新行内容	文本型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
role列表	文本型
数值组	文本型

.局部变量 i, 整数型
.局部变量 新行内容, 文本型

新行内容 ＝ role列表[1]  ' army部分

计次循环首 (取数组成员数 (数值组), i)
新行内容 ＝ 新行内容 ＋ "，" ＋ role列表[i ＋ 1] ＋ "，" ＋ 数值组[i]
计次循环尾 ()

返回 新行内容

子程序名	返回值类型	公开	备 注
合并文件内容	文本型

.局部变量 结果, 文本型
.局部变量 i, 整数型

计次循环首 (总行数, i)
如果 (i ＝ 1)
结果 ＝ 文件内容[i]
结果 ＝ 结果 ＋ #换行符 ＋ 文件内容[i]

计次循环尾 ()

返回 结果

子程序名	返回值类型	公开	备 注
显示百分比信息

.局部变量 总数值, 长整数型
.局部变量 i, 整数型
.局部变量 百分比信息, 文本型

' 显示10个role的百分比
总数值 ＝ 0
计次循环首 (10, i)
总数值 ＝ 总数值 ＋ 到长整数 (role数值组_10[i])
计次循环尾 ()

百分比信息 ＝ "10个role的数值组：" ＋ #换行符
计次循环首 (10, i)
百分比信息 ＝ 百分比信息 ＋ "role" ＋ 到文本 (i) ＋ ": " ＋ role数值组_10[i] ＋ " (" ＋ 到文本 (到长整数 (role数值组_10[i]) × 100 ÷ 总数值) ＋ "%)" ＋ #换行符
计次循环尾 ()

' 显示12个role的百分比
总数值 ＝ 0
计次循环首 (12, i)
总数值 ＝ 总数值 ＋ 到长整数 (role数值组_12[i])
计次循环尾 ()

百分比信息 ＝ 百分比信息 ＋ #换行符 ＋ "12个role的数值组：" ＋ #换行符
计次循环首 (12, i)
百分比信息 ＝ 百分比信息 ＋ "role" ＋ 到文本 (i) ＋ ": " ＋ role数值组_12[i] ＋ " (" ＋ 到文本 (到长整数 (role数值组_12[i]) × 100 ÷ 总数值) ＋ "%)" ＋ #换行符
计次循环尾 ()

' 显示13个role的百分比
总数值 ＝ 0
计次循环首 (13, i)
总数值 ＝ 总数值 ＋ 到长整数 (role数值组_13[i])
计次循环尾 ()

百分比信息 ＝ 百分比信息 ＋ #换行符 ＋ "13个role的数值组：" ＋ #换行符
计次循环首 (13, i)
百分比信息 ＝ 百分比信息 ＋ "role" ＋ 到文本 (i) ＋ ": " ＋ role数值组_13[i] ＋ " (" ＋ 到文本 (到长整数 (role数值组_13[i]) × 100 ÷ 总数值) ＋ "%)" ＋ #换行符
计次循环尾 ()

编辑框_百分比信息.内容 ＝ 百分比信息

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

如果 (写到文件 ("output.txt", 编辑框_文件内容.内容))
信息框 ("文件保存成功！", 0, , )
信息框 ("文件保存失败！", 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 role数值组_10, 文本型, , "10"<br /> .程序集变量 role数值组_12, 文本型, , "12"<br /> .程序集变量 role数值组_13, 文本型, , "13"<br /> .程序集变量 当前行内容, 文本型<br /> .程序集变量 当前行号, 整数型<br /> .程序集变量 总行数, 整数型<br /> .程序集变量 文件内容, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br />     ' 初始化10个role的数值组<br />     role数值组_10 ＝ { "1221", "1211", "1212121", "121", "11211", "121", "11", "1212121", "122221", "1111111" }<br />     <br />     ' 初始化12个role的数值组<br />     role数值组_12 ＝ { "12221", "12211321", "12621", "12421", "12621", "12721", "12821", "12291", "123321", "124421", "122121", "125621" }<br />     <br />     ' 初始化13个role的数值组<br />     role数值组_13 ＝ { "124221", "142221", "1245221", "12221", "124221", "1222561", "1226721", "122521", "122721", "124221", "1256221", "1224521", "1245221" }<br />     <br />     ' 读取文件内容<br />     编辑框_文件内容.内容 ＝ 读入文件("data.txt")<br />     文件内容 ＝ 分割文本(编辑框_文件内容.内容, #换行符, )<br />     总行数 ＝ 取数组成员数(文件内容)<br />     <br />     ' 显示百分比信息<br />     显示百分比信息()<br /> <br /> .子程序 _按钮_处理_被单击<br />     .局部变量 i, 整数型<br />     .局部变量 当前role数量, 整数型<br />     .局部变量 行内容, 文本型<br />     .局部变量 role列表, 文本型, , "0"<br />     .局部变量 新行内容, 文本型<br />     <br />     .计次循环首(总行数, i)<br />         行内容 ＝ 文件内容<i><br />         <br />         ' 检查是否是army行<br />         .如果(寻找文本(行内容, "army =", , 假) ＞ 0)<br />             当前行内容 ＝ 行内容<br />             当前行号 ＝ i<br />             <br />             ' 统计role数量<br />             role列表 ＝ 分割文本(行内容, "，", )<br />             当前role数量 ＝ 取数组成员数(role列表) － 1  ' 减去army部分<br />             <br />             ' 根据role数量选择对应的数值组<br />             .判断开始(当前role数量 ＝ 10)<br />                 新行内容 ＝ 生成新行内容(role列表, role数值组_10)<br />             .判断(当前role数量 ＝ 12)<br />                 新行内容 ＝ 生成新行内容(role列表, role数值组_12)<br />             .判断(当前role数量 ＝ 13)<br />                 新行内容 ＝ 生成新行内容(role列表, role数值组_13)<br />             .默认<br />                 信息框("不支持的role数量：" ＋ 到文本(当前role数量), 0, , )<br />                 到循环尾()<br />             .判断结束<br />             <br />             ' 更新文件内容<br />             文件内容<i> ＝ 新行内容<br />         .否则<br />             ' 不是army行，跳过<br />         .如果结束<br />     .计次循环尾()<br />     <br />     ' 更新显示<br />     编辑框_文件内容.内容 ＝ 合并文件内容()<br />     信息框("处理完成！", 0, , )<br /> <br /> .子程序 生成新行内容, 文本型<br />     .参数 role列表, 文本型, 数组<br />     .参数 数值组, 文本型, 数组<br />     .局部变量 i, 整数型<br />     .局部变量 新行内容, 文本型<br />     <br />     新行内容 ＝ role列表[1]  ' army部分<br />     <br />     .计次循环首(取数组成员数(数值组), i)<br />         新行内容 ＝ 新行内容 ＋ "，" ＋ role列表[i ＋ 1] ＋ "，" ＋ 数值组<i><br />     .计次循环尾()<br />     <br />     返回 新行内容<br /> <br /> .子程序 合并文件内容, 文本型<br />     .局部变量 结果, 文本型<br />     .局部变量 i, 整数型<br />     <br />     .计次循环首(总行数, i)<br />         .如果(i ＝ 1)<br />             结果 ＝ 文件内容<i><br />         .否则<br />             结果 ＝ 结果 ＋ #换行符 ＋ 文件内容<i><br />         .如果结束<br />     .计次循环尾()<br />     <br />     返回 结果<br /> <br /> .子程序 显示百分比信息<br />     .局部变量 总数值, 长整数型<br />     .局部变量 i, 整数型<br />     .局部变量 百分比信息, 文本型<br />     <br />     ' 显示10个role的百分比<br />     总数值 ＝ 0<br />     .计次循环首(10, i)<br />         总数值 ＝ 总数值 ＋ 到长整数(role数值组_10<i>)<br />     .计次循环尾()<br />     <br />     百分比信息 ＝ "10个role的数值组：" ＋ #换行符<br />     .计次循环首(10, i)<br />         百分比信息 ＝ 百分比信息 ＋ "role" ＋ 到文本(i) ＋ ": " ＋ role数值组_10<i> ＋ " (" ＋ 到文本(到长整数(role数值组_10<i>) × 100 ÷ 总数值) ＋ "%)" ＋ #换行符<br />     .计次循环尾()<br />     <br />     ' 显示12个role的百分比<br />     总数值 ＝ 0<br />     .计次循环首(12, i)<br />         总数值 ＝ 总数值 ＋ 到长整数(role数值组_12<i>)<br />     .计次循环尾()<br />     <br />     百分比信息 ＝ 百分比信息 ＋ #换行符 ＋ "12个role的数值组：" ＋ #换行符<br />     .计次循环首(12, i)<br />         百分比信息 ＝ 百分比信息 ＋ "role" ＋ 到文本(i) ＋ ": " ＋ role数值组_12<i> ＋ " (" ＋ 到文本(到长整数(role数值组_12<i>) × 100 ÷ 总数值) ＋ "%)" ＋ #换行符<br />     .计次循环尾()<br />     <br />     ' 显示13个role的百分比<br />     总数值 ＝ 0<br />     .计次循环首(13, i)<br />         总数值 ＝ 总数值 ＋ 到长整数(role数值组_13<i>)<br />     .计次循环尾()<br />     <br />     百分比信息 ＝ 百分比信息 ＋ #换行符 ＋ "13个role的数值组：" ＋ #换行符<br />     .计次循环首(13, i)<br />         百分比信息 ＝ 百分比信息 ＋ "role" ＋ 到文本(i) ＋ ": " ＋ role数值组_13<i> ＋ " (" ＋ 到文本(到长整数(role数值组_13<i>) × 100 ÷ 总数值) ＋ "%)" ＋ #换行符<br />     .计次循环尾()<br />     <br />     编辑框_百分比信息.内容 ＝ 百分比信息<br /> <br /> .子程序 _按钮_保存文件_被单击<br />     .如果(写到文件("output.txt", 编辑框_文件内容.内容))<br />         信息框("文件保存成功！", 0, , )<br />     .否则<br />         信息框("文件保存失败！", 0, , )<br />     .如果结束

shiqing123

huayuanderen 发表于 2025-8-10 02:31
[e=0].版本 2

.程序集 窗口程序集_启动窗口

能否把源码发上来

补充内容 (2025-8-10 09:31):
百分比能不能保留小数点后2位

补充内容 (2025-8-10 09:42):
并且 赋值的数组 是通过程序窗口 插入进去的  因为行数很多，每一行role数量都不一样

花间一壶酒

自定义数据类型  不行么

shiqing123

花间一壶酒 发表于 2025-8-10 09:31
自定义数据类型  不行么

如何自定义

花间一壶酒

这样子么

shiqing123

花间一壶酒 发表于 2025-8-10 12:30
这样子么

不是  ，是将值赋给姓名 （按照一行为一组），每一组的姓名、数量多少可以自己添加，每一组的每个姓名的赋值也可以自己定义，不知道能不能实现

cobi

用数据库挺好，效率会高点。

shiqing123

cobi 发表于 2025-8-10 16:25
用数据库挺好，效率会高点。

大佬能帮忙做一个吗