文本行的中间数字，高手麻烦帮我写下

pzhjh

文本行的中间数字，高手麻烦帮我写下
里面有源码和意思

初学者1

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框_日期1.内容 ＝ 文本区分_只取数字 (编辑框_姓名日期1.内容)

子程序名	返回值类型	公开	备 注
_按钮5_被单击

编辑框_日期5.内容 ＝ 文本区分_只取数字 (编辑框_姓名日期5.内容)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

编辑框_日期2.内容 ＝ 文本_取出中间文本 (编辑框_姓名日期2.内容, “周杰伦”, “号”)

子程序名	返回值类型	公开	备 注
_按钮3_被单击

编辑框_日期3.内容 ＝ 文本区分_只取数字 (编辑框_姓名日期3.内容)

子程序名	返回值类型	公开	备 注
_按钮4_被单击

编辑框_日期4.内容 ＝ 文本_取出中间文本 (编辑框_姓名日期4.内容, “古力娜扎”, “号”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框_日期1.内容 ＝ 文本区分_只取数字 (编辑框_姓名日期1.内容)<br /> <br /> <br /> .子程序 _按钮5_被单击<br /> <br /> 编辑框_日期5.内容 ＝ 文本区分_只取数字 (编辑框_姓名日期5.内容)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框_日期2.内容 ＝ 文本_取出中间文本 (编辑框_姓名日期2.内容, “周杰伦”, “号”)<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 编辑框_日期3.内容 ＝ 文本区分_只取数字 (编辑框_姓名日期3.内容)<br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 编辑框_日期4.内容 ＝ 文本_取出中间文本 (编辑框_姓名日期4.内容, “古力娜扎”, “号”)

偶来了

花个界面让人做软件 无语

り铕靺╮铕樣﹏

.版本 2
.子程序 只取数字, 文本型
.参数 文本xx, 文本型
.局部变量 临时xx, 字节集
.局部变量 返回xx, 文本型
.局部变量 i

临时xx ＝ 到字节集 (文本xx)
.计次循环首 (取字节集长度 (临时xx), i)
    .如果真 (临时xx ≥ 48 且 临时xx ≤ 59 或 临时xx ＝ 45)
        返回xx ＝ 返回xx ＋ 字符 (临时xx )
    .如果真结束
.计次循环尾 ()
返回 (返回xx)

.子程序 _按钮1_被单击
编辑框_日期1.内容 ＝ 只取数字 (编辑框_姓名日期1.内容)
.子程序 _按钮5_被单击
编辑框_日期5.内容 ＝ 只取数字 (编辑框_姓名日期5.内容)
.子程序 _按钮2_被单击
编辑框_日期2.内容 ＝ 只取数字 (编辑框_姓名日期2.内容)
.子程序 _按钮3_被单击
编辑框_日期3.内容 ＝ 只取数字 (编辑框_姓名日期3.内容)
.子程序 _按钮4_被单击
编辑框_日期4.内容 ＝ 只取数字 (编辑框_姓名日期4.内容)
.子程序 _按钮6_被单击
编辑框_日期6.内容 ＝ 只取数字 (编辑框_姓名日期6.内容)
.子程序 _按钮7_被单击
编辑框_日期7.内容 ＝ 只取数字 (编辑框_姓名日期7.内容)

源码.e (8.88 KB, 下载次数: 1)

2019-12-11 19:24 上传

点击文件名下载附件

风间大人

写好了    只写了一个 剩下的你照着抄 就行了
源码.e (838.87 KB, 下载次数: 0)

2019-12-11 20:21 上传

点击文件名下载附件