.支持庫 spec
.子程序 取數字_方法壹, 文本型
.參數 原文件, 文本型
.局部變量 i, 整數型
.局部變量 bin, 字節集
.局部變量 temp, 文本型
.局部變量 text, 文本型
bin ＝ 到字節集 (原文件)
.計次循環首 (取字節集長度 (bin), i)
.如果真 (bin [i] ≥ 48 且 bin [i] ≤ 58)
temp ＝ 字符 (bin [i])
text ＝ text ＋ temp
.如果真結束
.計次循環尾 ()
返回 (text)
.子程序 取數字_方法二, 文本型
.參數 原文本, 文本型
.局部變量 i, 整數型
.局部變量 temp, 文本型
.局部變量 text, 文本型
.計次循環首 (取文本長度 (原文本), i)
temp ＝ 取文本中間 (原文本, i, 1)
.如果真 (temp ＝ “0” 或 temp ＝ “1” 或 temp ＝ “2” 或 temp ＝ “3” 或 temp ＝ “4” 或 temp ＝ “5” 或 temp ＝ “6” 或 temp ＝ “7” 或 temp ＝ “8” 或 temp ＝ “9”)
text ＝ text ＋ temp
.如果真結束
.計次循環尾 ()
返回 (text)
.子程序 _按鈕1_被單擊
調試輸出 (取數字_方法壹 (編輯框1.內容))
調試輸出 (取數字_方法二 (編輯框1.內容))