求取文本中间指定数值的代码（续二）

lkan227

1、我想取出同一行绿色对应的红色位置的数值。（有名字标注的，如“正己烷”对应的那行里红色的数值104.804，    “苯”对应的那行里红色的数值29.393）2、红色框内除已有绿色的所有数值显示在编辑框_杂峰总和.内容+换行符
3、红色框的那列所有数值求和后再减去编辑框_杂峰总和.内容。（不论是否有名字标注）

我自之前发了个贴.感谢之前的大佬回答，但是不懂引用到自己的程序里面来，所以再次发了这个贴，希望各位能帮我修改下，指出我问题的所在，请各位老师多多指教e语言源码文件和引用的文本放在附件里了，请各位老师多多指教

  

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

子程序名	返回值类型	公开	备 注
_按钮_一键导入数据_被单击

变量名	类 型	静态	数组	备 注
返回数组	文本型		0
i	整数型
分割数组	文本型		0

返回数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\Output.txt”)), #换行符, )
编辑框1.内容 ＝ 文本_取出中间文本 (返回数组 [88], “正己烷”, 字符 (9), , )  ' 他不一定是在88行，可能是89、70、156行，还的做个判断，不知道怎么写
' 调试输出可以得到7 2.444 2.413 2.534 17344 6886 2.519 104.804  V  1 正己烷  0.316 30979 4.842 0.000 1.513 1.199 0 0 7.401 7.401，一这一行，编辑框里确实空白的，
' 另外这个值有时候是负数
调试输出 (返回数组 [88])
' 编辑框_杂峰总和.内容=(所有第八组数据相加然后减去编辑框1到编辑框15的数值)
' 编辑框_杂峰面积.内容=(换行逐个列出来)
编辑框2.内容 ＝ 文本_取出中间文本 (返回数组 [91], “苯”, 字符 (9), , )
编辑框3.内容 ＝ 文本_取出中间文本 (返回数组 [3], “三氯乙烯”, 字符 (9), , )
编辑框4.内容 ＝ 文本_取出中间文本 (返回数组 [4], “甲苯”, 字符 (9), , )
编辑框5.内容 ＝ 文本_取出中间文本 (返回数组 [5], “辛烯”, 字符 (19), , )
编辑框6.内容 ＝ 文本_取出中间文本 (返回数组 [6], “乙酸丁酯”, 字符 (9), , )
编辑框7.内容 ＝ 文本_取出中间文本 (返回数组 [7], “乙苯”, 字符 (9), , )
编辑框8.内容 ＝ 文本_取出中间文本 (返回数组 [8], “对间二甲苯”, 字符 (9), , )
编辑框9.内容 ＝ 文本_取出中间文本 (返回数组 [9], “苯乙烯”, 字符 (19), , )
编辑框10.内容 ＝ 文本_取出中间文本 (返回数组 [10], “邻-二甲苯”, 字符 (9), , )
编辑框11.内容 ＝ 文本_取出中间文本 (返回数组 [11], “ 正壬烷 ”, 字符 (9), , )
编辑框12.内容 ＝ 文本_取出中间文本 (返回数组 [12], “ 异辛醇 ”, 字符 (9), , )
编辑框13.内容 ＝ 文本_取出中间文本 (返回数组 [13], “ 正十一烷 ”, 字符 (9), , )
编辑框14.内容 ＝ 文本_取出中间文本 (返回数组 [14], “ 正十四烷 ”, 字符 (9), , )
编辑框15.内容 ＝ 文本_取出中间文本 (返回数组 [15], “ 正十六烷 ”, 字符 (9), , )

子程序名	返回值类型	公开	备 注
_按钮_一键计算_被单击

