取数字串中的几位数字

fjsystem

按钮操作，将上边长串数字忽略前3位和后3位，取出中间的817161514，呈现在下框中。望指教，谢谢。

RainCharm

.版本 2

.子程序 _按钮1_被单击
.局部变量 a, 文本型

a ＝ 文本_删左边 (编辑框1.内容, 3)
a ＝ 文本_删右边 (a, 3)

编辑框2.内容 ＝ a

wtuapskhgm

取文本中间（A,3,取文本长度（）-3）

补充内容 (2026-4-28 22:04):

取文本中间（编辑框1.内容,3,取文本长度（编辑框1.内容）-3）

是永乐哟

  

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

变量名	类 型	静态	数组	备 注
原始文本	文本型
结果文本	文本型

原始文本 ＝ 编辑框1.内容
如果真 (取文本长度 (原始文本) ≥ 6)
结果文本 ＝ 取文本中间 (原始文本, 4, 取文本长度 (原始文本) － 6)
编辑框2.内容 ＝ 结果文本

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原始文本, 文本型<br /> .局部变量 结果文本, 文本型<br /> <br /> 原始文本 ＝ 编辑框1.内容<br /> .如果真 (取文本长度 (原始文本) ≥ 6)<br />     结果文本 ＝ 取文本中间 (原始文本, 4, 取文本长度 (原始文本) － 6)<br />     编辑框2.内容 ＝ 结果文本

修改后的源码.e (3.3 KB, 下载次数: 0)

2026-4-28 22:57 上传

点击文件名下载附件

bttp0059

哟 各显神通啊 那我也来一个

  

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

变量名	类 型	静态	数组	备 注
源文本	文本型
i	整数型
内容	文本型

源文本 ＝ “5124512144512”
调试输出 (“常规方式:”, 取文本中间 (源文本, 4, 取文本长度 (源文本) － 6))  ' 从第4位开始拿 ,忽略前3位 后3位 文本长度一共忽略6位  ,这个没问题
内容 ＝ “”
变量循环首 (1, 取文本长度 (源文本) － 3, 1, i)
如果真 (i ＞ 3)
内容 ＝ 内容 ＋ 取文本中间 (源文本, i, 1)

变量循环尾 ()
调试输出 (“方式6666:”, 内容)
' * “常规方式:” | “4512144”
' * “方式6666:” | “4512144”

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 源文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 内容, 文本型<br /> <br /> 源文本 ＝ “5124512144512”<br /> <br /> <br /> 调试输出 (“常规方式:”, 取文本中间 (源文本, 4, 取文本长度 (源文本) － 6))  ' 从第4位开始拿 ,忽略前3位 后3位 文本长度一共忽略6位  ,这个没问题<br /> <br /> 内容 ＝ “”<br /> .变量循环首 (1, 取文本长度 (源文本) － 3, 1, i)<br />     .如果真 (i ＞ 3)<br />         内容 ＝ 内容 ＋ 取文本中间 (源文本, i, 1)<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 调试输出 (“方式6666:”, 内容)<br /> ' * “常规方式:” | “4512144”<br /> ' * “方式6666:” | “4512144”

成御

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 源文本, 文本型
.局部变量 i, 整数型
.局部变量 内容, 文本型

源文本 ＝ “5124512144512”


调试输出 (“常规方式:”, 取文本中间 (源文本, 4, 取文本长度 (源文本) － 6))  ' 从第4位开始拿 ,忽略前3位 后3位 文本长度一共忽略6位  ,这个没问题

内容 ＝ “”
.变量循环首 (1, 取文本长度 (源文本) － 3, 1, i)
    .如果真 (i ＞ 3)
        内容 ＝ 内容 ＋ 取文本中间 (源文本, i, 1)
    .如果真结束

.变量循环尾 ()
调试输出 (“方式6666:”, 内容)
' * “常规方式:” | “4512144”
' * “方式6666:” | “4512144”

崽崽啊

这还是20年注册的吗