.版本 2
.程序集 窗口程序集1
.程序集变量 金额, 文本型
.程序集变量 时间, 文本型
.程序集变量 支出, 整数型
.子程序 __启动窗口_创建完毕
编辑框1.内容 ＝ 到文本 (读入文件 (“D:\记账.txt”))
.子程序 _按钮1_被单击
时间 ＝ 取文本左边 (到文本 (取现行时间 ()), 4) ＋ “/” ＋ 取文本中间 (到文本 (取现行时间 ()), 7, 2) ＋ “/” ＋ 取文本中间 (到文本 (取现行时间 ()), 11, 2)
.如果 (到数值 (取文本左边 (到文本 (取现行时间 ()), 4) ＋ 取文本中间 (到文本 (取现行时间 ()), 7, 2) ＋ 取文本中间 (到文本 (取现行时间 ()), 11, 2)) ＞ 到数值 (取文本左边 (到文本 (读入文件 (“D:\记账.txt”)), 4) ＋ 取文本中间 (到文本 (读入文件 (“D:\记账.txt”)), 6, 2) ＋ 取文本中间 (到文本 (读入文件 (“D:\记账.txt”)), 9, 2)))
写到文件 (“D:\记账.txt”, 到字节集 (“======本日总支出” ＋ 到文本 (读入文件 (“D:\小结.txt”)) ＋ #换行符 ＋ 到文本 (读入文件 (“D:\记账.txt”))))
删除文件 (“D:\小结.txt”)
.否则
.如果结束
.如果 (编辑框2.内容 ≠ “” 且 组合框1.内容 ≠ “”)
.判断开始 (到数值 (编辑框2.内容) ＞ 0 且 10 ＞ 到数值 (编辑框2.内容))
金额 ＝ 编辑框2.内容 ＋ “.00”
.判断 (到数值 (编辑框2.内容) ≥ 10 且 100 ＞ 到数值 (编辑框2.内容))
金额 ＝ 编辑框2.内容 ＋ “.0”
.判断 (到数值 (编辑框2.内容) ≥ 100 且 1000 ＞ 到数值 (编辑框2.内容))
金额 ＝ 编辑框2.内容 ＋ “ ”
.默认
.判断结束
写到文件 (“D:\记账.txt”, 到字节集 (时间 ＋ “ 丨 ” ＋ “￥” ＋ 金额 ＋ “ 丨 ” ＋ 组合框1.内容 ＋ #换行符) ＋ 读入文件 (“D:\记账.txt”))
写到文件 (“D:\小结.txt”, 到字节集 (到文本 (到数值 (到文本 (读入文件 (“D:\小结.txt”))) ＋ 到数值 (编辑框2.内容))))
编辑框1.内容 ＝ 到文本 (读入文件 (“D:\记账.txt”))
.否则
信息框 (“项目不全”, 0, )
.如果结束

没用过的路过
　　　--人活着就是为了解决困难。这才是生命的意义，也是生命的内容。

没用过几次e4a
----这是我的小尾巴，你们谁看不到。。。。。

@螵螵

简单，但是我没空

E4A和易语言完全不是一个路数，学那玩意不如直接上JAVA