三星缩号 - 精易论坛 - Powered by Discuz!

昨天 22:21 上传

点击文件名下载附件

作者: 小壮在坚持 时间: 昨天 22:47

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

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

作者: Marvin 时间: 昨天 22:53

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

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

作者: Marvin 时间: 昨天 22:56

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

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

作者: 辉仔 时间: 昨天 22:59
拿去吧

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

昨天 22:59 上传

点击文件名下载附件

作者: 华庭大哥 时间: 昨天 23:26

子程序名	返回值类型	公开	备注
_按钮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 />
返回 (结果文本)

作者: 华庭大哥 时间: 昨天 23:26
上楼是代码把文件也发你

三星缩号.e

8.54 KB, 下载次数: 3

作者: cxl 时间: 21 小时前

Marvin 发表于 2026-6-28 22:53
sha是啥意思，还有缩水又是什么意思。。。。

百位数是1这组号码就不要清除掉

作者: RainCharm 时间: 7 小时前
简单易懂

欢迎光临精易论坛 (https://bbs.ijingyi.com/)