第1个回答 2012-06-08
.版本 2
.支持库 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.内容))