三星缩号

小壮在坚持

把百十个号位置的号码sha掉，缩水到编辑框3里面

Marvin

11.e (7.62 KB, 下载次数: 1)

昨天 22:21 上传

点击文件名下载附件

小壮在坚持

Marvin 发表于 2026-6-28 22:21

这个只能sha百位的，我的意思百十个一起sha

Marvin

小壮在坚持 发表于 2026-6-28 22:47
这个只能sha百位的，我的意思百十个一起sha

sha是啥意思，还有缩水又是什么意思。。。。

Marvin

小壮在坚持 发表于 2026-6-28 22:47
这个只能sha百位的，我的意思百十个一起sha

描述不清楚，看不懂你要干嘛，是杀掉还是删掉，如果是删的话，按什么逻辑删。。。

辉仔

拿去吧 Desktop.rar (2.84 KB, 下载次数: 2)

昨天 22:59 上传

点击文件名下载附件

华庭大哥

  

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

编辑框5.内容 ＝ 过滤号码 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容)

子程序名	返回值类型	公开	备 注
过滤号码	文本型
参数名	类 型	参考	可空	数组	备 注
原始列表	文本型
禁止百位	文本型
禁止十位	文本型
禁止个位	文本型

变量名	类 型	静态	数组	备 注
分割数组	文本型		0
结果数组	文本型		0
当前号码	文本型
i	整数型
百位	文本型
十位	文本型
个位	文本型

分割数组 ＝ 分割文本 (原始列表, “,”, )
计次循环首 (取数组成员数 (分割数组), i)
当前号码 ＝ 分割数组 [i]
如果真 (取文本长度 (当前号码) ＝ 3)  ' 确保是三位数
百位 ＝ 取文本中间 (当前号码, 1, 1)
十位 ＝ 取文本中间 (当前号码, 2, 1)
个位 ＝ 取文本中间 (当前号码, 3, 1)
如果真 (百位 ≠ 禁止百位 且 十位 ≠ 禁止十位 且 个位 ≠ 禁止个位)
加入成员 (结果数组, 当前号码)


计次循环尾 ()
返回 (数组转文本 (结果数组, “,”))

子程序名	返回值类型	公开	备 注
数组转文本	文本型
参数名	类 型	参考	可空	数组	备 注
文本数组	文本型
分隔符	文本型

变量名	类 型	静态	数组	备 注
i	整数型
结果文本	文本型
长度	整数型

长度 ＝ 取数组成员数 (文本数组)
如果真 (长度 ＝ 0)
返回 (“”)
结果文本 ＝ “”
计次循环首 (长度, i)
结果文本 ＝ 结果文本 ＋ 文本数组 [i]
如果真 (i ＜ 长度)
结果文本 ＝ 结果文本 ＋ 分隔符

计次循环尾 ()
返回 (结果文本)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框5.内容 ＝ 过滤号码 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容)<br /> <br /> .子程序 过滤号码, 文本型, 公开<br /> .参数 原始列表, 文本型, ,  <br /> .参数 禁止百位, 文本型, ,  <br /> .参数 禁止十位, 文本型, ,  <br /> .参数 禁止个位, 文本型, ,  <br /> .局部变量 分割数组, 文本型, , "0"<br /> .局部变量 结果数组, 文本型, , "0"<br /> .局部变量 当前号码, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 百位, 文本型<br /> .局部变量 十位, 文本型<br /> .局部变量 个位, 文本型<br /> <br /> 分割数组 ＝ 分割文本 (原始列表, “,”, )<br /> .计次循环首 (取数组成员数 (分割数组), i)<br /> <br />     当前号码 ＝ 分割数组 <i><br />     .如果真 (取文本长度 (当前号码) ＝ 3)  ' 确保是三位数<br />         百位 ＝ 取文本中间 (当前号码, 1, 1)<br />         十位 ＝ 取文本中间 (当前号码, 2, 1)<br />         个位 ＝ 取文本中间 (当前号码, 3, 1)<br />         .如果真 (百位 ≠ 禁止百位 且 十位 ≠ 禁止十位 且 个位 ≠ 禁止个位)<br />             加入成员 (结果数组, 当前号码)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (数组转文本 (结果数组, “,”))<br /> <br /> .子程序 数组转文本, 文本型, 公开<br /> .参数 文本数组, 文本型, 数组<br /> .参数 分隔符, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 结果文本, 文本型<br /> .局部变量 长度, 整数型<br /> <br /> 长度 ＝ 取数组成员数 (文本数组)<br /> .如果真 (长度 ＝ 0)<br />     返回 (“”)<br /> .如果真结束<br /> 结果文本 ＝ “”<br /> .计次循环首 (长度, i)<br />     结果文本 ＝ 结果文本 ＋ 文本数组 <i><br />     .如果真 (i ＜ 长度)<br />         结果文本 ＝ 结果文本 ＋ 分隔符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (结果文本)

华庭大哥

上楼是代码  把文件也发你