多组数据替换关键字

天使与恶魔

比如：今天是我不好对不对    今天是我不好是不是
多组数据内容：（对不对|是不是|合理吗|认同吗|认可吗）  （喜喜|哈哈|小马|小哥|可以吗）  （直至|呜呜|看花|看海|嘿嘿）
今天是我不好是不是  今天是我不好认同吗
今天是我不好合理吗  今天是我不好对不对
就是句子里面的内容里面包含了关键字就替换分割带有内容里面随机的数据，
如果句子是：今天是我不好对不对   就会从这几组数据里面去寻找有关键词的句子替换成这组随机内容（对不对|是不是|合理吗|认同吗|认可吗）  （喜喜|哈哈|小马|小哥|可以吗）  （直至|呜呜|看花|看海|嘿嘿） 如果都没有那就不用替换
.版本 2
.支持库 spec

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

调试输出 (demo (“今天是我不好对不对    今天是我不好是不是”, “对不对|是不是|合理吗|认同吗|认可吗”))
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 demo, 文本型
.参数 text, 文本型
.参数 keyWord, 文本型, , |分割
.局部变量 keyWords, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 str, 文本型
.局部变量 n, 整数型

' 比如：今天是我不好对不对    今天是我不好是不是
' 要分割的内容（对不对|是不是|合理吗|认同吗|认可吗）
' 今天是我不好是不是  今天是我不好认同吗
' 今天是我不好合理吗  今天是我不好对不对
keyWords ＝ 分割文本 (keyWord, “|”, )
.如果真 (取数组成员数 (keyWords) ＝ 0)
    返回 (text)
.如果真结束
str ＝ text
.计次循环首 (取数组成员数 (keyWords), i)
    .判断循环首 (寻找文本 (str, keyWords <i>, , 假) ≠ -1)
        n ＝ n ＋ 1
        str ＝ 子文本替换 (str, keyWords <i>, “{GuanYin_” ＋ 到文本 (n) ＋ “}”, , 1, 真)
    .判断循环尾 ()
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (n, i)
    str ＝ 子文本替换 (str, “{GuanYin_” ＋ 到文本 (i) ＋ “}”, keyWords [取随机数 (1, 取数组成员数 (keyWords))], , 1, 真)
.计次循环尾 ()
返回 (str)

这个代码要怎么修改 让它判断多组数据内容里面是否包括了关键词 替换掉呢  

zz1318

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
源文本	文本型		0
替换后的文本	文本型		0
i	整数型
关键字	文本型		0
分割1	文本型		0
分割2	文本型		0
z	整数型
s	整数型
b	整数型
data	文本型

置随机数种子 ()
源文本 ＝ { “今天是我不好是不是 今天是我不好认同吗”, “今天是我不好合理吗 今天是我不好对不对” }
关键字 ＝ { “对不对|是不是|合理吗|认同吗|认可吗”, “喜喜|哈哈|小马|小哥|可以吗”, “直至|呜呜|看花|看海|嘿嘿” }
计次循环首 (取数组成员数 (源文本), i)
清除数组 (分割1)
分割1 ＝ 分割文本 (源文本 [i], “ ”, )
计次循环首 (取数组成员数 (分割1), b)
计次循环首 (取数组成员数 (关键字), z)
清除数组 (分割2)
分割2 ＝ 分割文本 (关键字 [z], “|”, )
计次循环首 (取数组成员数 (分割2), s)
如果真 (寻找文本 (分割1 [b], 分割2 [s], , 假) ≠ -1)
分割1 [b] ＝ 子文本替换 (分割1 [b], 分割2 [s], 分割2 [取随机数 (1, 取数组成员数 (分割2))], , , 真)

