.子程序 __啟動窗口_創建完畢
.局部變量 文本, 文本型
.局部變量 文本組, 文本型, , "0"
.局部變量 分文本, 文本型, , "2"
.局部變量 計次, 整數型
.局部變量 數值, 整數型
文本 ＝ 到文本 (讀入文件 (取運行目錄 () ＋ “\123.txt”))
文本組 ＝ 分割文本 (文本, #換行符, )
文本 ＝ “”
.計次循環首 (取數組成員數 (文本組), 計次)
輸出調試文本 (文本組 [計次]) ' 檢查用,可刪除.
分文本 ＝ 分割文本 (文本組 [計次], “[”, )
文本組 [計次] ＝ 分文本 [1] ＋ “[”
分文本 ＝ 分割文本 (分文本 [2], “]”, )
數值 ＝ 到數值 (分文本 [1]) ＋ 1
文本組 [計次] ＝ 文本組 [計次] ＋ 到文本 (數值) ＋ “]” ＋ 分文本 [2]
輸出調試文本 (文本組 [計次]) ' 檢查用,可刪除.
文本 ＝ 文本 ＋ 文本組 [計次]
.計次循環尾 ()
' 寫到文件 (取運行目錄 () ＋ “\123.txt”, 到字節集 (文本))