编辑框数字相加

不是我的々错

我想让编辑框的数字相加



F:1,W:1,I:1,S:1
F:2,W:2,I:1,S:3

总计  F:3,W:3,I:2,S:4


这样子的

lianzuo123

看代码吧,没多少东西,很简单的

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

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

子程序名	返回值类型	公开	备 注
插入随机数据

变量名	类 型	静态	数组	备 注
F	文本型
W	文本型
I	文本型
S	文本型
Sum_F	整数型
Sum_W	整数型
Sum_I	整数型
Sum_S	整数型

编辑框1.内容 ＝ “”
计次循环首 (100, )
F ＝ 文本_取随机范围数字 (1, 1000)
W ＝ 文本_取随机范围数字 (1, 1000)
I ＝ 文本_取随机范围数字 (1, 1000)
S ＝ 文本_取随机范围数字 (1, 1000)
编辑框1.加入文本 (格式化文本 (“F:%s W:%s I:%s S:%s”, F, W, I, S) ＋ #换行符 )
Sum_F ＝ Sum_F ＋ 到整数 (F)  ' 用来检验计算结果,实际使用时应去除
Sum_W ＝ Sum_W ＋ 到整数 (W)
Sum_I ＝ Sum_I ＋ 到整数 (I)
Sum_S ＝ Sum_S ＋ 到整数 (S)
计次循环尾 ()
调试输出 (Sum_F, Sum_W, Sum_I, Sum_S)  ' 用来检验计算结果,实际使用时应去除

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

变量名	类 型	静态	数组	备 注
Regex	正则表达式类
Num	整数型
Type	文本型
i	整数型
Arr_Sum	整数型		0
Index	整数型

重定义数组 (Arr_Sum, 假, 4)  ' 定义一个数组,分别对应FWIS的和
Regex.创建 (“([FWIS]):(\d+)”, 编辑框1.内容)
计次循环首 (Regex.取匹配数量 (), i)
Type ＝ Regex.取子匹配文本 (i, 1)
Num ＝ 到整数 (Regex.取子匹配文本 (i, 2))
Index ＝ GetArrIndex (Type)
Arr_Sum [Index] ＝ Arr_Sum [Index] ＋ Num
计次循环尾 ()
调试输出 (Arr_Sum)  ' 输出结果

子程序名	返回值类型	公开	备 注
GetArrIndex	整数型
参数名	类 型	参考	可空	数组	备 注
Type	文本型

如果真 (Type ＝ “F”)
返回 (1)
如果真 (Type ＝ “W”)
返回 (2)
如果真 (Type ＝ “I”)
返回 (3)
返回 (4)

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

插入随机数据 ()

i支持库列表	支持库注释
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> <br /> <br /> .子程序 插入随机数据<br /> .局部变量 F, 文本型<br /> .局部变量 W, 文本型<br /> .局部变量 I, 文本型<br /> .局部变量 S, 文本型<br /> .局部变量 Sum_F, 整数型<br /> .局部变量 Sum_W, 整数型<br /> .局部变量 Sum_I, 整数型<br /> .局部变量 Sum_S, 整数型<br /> <br /> 编辑框1.内容 ＝ “”<br /> .计次循环首 (100, )<br />     F ＝ 文本_取随机范围数字 (1, 1000)<br />     W ＝ 文本_取随机范围数字 (1, 1000)<br />     I ＝ 文本_取随机范围数字 (1, 1000)<br />     S ＝ 文本_取随机范围数字 (1, 1000)<br />     编辑框1.加入文本 (格式化文本 (“F:%s W:%s I:%s S:%s”, F, W, I, S) ＋ #换行符)<br /> <br />     Sum_F ＝ Sum_F ＋ 到整数 (F)  ' 用来检验计算结果,实际使用时应去除<br />     Sum_W ＝ Sum_W ＋ 到整数 (W)<br />     Sum_I ＝ Sum_I ＋ 到整数 (I)<br />     Sum_S ＝ Sum_S ＋ 到整数 (S)<br /> .计次循环尾 ()<br /> 调试输出 (Sum_F, Sum_W, Sum_I, Sum_S)  ' 用来检验计算结果,实际使用时应去除<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 Regex, 正则表达式类<br /> .局部变量 Num, 整数型<br /> .局部变量 Type, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 Arr_Sum, 整数型, , "0"<br /> .局部变量 Index, 整数型<br /> <br /> 重定义数组 (Arr_Sum, 假, 4)  ' 定义一个数组,分别对应FWIS的和<br /> Regex.创建 (“([FWIS]):(\d+)”, 编辑框1.内容)<br /> .计次循环首 (Regex.取匹配数量 (), i)<br />     Type ＝ Regex.取子匹配文本 (i, 1)<br />     Num ＝ 到整数 (Regex.取子匹配文本 (i, 2))<br />     Index ＝ GetArrIndex (Type)<br />     Arr_Sum [Index] ＝ Arr_Sum [Index] ＋ Num<br /> .计次循环尾 ()<br /> 调试输出 (Arr_Sum)  ' 输出结果<br /> <br /> .子程序 GetArrIndex, 整数型<br /> .参数 Type, 文本型<br /> <br /> .如果真 (Type ＝ “F”)<br />     返回 (1)<br /> .如果真结束<br /> .如果真 (Type ＝ “W”)<br />     返回 (2)<br /> .如果真结束<br /> .如果真 (Type ＝ “I”)<br />     返回 (3)<br /> .如果真结束<br /> 返回 (4)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 插入随机数据 ()

新建 易程序.rar (145.59 KB, 下载次数: 3)

2016-12-30 08:42 上传

点击文件名下载附件

疯子大大

循环

分割文本 (, , )

分割出来在计算

lianzuo123

用字典吧.快速

不是我的々错

请留下具体代码

易正易则

这样？




补充内容 (2016-12-30 08:33):
需要中间的逗号就改下这里代码
编辑框2.内容 ＝ “F:” ＋ 到文本 (F) ＋ “,W:” ＋ 到文本 (W) ＋ “,I:” ＋ 到文本 (I) ＋ “,S:” ＋ 到文本 (S)

lianzuo123

如果你只是固定的这几个数值的话,分割或正则就可以了

wyfllp168

不错
没多少东西,很简单的

不是我的々错

易正易则 发表于 2016-12-30 08:30
这样？

谢谢大牛们