e4a换行_吧里有熟悉E4A的么，求助啊，帮忙写一下，感激不尽

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

.版本 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, )

.如果结束