如何保存所有数据到文本，有源码

技能不多 · 发表于 2021-12-5 11:58:41

如何把图中的所有数据保存到文本，现在只能保存成绩列表的数据

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
文件时间名	文本型
成绩数组	整数型	100
人数	整数型

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

文件时间名＝时间_到文本 (, 3, 2) ＋时间_到文本 (, 3, 4) ＋ “.”

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

变量名	类型	静态	数组	备注
成绩	整数型
我要结果	文本型
i	整数型
总人数	整数型

总人数＝到数值 (总人数编辑框2.内容)
调试输出 (总人数)
人数＝人数＋ 1
成绩＝到数值 (总成绩输出框.内容)

如果 (人数＞总人数)

信息框 (“所有人的成绩输入完毕”, 0, , )

计次循环首 (总人数, i)

我要结果＝我要结果＋列表编辑框.取项目文本 (i － 1) ＋ #换行符

计次循环尾 ()

写到文件 (取运行目录 () ＋ “\” ＋文件时间名＋ “__我要的结果.txt”, 到字节集 (我要结果))

成绩数组 [人数] ＝到数值 (成绩输入编辑框)

列表编辑框.加入项目 (到文本 (人数) ＋ “:” ＋成绩输入编辑框.内容, )

总成绩输出框.内容＝到文本 (成绩＋到数值 (成绩输入编辑框.内容))

平均成绩输出框.内容＝到文本 (四舍五入 (到数值 (总成绩输出框.内容) ÷ 总人数, ))

总人数编辑框.内容＝到文本 (人数)

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

总成绩输出框.内容＝ “”
平均成绩输出框.内容＝ “”
成绩输入编辑框.内容＝ “”
列表编辑框.清空 ()
总人数编辑框.内容＝ “”
人数＝ 0

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

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 文件时间名, 文本型<br />
.程序集变量 成绩数组, 整数型, , "100"<br />
.程序集变量 人数, 整数型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
文件时间名 ＝ 时间_到文本 (, 3, 2) ＋ 时间_到文本 (, 3, 4) ＋ “.”<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 成绩, 整数型<br />
.局部变量 我要结果, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 总人数, 整数型<br />
<br />
总人数 ＝ 到数值 (总人数编辑框2.内容)<br />
调试输出 (总人数)<br />
人数 ＝ 人数 ＋ 1<br />
成绩 ＝ 到数值 (总成绩输出框.内容)<br />
.如果 (人数 ＞ 总人数)<br />
    信息框 (“所有人的成绩输入完毕”, 0, , )<br />
    .计次循环首 (总人数, i)<br />
        我要结果 ＝ 我要结果 ＋ 列表编辑框.取项目文本 (i － 1) ＋ #换行符<br />
    .计次循环尾 ()<br />
<br />
    写到文件 (取运行目录 () ＋ “\” ＋ 文件时间名 ＋ “__我要的结果.txt”, 到字节集 (我要结果))<br />
<br />
<br />
.否则<br />
    成绩数组 [人数] ＝ 到数值 (成绩输入编辑框)<br />
    列表编辑框.加入项目 (到文本 (人数) ＋ “:” ＋ 成绩输入编辑框.内容, )<br />
    总成绩输出框.内容 ＝ 到文本 (成绩 ＋ 到数值 (成绩输入编辑框.内容))<br />
    平均成绩输出框.内容 ＝ 到文本 (四舍五入 (到数值 (总成绩输出框.内容) ÷ 总人数, ))<br />
<br />
    总人数编辑框.内容 ＝ 到文本 (人数)<br />
.如果结束<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
总成绩输出框.内容 ＝ “”<br />
平均成绩输出框.内容 ＝ “”<br />
成绩输入编辑框.内容 ＝ “”<br />
列表编辑框.清空 ()<br />
总人数编辑框.内容 ＝ “”<br />
人数 ＝ 0

可录入100人成绩3.e (910.02 KB, 下载次数: 3)