最近学会了数组与分割文本，所以对之前做的程序进行了改进。
用我新写的程序可以以更快的时间读出过生日的人，虽然远不及大神您！
欢迎大神指点！
这个版本只要一秒哦。
.版本 2
.程序集 程序集1
.程序集变量 文件, 文本型
.程序集变量 文本, 文本型, , "16900"
.程序集变量 输出, 文本型
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 i, 整数型
' 'C:\Users\abc\Downloads\【快盘下载】数据放送等\数据放送
文件 ＝ 到文本 (读入文件 (“C:\Users\abc\Downloads\【快盘下载】数据放送等\数据放送\智商吧生日.txt”))
文本 ＝ 分割文本 (文件, #换行符, 16900)
标准输出 (, 取文本日期 () ＋ #换行符)
.计次循环首 (16900, i)
.如果真 (取文本右边 (文本 [i], 5) ＝ 取文本日期 ())
输出 ＝ 输出 ＋ “@” ＋ 取文本左边 (文本 [i], 取文本长度 (文本 [i]) － 11) ＋ “ ” ＋ #换行符
标准输出 (, “@” ＋ 取文本左边 (文本 [i], 取文本长度 (文本 [i]) － 11) ＋ “ ” ＋ #换行符)
.如果真结束
.计次循环尾 ()
置剪辑板文本 (输出)
标准输出 (, #换行符 ＋ #换行符 ＋ “完成”)
标准输入 ()
返回 (0)
.子程序 取文本日期, 文本型
.局部变量 月份, 文本型
.局部变量 日子, 文本型
.判断开始 (取月份 (取现行时间 ()) ＞ 9)
月份 ＝ 到文本 (取月份 (取现行时间 ()))
.默认
月份 ＝ “0” ＋ 到文本 (取月份 (取现行时间 ()))
.判断结束
.判断开始 (取日 (取现行时间 ()) ＞ 9)
日子 ＝ 到文本 (取日 (取现行时间 ()))
.默认
日子 ＝ “0” ＋ 到文本 (取日 (取现行时间 ()))
.判断结束
返回 (月份 ＋ “.” ＋ 日子)