数字替换符号及统计次数，求助

lianzhong

以下是原文本：
12|71 89 20 01 12
23|26 98 52 63 63
34|58 69 63 23 89
45|52 36 20 45 22
56|63 66 99 88 15
67|12 85 96 76 21

求实现1：每一行竖线左边2个数字在右边对应找到后，用1个符号替换掉右边二码，
如下例子：
12|*   89  *  *  * <-----只要含有1、2的二码用*替换掉
23|*   98  *  *  *
34|58 69  *  *  89
45|*   36 20 *  22
56|*   *   99 88 *
67|12 85  *  *   21

求实现2：*符号在每一竖列中出现几次，把数量统计出来。
如下例子：
12|*   89  *  *  *
23|*   98  *  *  *
34|58 69  *  *  89
45|*   36 20 *  22
56|*   *   99 88 *
67|12 85  *  *  21
                              如第1列有4个*、第2列有1个*...
     4   1   4   5  3   <-----求出符号所出现的次数

走一回

还是在我的源码上改的，你的源码，再去分析，头痛。 文本判断易友.e (5.01 KB, 下载次数: 7)

2023-12-10 22:09 上传

点击文件名下载附件

走一回

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_文本	文本型	0

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

变量名	类 型	静态	数组	备 注
局_文本	文本型
temp1_	文本型		2
i	整数型
n	整数型
局_列计数	整数型		5

