文本怎么去重复

大大张

文本1是：3344556677MMNN文本2是：344M

如何让文本1 减去文本2

也就是结果
3556677MNN

fireandice

子文本替换

路人丁20

点退格键删除一个4和一个M不就好了

大大张

路人丁20 发表于 2025-4-20 20:44
点退格键删除一个4和一个M不就好了

我要程序代码

神女软件定制

  

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

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

变量名	类 型	静态	数组	备 注
s	文本型
s2	文本型
i	整数型

s ＝ “3344556677MMNN”
s2 ＝ “344M”
计次循环首 (取文本长度 (s2), i)
s ＝ 子文本替换 (s, 取文本中间 (s2, i, 1), , , 1, 真)
计次循环尾 ()
调试输出 (s)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 s, 文本型<br /> .局部变量 s2, 文本型<br /> .局部变量 i, 整数型<br /> <br /> s ＝ “3344556677MMNN”<br /> s2 ＝ “344M”<br /> .计次循环首 (取文本长度 (s2), i)<br />     s ＝ 子文本替换 (s, 取文本中间 (s2, i, 1), , , 1, 真)<br /> .计次循环尾 ()<br /> 调试输出 (s)

samll88

  

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

变量名	类 型	静态	数组	备 注
文本1	文本型
文本2	文本型
数组	文本型		0
i	整数型

文本1 ＝ “3344556677MMNN”
文本2 ＝ “344M”
文本_逐字分割 (文本2, 数组)
计次循环首 (取数组成员数 (数组), i)
文本1 ＝ 子文本替换 (文本1, 数组 [i], “”, , 1, 真)
计次循环尾 ()
调试输出 (文本1)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本1, 文本型<br /> .局部变量 文本2, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本1 ＝ “3344556677MMNN”<br /> 文本2 ＝ “344M”<br /> 文本_逐字分割 (文本2, 数组)<br /> .计次循环首 (取数组成员数 (数组), i)<br />     文本1 ＝ 子文本替换 (文本1, 数组 <i>, “”, , 1, 真)<br /> .计次循环尾 ()<br /> 调试输出 (文本1)

凌哥

文本精确去重

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

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

结果文本 ＝ 文本_精确去重 (“3344556677MMNN”, “344M”)
调试输出 (“结果：” ＋ 结果文本)  ' 输出：3556677MNN
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文本_精确去重	文本型		移除文本1中包含文本2字符的对应数量
参数名	类 型	参考	可空	数组	备 注
文本1	文本型
文本2	文本型

变量名	类 型	静态	数组	备 注
数组1	文本型		0
数组2	文本型		0
统计表	整数型		256
i	整数型
ascii码	整数型
结果数组	文本型		0

' 【步骤1】分割字符
文本_逐字分割 (文本2, 数组2)
文本_逐字分割 (文本1, 数组1)
' 【步骤2】统计文本2字符出现次数
计次循环首 (取数组成员数 (数组2), i)
ascii码 ＝ 取代码 (数组2 [i], )
如果真 (ascii码 ≥ 0 且 ascii码 ≤ 255)
统计表 [ascii码] ＝ 统计表 [ascii码] ＋ 1

计次循环尾 ()
' 【步骤3】过滤文本1字符
计次循环首 (取数组成员数 (数组1), i)
ascii码 ＝ 取代码 (数组1 [i], )
如果真 (ascii码 ≥ 0 且 ascii码 ≤ 255)
如果 (统计表 [ascii码] ≤ 0)
加入成员 (结果数组, 数组1 [i])
统计表 [ascii码] ＝ 统计表 [ascii码] － 1


计次循环尾 ()
' 【步骤4】合并结果
返回 (数组_合并 (结果数组, ))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 结果文本, 文本型<br /> <br /> 结果文本 ＝ 文本_精确去重 (“3344556677MMNN”, “344M”)<br /> 调试输出 (“结果：” ＋ 结果文本)  ' 输出：3556677MNN<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文本_精确去重, 文本型, 公开, 移除文本1中包含文本2字符的对应数量<br /> .参数 文本1, 文本型<br /> .参数 文本2, 文本型<br /> .局部变量 数组1, 文本型, , "0"<br /> .局部变量 数组2, 文本型, , "0"<br /> .局部变量 统计表, 整数型, , "256"<br /> .局部变量 i, 整数型<br /> .局部变量 ascii码, 整数型<br /> .局部变量 结果数组, 文本型, , "0"<br /> <br /> ' 【步骤1】分割字符<br /> 文本_逐字分割 (文本2, 数组2)<br /> 文本_逐字分割 (文本1, 数组1)<br /> <br /> ' 【步骤2】统计文本2字符出现次数<br /> .计次循环首 (取数组成员数 (数组2), i)<br />     ascii码 ＝ 取代码 (数组2 <i>, )<br />     .如果真 (ascii码 ≥ 0 且 ascii码 ≤ 255)<br />         统计表 [ascii码] ＝ 统计表 [ascii码] ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 【步骤3】过滤文本1字符<br /> .计次循环首 (取数组成员数 (数组1), i)<br />     ascii码 ＝ 取代码 (数组1 <i>, )<br />     .如果真 (ascii码 ≥ 0 且 ascii码 ≤ 255)<br />         .如果 (统计表 [ascii码] ≤ 0)<br />             加入成员 (结果数组, 数组1 <i>)<br />         .否则<br />             统计表 [ascii码] ＝ 统计表 [ascii码] － 1<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 【步骤4】合并结果<br /> 返回 (数组_合并 (结果数组, ))

文本精确去重.e (957.13 KB, 下载次数: 3, 售价: 2 枚 精币)

2025-4-20 23:37 上传

点击文件名下载附件
https://yuanqi.tencent.com/share/qblN4a07c4kX?shareId=wYt1v8CymVlU