.程序集 窗口程序集1
.程序集變量 文本, 文本型
.子程序 _按鈕1_被單擊
文本 ＝ 到文本 (讀入文件 (取運行目錄 () ＋ “\1.txt”))
.如果 (文本 ＝ “”)
寫到文件 (取運行目錄 () ＋ “\1.txt”, 到字節集 (編輯框1.內容))
.否則
寫到文件 (取運行目錄 () ＋ “\1.txt”, 到字節集 (文本 ＋ #換行符 ＋ 編輯框1.內容))