局_文本 ＝ 子文本替换 ( #常量1, “|”, “ ”, , , 真)
局_文本 ＝ 子文本替换 (局_文本, #换行符, “ ”, , , 真)
集_文本 ＝ 分割文本 (局_文本, “ ”, )
重定义数组 (集_文本, 真, 取数组成员数 (集_文本) ÷ 6, 6)
计次循环首 (取数组下标 (集_文本, ), i)
temp1_ [1] ＝ 取文本左边 (集_文本 [i] [1], 1)
temp1_ [2] ＝ 取文本右边 (集_文本 [i] [1], 1)
变量循环首 (2, 6, 1, n)
如果真 (寻找文本 (集_文本 [i] [n], temp1_ [1], , 假) ≠ -1 或 寻找文本 (集_文本 [i] [n], temp1_ [2], , 假) ≠ -1)
集_文本 [i] [n] ＝ “*”
局_列计数 [n － 1] ＝ 局_列计数 [n － 1] ＋ 1

变量循环尾 ()
计次循环尾 ()
调试输出 (集_文本)
调试输出 (局_列计数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_文本, 文本型, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_文本, 文本型<br /> .局部变量 temp1_, 文本型, , "2"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 局_列计数, 整数型, , "5"<br /> <br /> 局_文本 ＝ 子文本替换 (#常量1, “|”, “ ”, , , 真)<br /> 局_文本 ＝ 子文本替换 (局_文本, #换行符, “ ”, , , 真)<br /> 集_文本 ＝ 分割文本 (局_文本, “ ”, )<br /> 重定义数组 (集_文本, 真, 取数组成员数 (集_文本) ÷ 6, 6)<br /> .计次循环首 (取数组下标 (集_文本, ), i)<br />     temp1_ [1] ＝ 取文本左边 (集_文本 <i> [1], 1)<br />     temp1_ [2] ＝ 取文本右边 (集_文本 <i> [1], 1)<br />     .变量循环首 (2, 6, 1, n)<br />         .如果真 (寻找文本 (集_文本 <i> [n], temp1_ [1], , 假) ≠ -1 或 寻找文本 (集_文本 <i> [n], temp1_ [2], , 假) ≠ -1)<br />             集_文本 <i> [n] ＝ “*”<br />             局_列计数 [n － 1] ＝ 局_列计数 [n － 1] ＋ 1<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (集_文本)<br /> 调试输出 (局_列计数)

开始运行被调试程序
* 数组:6*6{“12”,“*”,“89”,“*”,“*”,“*”,“23”,“*”,“98”,“*”,“*”,“*”,“34”,“58”,“69”,“*”,“*”,“89”,“45”,“*”,“36”,“20”,“*”,“22”,“56”,“*”,“*”,“99”,“88”,“*”,“67”,“12”,“85”,“*”,“*”,“21”}
* 数组:5{4,1,4,5,3}
被调试易程序运行完毕

风度猫

文本判断.e (954.49 KB, 下载次数: 5)

2023-12-10 20:31 上传

点击文件名下载附件

lianzhong

感谢  @走一回 老师的帮助，目标完全实现！但是我也很苦恼，这个代码我看不懂也拆不开，老师写的逻辑严谨浑然一体，我就像学前班去拆分大学论文复制粘贴都难实现，不是代码的问题更不是注释问题主要是我水平有限，只能识别我认识的一些代码才能拆分所用，再次感谢老师，我先收藏了以后能力提升了在研究。我在另求助一次，两个目标分两次实现。

菜鸟囚徒

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
次数	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
text_1	文本型		0
i	整数型
temp	文本型		0
校验文本	文本型		0
被校验文本	文本型		0
ii	整数型
iii	整数型
校验结果	逻辑型
temp_text	文本型
校验结果_	文本型		0

text_1 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (text_1), i)
清除数组 (校验文本)
清除数组 (被校验文本)
清除数组 (校验结果_)
temp ＝ 分割文本 (text_1 [i], “|”, )
文本_逐字分割 (temp [1], 校验文本)
被校验文本 ＝ 分割文本 (temp [2], “ ”, )
加入成员 (校验结果_, temp [1])
计次循环首 (取数组成员数 (被校验文本), ii)
校验结果 ＝ 假
计次循环首 (取数组成员数 (校验文本), iii)
如果真 (寻找文本 (被校验文本 [ii], 校验文本 [iii], , 假) ≠ -1)
校验结果 ＝ 真
跳出循环 ()

计次循环尾 ()
temp_text ＝ 被校验文本 [ii]
如果真 (校验结果 ＝ 真)
temp_text ＝ “* ”
加入成员 (校验结果_, temp_text)
计次循环尾 ()
输出数据 (校验结果_)
统计次数 (校验结果_)
计次循环尾 ()
编辑框1.加入文本 (次数)

子程序名	返回值类型	公开	备 注
输出数据
参数名	类 型	参考	可空	数组	备 注
数组	文本型

变量名	类 型	静态	数组	备 注
num	双精度小数型
i	整数型
temp	文本型

num ＝ 取数组成员数 (数组) － 1
temp ＝ 数组 [1] ＋ “|”
计次循环首 (num, i)
temp ＝ temp ＋ “ ” ＋ 数组 [i ＋ 1]
计次循环尾 ()
编辑框1.加入文本 (temp ＋ #换行符 )

子程序名	返回值类型	公开	备 注
统计次数
参数名	类 型	参考	可空	数组	备 注
数组	文本型

次数 ＝ 次数 ＋ “ ” ＋ 到文本 (数组_取次数 (数组, “* ”))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 次数, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 text_1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 temp, 文本型, , "0"<br /> .局部变量 校验文本, 文本型, , "0"<br /> .局部变量 被校验文本, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 iii, 整数型<br /> .局部变量 校验结果, 逻辑型<br /> .局部变量 temp_text, 文本型<br /> .局部变量 校验结果_, 文本型, , "0"<br /> <br /> text_1 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (text_1), i)<br />     清除数组 (校验文本)<br />     清除数组 (被校验文本)<br />     清除数组 (校验结果_)<br />     temp ＝ 分割文本 (text_1 <i>, “|”, )<br />     文本_逐字分割 (temp [1], 校验文本)<br />     被校验文本 ＝ 分割文本 (temp [2], “ ”, )<br />     加入成员 (校验结果_, temp [1])<br />     .计次循环首 (取数组成员数 (被校验文本), ii)<br />         校验结果 ＝ 假<br />         .计次循环首 (取数组成员数 (校验文本), iii)<br />             .如果真 (寻找文本 (被校验文本 [ii], 校验文本 [iii], , 假) ≠ -1)<br />                 校验结果 ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         temp_text ＝ 被校验文本 [ii]<br />         .如果真 (校验结果 ＝ 真)<br />             temp_text ＝ “* ”<br />         .如果真结束<br />         加入成员 (校验结果_, temp_text)<br /> <br />     .计次循环尾 ()<br />     输出数据 (校验结果_)<br />     统计次数 (校验结果_)<br /> .计次循环尾 ()<br /> 编辑框1.加入文本 (次数)<br /> <br /> .子程序 输出数据<br /> .参数 数组, 文本型, 数组<br /> .局部变量 num, 双精度小数型<br /> .局部变量 i, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> num ＝ 取数组成员数 (数组) － 1<br /> temp ＝ 数组 [1] ＋ “|”<br /> .计次循环首 (num, i)<br />     temp ＝ temp ＋ “ ” ＋ 数组 [i ＋ 1]<br /> .计次循环尾 ()<br /> 编辑框1.加入文本 (temp ＋ #换行符)<br /> <br /> .子程序 统计次数<br /> .参数 数组, 文本型, 数组<br /> <br /> <br /> 次数 ＝ 次数 ＋ “ ” ＋ 到文本 (数组_取次数 (数组, “* ”))

补充内容 (2023-12-10 22:53):
搞错了 我成是行了

亮蓝色的风

帮大佬加上注释，水平有限，如有错误敬请谅解

  

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

变量名	类 型	静态	数组	备 注
局_文本	文本型
temp1_	文本型		2
i	整数型
n	整数型
局_列计数	整数型		5

局_文本 ＝ 子文本替换 ( #常量1, “|”, “ ”, , , 真) ‘把 | 替换为 空格
局_文本 ＝ 子文本替换 (局_文本, #换行符, “ ”, , , 真)  ' 把 换行符 替换为 空格
' 到此 原文本全部为空格分隔的 2位数字
集_文本 ＝ 分割文本 (局_文本, “ ”, ) ‘按空格分隔 存入数组中 此时为一维数组
重定义数组 (集_文本, 真, 取数组成员数 (集_文本) ÷ 6, 6) ’把数组转为二维数组 维数1为行数 ，维数2为每行数字个数，其中下标1为竖线左侧数字，2-6为竖线右侧数字
计次循环首 (取数组下标 (集_文本, ), i) ' 按行数还是循环  变量I代表行数
temp1_ [1] ＝ 取文本左边 (集_文本 [i] [1], 1) ‘竖线左侧数字第一位
temp1_ [2] ＝ 取文本右边 (集_文本 [i] [1], 1)‘竖线左侧数字第二位
变量循环首 (2, 6, 1, n)  ' 循环 数组第2到第6个，即循环竖线右侧数字
如果真 (寻找文本 (集_文本 [i] [n], temp1_ [1], , 假) ≠ -1 或 寻找文本 (集_文本 [i] [n], temp1_ [2], , 假) ≠ -1)‘判断是否有出现
' 有数字出现
集_文本[i][n] ＝ “*”’将原数字换为*号
局_列计数 [n － 1] ＝ 局_列计数 [n － 1] ＋ 1  ' 将此列出现*号的次数+1

变量循环尾 ()
计次循环尾 ()
调试输出 (集_文本)
调试输出 (局_列计数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_文本, 文本型<br /> .局部变量 temp1_, 文本型, , "2"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 局_列计数, 整数型, , "5"<br /> <br /> 局_文本 ＝ 子文本替换 (#常量1, “|”, “ ”, , , 真) ‘把 | 替换为 空格<br /> 局_文本 ＝ 子文本替换 (局_文本, #换行符, “ ”, , , 真)  ' 把 换行符 替换为 空格<br /> ' 到此 原文本全部为空格分隔的 2位数字<br /> 集_文本 ＝ 分割文本 (局_文本, “ ”, ) ‘按空格分隔 存入数组中 此时为一维数组<br /> 重定义数组 (集_文本, 真, 取数组成员数 (集_文本) ÷ 6, 6) ’把数组转为二维数组 维数1为行数 ，维数2为每行数字个数，其中下标1为竖线左侧数字，2-6为竖线右侧数字<br /> .计次循环首 (取数组下标 (集_文本, ), i)'按行数还是循环  变量I代表行数<br />     temp1_ [1] ＝ 取文本左边 (集_文本 <i> [1], 1) ‘竖线左侧数字第一位<br />     temp1_ [2] ＝ 取文本右边 (集_文本 <i> [1], 1)‘竖线左侧数字第二位<br />     .变量循环首 (2, 6, 1, n)  ' 循环 数组第2到第6个，即循环竖线右侧数字<br />         .如果真 (寻找文本 (集_文本 <i> [n], temp1_ [1], , 假) ≠ -1 或 寻找文本 (集_文本 <i> [n], temp1_ [2], , 假) ≠ -1)‘判断是否有出现<br />             ' 有数字出现<br />             集_文本<i>[n] ＝ “*”’将原数字换为*号<br />             局_列计数 [n － 1] ＝ 局_列计数 [n － 1] ＋ 1  ' 将此列出现*号的次数+1<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (集_文本)<br /> 调试输出 (局_列计数)

菜鸟囚徒

  

变量名	类 型	静态	数组	备 注
按行分割	文本型		0
i	整数型
temp	文本型		0
校验文本	文本型		0
被校验文本	文本型		0
ii	整数型
iii	整数型
校验结果	逻辑型
temp_text	文本型
校验结果_	文本型		0
x	整数型
y	双精度小数型
z	整数型
zz	整数型
次数	整数型

按行分割 ＝ 分割文本 ( #常量1, #换行符, )  ' 按行分割
计次循环首 (取数组成员数 (按行分割), i)
清除数组 (校验文本)
清除数组 (被校验文本)  ' 清空数组
temp ＝ 分割文本 (按行分割 [i], “|”, )  ' 分割出校验的数据和被校验数据
文本_逐字分割 (temp [1], 校验文本)
被校验文本 ＝ 分割文本 (temp [2], “ ”, )
如果真 (i ＝ 1)  ' 根据行列数定义数组
重定义数组 (校验结果_, 假, 取数组成员数 (按行分割), 取数组成员数 (被校验文本) ＋ 1)
校验结果_ [i] [1] ＝ temp [1]  ' 存放校验数据到每一行第一个数组
计次循环首 (取数组成员数 (被校验文本), ii)  ' 取出每一行的每一个被校验数据
temp_text ＝ 被校验文本 [ii]
计次循环首 (取数组成员数 (校验文本), iii)  ' 取出每一个校验数据的字符
如果真 (寻找文本 (被校验文本 [ii], 校验文本 [iii], , 假) ≠ -1)  ' 如果存在校验字符 直接返回，并标记位“*”
temp_text ＝ “* ”
跳出循环 ()

计次循环尾 ()
校验结果_ [i] [ii ＋ 1] ＝ temp_text  ' 存入结果数据
计次循环尾 ()
计次循环尾 ()
x ＝ 取数组成员数 (按行分割)  ' 判断行数、列数
y ＝ 取数组成员数 (校验结果_) ÷ x
计次循环首 (x, z)  ' 输出替换结果
计次循环首 (y, zz)
编辑框1.加入文本 (校验结果_ [z] [zz])
如果 (zz ＝ 1)
编辑框1.加入文本 (“|”)
编辑框1.加入文本 (“ ”)

计次循环尾 ()
编辑框1.加入文本 ( #换行符 )
计次循环尾 ()
编辑框1.加入文本 (“   ”)
计次循环首 (y － 1, z)  ' 输出次数
次数 ＝ 0
计次循环首 (x, zz)
如果真 (校验结果_ [zz] [z ＋ 1] ＝ “* ”)
次数 ＝ 次数 ＋ 1

计次循环尾 ()
编辑框1.加入文本 (到文本 (次数) ＋ “  ”)
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 按行分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 temp, 文本型, , "0"<br /> .局部变量 校验文本, 文本型, , "0"<br /> .局部变量 被校验文本, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 iii, 整数型<br /> .局部变量 校验结果, 逻辑型<br /> .局部变量 temp_text, 文本型<br /> .局部变量 校验结果_, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 y, 双精度小数型<br /> .局部变量 z, 整数型<br /> .局部变量 zz, 整数型<br /> .局部变量 次数, 整数型<br /> <br /> 按行分割 ＝ 分割文本 (#常量1, #换行符, )  ' 按行分割<br /> .计次循环首 (取数组成员数 (按行分割), i)<br />     清除数组 (校验文本)<br />     清除数组 (被校验文本)  ' 清空数组<br />     temp ＝ 分割文本 (按行分割 <i>, “|”, )  ' 分割出校验的数据和被校验数据<br />     文本_逐字分割 (temp [1], 校验文本)<br />     被校验文本 ＝ 分割文本 (temp [2], “ ”, )<br />     .如果真 (i ＝ 1)  ' 根据行列数定义数组<br />         重定义数组 (校验结果_, 假, 取数组成员数 (按行分割), 取数组成员数 (被校验文本) ＋ 1)<br />     .如果真结束<br />     校验结果_ <i> [1] ＝ temp [1]  ' 存放校验数据到每一行第一个数组<br />     .计次循环首 (取数组成员数 (被校验文本), ii)  ' 取出每一行的每一个被校验数据<br />         temp_text ＝ 被校验文本 [ii]<br />         .计次循环首 (取数组成员数 (校验文本), iii)  ' 取出每一个校验数据的字符<br />             .如果真 (寻找文本 (被校验文本 [ii], 校验文本 [iii], , 假) ≠ -1)  ' 如果存在校验字符 直接返回，并标记位“*”<br />                 temp_text ＝ “* ”<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         校验结果_ <i> [ii ＋ 1] ＝ temp_text  ' 存入结果数据<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> x ＝ 取数组成员数 (按行分割)  ' 判断行数、列数<br /> y ＝ 取数组成员数 (校验结果_) ÷ x<br /> .计次循环首 (x, z)  ' 输出替换结果<br />     .计次循环首 (y, zz)<br />         编辑框1.加入文本 (校验结果_ [z] [zz])<br />         .如果 (zz ＝ 1)<br />             编辑框1.加入文本 (“|”)<br />         .否则<br />             编辑框1.加入文本 (“ ”)<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     编辑框1.加入文本 (#换行符)<br /> .计次循环尾 ()<br /> 编辑框1.加入文本 (“   ”)<br /> .计次循环首 (y － 1, z)  ' 输出次数<br />     次数 ＝ 0<br />     .计次循环首 (x, zz)<br />         .如果真 (校验结果_ [zz] [z ＋ 1] ＝ “* ”)<br />             次数 ＝ 次数 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     编辑框1.加入文本 (到文本 (次数) ＋ “  ”)<br /> .计次循环尾 ()

补充内容 (2023-12-10 23:35):
如果行、列固定，校验数据位数固定，可以节省很多代码