如何求累加统计

wh1234567

编辑框1内容格式如下：
1.[西门山]出现2次，溜溜流18.04+高棉8.96=合计27
2.[那边山沟]出现3次，高棉26.84+青菜9.46+甜瓜8.97=合计45.27
3.[狼窝]出现5次，狗肉17.97+狗肉18.05+西红柿35.88+青菜17.97+甜瓜3.3=合计93.17
4.[马路宽]出现1次，甜瓜23.88=合计23.88
5.[高山顶]出现1次，萝卜13.94=合计13.94
6.[七台河河南]出现1次，萝卜4.04=合计4.04
如何求每行右边“合计”右边的数值累加？也就是 27+45.27+93.17+23.88+13.94+4.04=

207.3

RainCharm

  

子程序名	返回值类型	公开	备 注
计算合计总和

变量名	类 型	静态	数组	备 注
正则	正则表达式
搜索结果	搜索结果		0
i	整数型
总计	小数型
文本	文本型

文本 ＝ #常量2
总计 ＝ 0
正则.创建 (“合计(\d+\.?\d*)”, )
搜索结果 ＝ 正则.搜索全部 (文本)
计次循环首 (取数组成员数 (搜索结果), i)
总计 ＝ 总计 ＋ 到数值 (搜索结果 [i].取子匹配文本 (文本, 1, ))
计次循环尾 ()
调试输出 (“总计：” ＋ 到文本 (总计))
开始运行被调试程序
*
* “总计：207.3”
被调试易程序运行完毕

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .子程序 计算合计总和<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 总计, 小数型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ #常量2<br /> 总计 ＝ 0<br /> <br /> 正则.创建 (“合计(\d+\.?\d*)”, )<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> <br /> .计次循环首 (取数组成员数 (搜索结果), i)<br />     总计 ＝ 总计 ＋ 到数值 (搜索结果 <i>.取子匹配文本 (文本, 1, ))<br /> .计次循环尾 ()<br /> <br /> 调试输出 (“总计：” ＋ 到文本 (总计))<br /> <br /> 开始运行被调试程序<br /> *<br /> * “总计：207.3”<br /> 被调试易程序运行完毕

补充内容 (2026-2-3 20:13):
改成    文本=编辑框1.内容

wh1234567

RainCharm 发表于 2026-2-3 20:10
[e=4].版本 2
.支持库 RegEx
.支持库 spec

老师好，除了正则 还可以用什么方法写？

zainex

  

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

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

变量名	类 型	静态	数组	备 注
数组	文本型		0
文本	文本型
数	整数型
公式	文本型
结果	双精度小数型
下标	整数型
数量	整数型

文本 ＝ 编辑框1.内容
数组 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (数组), 数)
下标 ＝ 倒找文本 (数组 [数], “合计”, , 假)
如果真 (下标 ≠ -1)
数量 ＝ 取文本长度 (数组 [数]) － 下标 － 取文本长度 (“合计”) ＋ 1
公式 ＝ 公式 ＋ 删全部空 (取文本右边 (数组 [数], 数量)) ＋ “+”
结果 ＝ 结果 ＋ 到数值 (删首空 (取文本右边 (数组 [数], 数量)))

计次循环尾 ()
公式 ＝ 取文本左边 (公式, 取文本长度 (公式) － 1)
调试输出 (公式, 到文本 (结果))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 文本, 文本型<br /> .局部变量 数, 整数型<br /> .局部变量 公式, 文本型<br /> .局部变量 结果, 双精度小数型<br /> .局部变量 下标, 整数型<br /> .局部变量 数量, 整数型<br /> <br /> 文本 ＝ 编辑框1.内容<br /> 数组 ＝ 分割文本 (文本, #换行符, )<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     下标 ＝ 倒找文本 (数组 [数], “合计”, , 假)<br />     .如果真 (下标 ≠ -1)<br />         数量 ＝ 取文本长度 (数组 [数]) － 下标 － 取文本长度 (“合计”) ＋ 1<br />         公式 ＝ 公式 ＋ 删全部空 (取文本右边 (数组 [数], 数量)) ＋ “+”<br />         结果 ＝ 结果 ＋ 到数值 (删首空 (取文本右边 (数组 [数], 数量)))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 公式 ＝ 取文本左边 (公式, 取文本长度 (公式) － 1)<br /> 调试输出 (公式, 到文本 (结果))

开始运行被调试程序
* “27+45.27+93.17+23.88+13.94+4.04” | “207.3”
被调试易程序运行完毕

liuyue5086

wh1234567 发表于 2026-2-3 20:35
老师好，除了正则 还可以用什么方法写？

你直接分割文本
text=（编辑框.内容，#换行符）
然后去循环一下，每一行都去取文本右边“合计”的数字，直接到双精准小数后相加就行，最后循环结束输出结果

sunfly

ASCII码 倒找文本取不是数字位置+1取值   然后累加
其实划入行数组每个元素正则后取最后一个，累加