编辑框目标物浓度ng.内容 ＝ 到文本 (到数值 (编辑框1.内容) ＋ 到数值 (编辑框2.内容) ＋ 到数值 (编辑框3.内容) ＋ 到数值 (编辑框4.内容) ＋ 到数值 (编辑框5.内容) ＋ 到数值 (编辑框6.内容) ＋ 到数值 (编辑框7.内容) ＋ 到数值 (编辑框8.内容) ＋ 到数值 (编辑框9.内容) ＋ 到数值 (编辑框10.内容) ＋ 到数值 (编辑框11.内容) ＋ 到数值 (编辑框12.内容) ＋ 到数值 (编辑框13.内容) ＋ 到数值 (编辑框14.内容) ＋ 到数值 (编辑框15.内容))
杂峰mgm3减曲线a.内容 ＝ 到文本 (到数值 (编辑框51.内容) － 到数值 (编辑框曲线a.内容))
编辑框杂峰mgm3.内容 ＝ 到文本 (到数值 (杂峰mgm3减曲线a.内容) ÷ 到数值 (编辑框曲线b.内容))
' 编辑框_脱落率平均.内容 ＝ 到文本 ((到数值 (编辑框_脱落率1.内容) ＋ 到数值 (编辑框_脱落率2.内容)) ÷ 2)
编辑框加杂峰后总含量.内容 ＝ 到文本 (到数值 (编辑框杂峰mgm3.内容) ＋ 到数值 (编辑框目标物浓度ng.内容))
编辑框减空白后含量.内容 ＝ 到文本 (到数值 (编辑框加杂峰后总含量.内容) － 到数值 (编辑框空白含量.内容))
编辑框目标物mgm3.内容 ＝ 到文本 (到数值 (编辑框减空白后含量.内容) ÷ 到数值 (编辑框VndL.内容) ÷ 1000)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮_一键导入数据_被单击<br /> .局部变量 返回数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 分割数组, 文本型, , "0"<br /> <br /> <br /> 返回数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\Output.txt”)), #换行符, )<br /> 编辑框1.内容 ＝ 文本_取出中间文本 (返回数组 [88], “正己烷”, 字符 (9), , )  ' 他不一定是在88行，可能是89、70、156行，还的做个判断，不知道怎么写<br /> ' 调试输出可以得到7 2.444 2.413 2.534 17344 6886 2.519 104.804  V  1 正己烷  0.316 30979 4.842 0.000 1.513 1.199 0 0 7.401 7.401，一这一行，编辑框里确实空白的，<br /> ' 另外这个值有时候是负数<br /> 调试输出 (返回数组 [88])<br /> ' 编辑框_杂峰总和.内容=(所有第八组数据相加然后减去编辑框1到编辑框15的数值)<br /> ' 编辑框_杂峰面积.内容=(换行逐个列出来)<br /> <br /> 编辑框2.内容 ＝ 文本_取出中间文本 (返回数组 [91], “苯”, 字符 (9), , )<br /> 编辑框3.内容 ＝ 文本_取出中间文本 (返回数组 [3], “三氯乙烯”, 字符 (9), , )<br /> 编辑框4.内容 ＝ 文本_取出中间文本 (返回数组 [4], “甲苯”, 字符 (9), , )<br /> 编辑框5.内容 ＝ 文本_取出中间文本 (返回数组 [5], “辛烯”, 字符 (19), , )<br /> 编辑框6.内容 ＝ 文本_取出中间文本 (返回数组 [6], “乙酸丁酯”, 字符 (9), , )<br /> 编辑框7.内容 ＝ 文本_取出中间文本 (返回数组 [7], “乙苯”, 字符 (9), , )<br /> 编辑框8.内容 ＝ 文本_取出中间文本 (返回数组 [8], “对间二甲苯”, 字符 (9), , )<br /> 编辑框9.内容 ＝ 文本_取出中间文本 (返回数组 [9], “苯乙烯”, 字符 (19), , )<br /> 编辑框10.内容 ＝ 文本_取出中间文本 (返回数组 [10], “邻-二甲苯”, 字符 (9), , )<br /> 编辑框11.内容 ＝ 文本_取出中间文本 (返回数组 [11], “ 正壬烷 ”, 字符 (9), , )<br /> 编辑框12.内容 ＝ 文本_取出中间文本 (返回数组 [12], “ 异辛醇 ”, 字符 (9), , )<br /> 编辑框13.内容 ＝ 文本_取出中间文本 (返回数组 [13], “ 正十一烷 ”, 字符 (9), , )<br /> 编辑框14.内容 ＝ 文本_取出中间文本 (返回数组 [14], “ 正十四烷 ”, 字符 (9), , )<br /> 编辑框15.内容 ＝ 文本_取出中间文本 (返回数组 [15], “ 正十六烷 ”, 字符 (9), , )<br /> <br /> <br /> <br /> .子程序 _按钮_一键计算_被单击<br /> <br /> 编辑框目标物浓度ng.内容 ＝ 到文本 (到数值 (编辑框1.内容) ＋ 到数值 (编辑框2.内容) ＋ 到数值 (编辑框3.内容) ＋ 到数值 (编辑框4.内容) ＋ 到数值 (编辑框5.内容) ＋ 到数值 (编辑框6.内容) ＋ 到数值 (编辑框7.内容) ＋ 到数值 (编辑框8.内容) ＋ 到数值 (编辑框9.内容) ＋ 到数值 (编辑框10.内容) ＋ 到数值 (编辑框11.内容) ＋ 到数值 (编辑框12.内容) ＋ 到数值 (编辑框13.内容) ＋ 到数值 (编辑框14.内容) ＋ 到数值 (编辑框15.内容))<br /> 杂峰mgm3减曲线a.内容 ＝ 到文本 (到数值 (编辑框51.内容) － 到数值 (编辑框曲线a.内容))<br /> 编辑框杂峰mgm3.内容 ＝ 到文本 (到数值 (杂峰mgm3减曲线a.内容) ÷ 到数值 (编辑框曲线b.内容))<br /> ' 编辑框_脱落率平均.内容 ＝ 到文本 ((到数值 (编辑框_脱落率1.内容) ＋ 到数值 (编辑框_脱落率2.内容)) ÷ 2)<br /> 编辑框加杂峰后总含量.内容 ＝ 到文本 (到数值 (编辑框杂峰mgm3.内容) ＋ 到数值 (编辑框目标物浓度ng.内容))<br /> 编辑框减空白后含量.内容 ＝ 到文本 (到数值 (编辑框加杂峰后总含量.内容) － 到数值 (编辑框空白含量.内容))<br /> 编辑框目标物mgm3.内容 ＝ 到文本 (到数值 (编辑框减空白后含量.内容) ÷ 到数值 (编辑框VndL.内容) ÷ 1000)

补充内容 (2023-4-21 20:40):

如果能把结果按时间命名，保存为EXECL文件就更好了

lkan227

如果能把结果按时间命名，保存为EXECL文件就更好了

lkan227

或者有没有大佬推荐几个视频，我去学学