易语言 取整数,l例如:文本=3月6号 我只要取出36 得怎么写

我晕倒这么长,虽然看不懂,不过谢谢你的回答!
我自己解决了,原地钱 = 到整数 (文本区分_只取数字 (3月6号))
精易模块

第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.内容))