计次循环尾 ()
计次循环尾 ()
data ＝ data ＋ 分割1 [b] ＋ “ ”
计次循环尾 ()
加入成员 (替换后的文本, data)
data ＝ “”
计次循环尾 ()
调试输出 (替换后的文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 源文本, 文本型, , "0"<br /> .局部变量 替换后的文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 关键字, 文本型, , "0"<br /> .局部变量 分割1, 文本型, , "0"<br /> .局部变量 分割2, 文本型, , "0"<br /> .局部变量 z, 整数型<br /> .局部变量 s, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 data, 文本型<br /> <br /> 置随机数种子 ()<br /> 源文本 ＝ { “今天是我不好是不是 今天是我不好认同吗”, “今天是我不好合理吗 今天是我不好对不对” }<br /> 关键字 ＝ { “对不对|是不是|合理吗|认同吗|认可吗”, “喜喜|哈哈|小马|小哥|可以吗”, “直至|呜呜|看花|看海|嘿嘿” }<br /> .计次循环首 (取数组成员数 (源文本), i)<br />     清除数组 (分割1)<br />     分割1 ＝ 分割文本 (源文本 <i>, “ ”, )<br />     .计次循环首 (取数组成员数 (分割1), b)<br /> <br />         .计次循环首 (取数组成员数 (关键字), z)<br />             清除数组 (分割2)<br />             分割2 ＝ 分割文本 (关键字 [z], “|”, )<br />             .计次循环首 (取数组成员数 (分割2), s)<br />                 .如果真 (寻找文本 (分割1 <strong>, 分割2 <strike>, , 假) ≠ -1)<br />                     分割1 <strong> ＝ 子文本替换 (分割1 <strong>, 分割2 <strike>, 分割2 [取随机数 (1, 取数组成员数 (分割2))], , , 真)<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br /> <br />         .计次循环尾 ()<br />         data ＝ data ＋ 分割1 <strong> ＋ “ ”<br />     .计次循环尾 ()<br />     加入成员 (替换后的文本, data)<br />     data ＝ “”<br /> .计次循环尾 ()<br /> 调试输出 (替换后的文本)

究极循环

菜小菜

循环遍历改

菜鸟囚徒

多组数据是什么意思

菜小菜

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
源文本	文本型		0
i	整数型
检测关键字1	文本型		0
检测关键字2	文本型		0
检测关键字3	文本型		0
u	整数型

置随机数种子 ()
源文本 ＝ { “今天是我不好是不是 今天是我不好认同吗”, “今天是我不好合理吗 今天是我不好对不对” }
检测关键字1 ＝ { “对不对”, “是不是”, “合理吗”, “认同吗”, “认可吗” }
检测关键字2 ＝ { “喜喜”, “哈哈”, “小马”, “小哥”, “可以吗” }
检测关键字3 ＝ { “直至”, “呜呜”, “看花”, “看海”, “嘿嘿” }
计次循环首 (取数组成员数 (源文本), i)
' 遍历关键字1的数组
计次循环首 (取数组成员数 (检测关键字1), u)
如果真 (寻找文本 (源文本 [i], 检测关键字1 [u], , 假) ＞ -1)
源文本 [i] ＝ 子文本替换 (源文本 [i], 检测关键字1 [u], 检测关键字1 [取随机数 (1, 取数组成员数 (检测关键字1))], , , 真)

计次循环尾 ()
计次循环首 (取数组成员数 (检测关键字2), u)
如果真 (寻找文本 (源文本 [i], 检测关键字2 [u], , 假) ＞ -1)
源文本 [i] ＝ 子文本替换 (源文本 [i], 检测关键字2 [u], 检测关键字2 [取随机数 (1, 取数组成员数 (检测关键字2))], , , 真)

计次循环尾 ()
计次循环首 (取数组成员数 (检测关键字3), u)
如果真 (寻找文本 (源文本 [i], 检测关键字3 [u], , 假) ＞ -1)
源文本 [i] ＝ 子文本替换 (源文本 [i], 检测关键字3 [u], 检测关键字3 [取随机数 (1, 取数组成员数 (检测关键字3))], , , 真)

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (源文本), i)
输出调试文本 (源文本 [i])
计次循环尾 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 源文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 检测关键字1, 文本型, , "0"<br /> .局部变量 检测关键字2, 文本型, , "0"<br /> .局部变量 检测关键字3, 文本型, , "0"<br /> .局部变量 u, 整数型<br /> <br /> 置随机数种子 ()<br /> 源文本 ＝ { “今天是我不好是不是 今天是我不好认同吗”, “今天是我不好合理吗 今天是我不好对不对” }<br /> 检测关键字1 ＝ { “对不对”, “是不是”, “合理吗”, “认同吗”, “认可吗” }<br /> 检测关键字2 ＝ { “喜喜”, “哈哈”, “小马”, “小哥”, “可以吗” }<br /> 检测关键字3 ＝ { “直至”, “呜呜”, “看花”, “看海”, “嘿嘿” }<br /> .计次循环首 (取数组成员数 (源文本), i)<br />     ' 遍历关键字1的数组<br />     .计次循环首 (取数组成员数 (检测关键字1), u)<br />         .如果真 (寻找文本 (源文本 <i>, 检测关键字1 <u>, , 假) ＞ -1)<br />             源文本 <i> ＝ 子文本替换 (源文本 <i>, 检测关键字1 <u>, 检测关键字1 [取随机数 (1, 取数组成员数 (检测关键字1))], , , 真)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (取数组成员数 (检测关键字2), u)<br />         .如果真 (寻找文本 (源文本 <i>, 检测关键字2 <u>, , 假) ＞ -1)<br />             源文本 <i> ＝ 子文本替换 (源文本 <i>, 检测关键字2 <u>, 检测关键字2 [取随机数 (1, 取数组成员数 (检测关键字2))], , , 真)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (取数组成员数 (检测关键字3), u)<br />         .如果真 (寻找文本 (源文本 <i>, 检测关键字3 <u>, , 假) ＞ -1)<br />             源文本 <i> ＝ 子文本替换 (源文本 <i>, 检测关键字3 <u>, 检测关键字3 [取随机数 (1, 取数组成员数 (检测关键字3))], , , 真)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> <br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (源文本), i)<br />     输出调试文本 (源文本 <i>)<br /> .计次循环尾 ()

这样？

天使与恶魔

菜小菜 发表于 2024-3-6 10:52
[e=0].版本 2

.子程序 子程序1

检测关键字 很多组 要怎么用一段代码实现呢 而不是这样写很多循环

菜小菜

天使与恶魔 发表于 2024-3-6 11:03
检测关键字 很多组 要怎么用一段代码实现呢 而不是这样写很多循环

……自己封装呗

天使与恶魔

菜小菜 发表于 2024-3-6 11:04
……自己封装呗

上年纪了就是学不懂这个  很多年前就加入这个论坛了  到现在也没学懂什么  逻辑问题不会 脑筋有点死板

明天自然醒

用E2EE的文本过滤器，我觉得应该是最快的