50精币获取数据和上一条重复,如何过滤!附上源码

疯狂的猿猴

问题描述:
我给每个昵称 循环发送完成了后, 下一个周期循环 就无法判断是否重复!
例如:
昵称:A 分配API: W1,W2
昵称:B 分配API:W1
循环给他们发送!
第一个周期 都发送了,第二个周期,发现重复就不发送,可问题就出来 后面几个周期 依旧会发送重复内容!
附上源码
222222.rar (216.26 KB, 下载次数: 10)

2019-10-5 20:40 上传

点击文件名下载附件

yuewe

这段子程序改下就可以了

  

子程序名	返回值类型	公开	备 注
发送的过程

变量名	类 型	静态	数组	备 注
i	整数型
群fa昵称	文本型
群faAPI	文本型
临时文本_数组	文本型		0
ii	整数型
聊天内容	文本型
历史_表项	整数型

循环判断首 ()
计次循环首 (超级列表框_分配完成.取表项数 (), i)
调试输出 (“表项数” ＋ 到文本 (超级列表框_分配完成.取表项数 ()) ＋ “   ” ＋ 到文本 (i))
群fa昵称 ＝ 超级列表框_分配完成.取标题 (i － 1, 0)
群faAPI ＝ 超级列表框_分配完成.取标题 (i － 1, 1)
如果真 (寻找是否重复 (群fa昵称, 聊天内容))
到循环尾 ()
临时文本_数组 ＝ 分割文本 (群faAPI, “|”, )
计次循环首 (取数组成员数 (临时文本_数组), ii)
聊天内容 ＝ 通用_读取API内容 (临时文本_数组 [ii])
历史_表项 ＝ 超级列表框_历史内容.插入表项 (, , , , , )
超级列表框_历史内容.置标题 (历史_表项, 0, 群fa昵称)
超级列表框_历史内容.置标题 (历史_表项, 1, 聊天内容)
计次循环尾 ()
计次循环尾 ()
程序_延时 (5, 1)
循环判断尾 (超级列表框_分配完成.取表项数 () ＝ i)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 发送的过程<br /> .局部变量 i, 整数型<br /> .局部变量 群fa昵称, 文本型<br /> .局部变量 群faAPI, 文本型<br /> .局部变量 临时文本_数组, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 聊天内容, 文本型<br /> .局部变量 历史_表项, 整数型<br /> <br /> <br /> .循环判断首 ()<br />     .计次循环首 (超级列表框_分配完成.取表项数 (), i)<br />         调试输出 (“表项数” ＋ 到文本 (超级列表框_分配完成.取表项数 ()) ＋ “   ” ＋ 到文本 (i))<br />         群fa昵称 ＝ 超级列表框_分配完成.取标题 (i － 1, 0)<br />         群faAPI ＝ 超级列表框_分配完成.取标题 (i － 1, 1)<br />         .如果真 (寻找是否重复 (群fa昵称, 聊天内容))<br />             到循环尾 ()<br />         .如果真结束<br />         临时文本_数组 ＝ 分割文本 (群faAPI, “|”, )<br />         .计次循环首 (取数组成员数 (临时文本_数组), ii)<br />             聊天内容 ＝ 通用_读取API内容 (临时文本_数组 [ii])<br />             历史_表项 ＝ 超级列表框_历史内容.插入表项 (, , , , , )<br />             超级列表框_历史内容.置标题 (历史_表项, 0, 群fa昵称)<br />             超级列表框_历史内容.置标题 (历史_表项, 1, 聊天内容)<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br />     程序_延时 (5, 1)<br /> .循环判断尾 (超级列表框_分配完成.取表项数 () ＝ i)

列明

這個一定行！你改一下（寻找是否重复）這個子程序，按照我給你傳的你試一下，肯定行，不行再回我，我再找找原因。我覺得已經可以了！

.版本 2
.支持库 iext
.支持库 spec

.子程序 寻找是否重复列明修改版, 逻辑型, , 真:昵称相同,假:昵称不同
.参数 参_昵称, 文本型
.参数 参_聊天内容, 文本型
.局部变量 局_聊天内容_表项, 整数型
.局部变量 局_群fa昵称, 文本型
.局部变量 查找起始位置, 整数型
.局部变量 查找循環計次, 整数型

查找起始位置 ＝ 0
局_聊天内容_表项 ＝ 1
.判断循环首 (0 ＜ 局_聊天内容_表项)
    局_聊天内容_表项 ＝ 超级列表框_历史内容.查找表项 (参_聊天内容, 查找起始位置, , 1)
    局_群fa昵称 ＝ 超级列表框_历史内容.取标题 (局_聊天内容_表项, 0)
    .判断开始 (局_群fa昵称 ＝ 参_昵称)
        调试输出 (“发现重复”, 参_昵称)
        返回 (真)
    .默认
        调试输出 (“還沒找到重复，不過正在找。。。”, 参_昵称)
    .判断结束
    查找起始位置 ＝ 局_聊天内容_表项
.判断循环尾 ()
调试输出 (“沒找到重复，實在找不到。。。”, 参_昵称)
返回 (假)

疯狂的猿猴

列明 发表于 2019-10-5 23:09
這個一定行！你改一下（寻找是否重复）這個子程序，按照我給你傳的你試一下，肯定行，不行再回我，我再找找 ...

哥,还是不行,求联系方式!

疯狂的猿猴

我自己搞定了!
正确写法如下!

  

子程序名	返回值类型	公开	备 注
寻找是否重复	逻辑型		真:昵称相同,假:昵称不同
参数名	类 型	参考	可空	数组	备 注
参_昵称	文本型
参_聊天内容	文本型

变量名	类 型	静态	数组	备 注
局_历史内容	文本型
局_历史昵称	文本型
i	整数型

计次循环首 (超级列表框_历史内容.取表项数 (), i)
局_历史昵称 ＝ 超级列表框_历史内容.取标题 (i － 1, 0)
局_历史内容 ＝ 超级列表框_历史内容.取标题 (i － 1, 1)
如果真 (局_历史内容 ＝ 参_聊天内容)
如果真 (局_历史昵称 ＝ 参_昵称)
调试输出 (“发现重复”)
返回 (真)  ' 聊天内容和昵称一致,重复


计次循环尾 ()
调试输出 (“全找了,没有重复”)
返回 (假)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 寻找是否重复, 逻辑型, , 真:昵称相同,假:昵称不同<br /> .参数 参_昵称, 文本型<br /> .参数 参_聊天内容, 文本型<br /> .局部变量 局_历史内容, 文本型<br /> .局部变量 局_历史昵称, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框_历史内容.取表项数 (), i)<br />     局_历史昵称 ＝ 超级列表框_历史内容.取标题 (i － 1, 0)<br />     局_历史内容 ＝ 超级列表框_历史内容.取标题 (i － 1, 1)<br />     .如果真 (局_历史内容 ＝ 参_聊天内容)<br />         .如果真 (局_历史昵称 ＝ 参_昵称)<br />             调试输出 (“发现重复”)<br />             返回 (真)  ' 聊天内容和昵称一致,重复<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (“全找了,没有重复”)<br /> 返回 (假)

列明

疯狂的猿猴 发表于 2019-10-7 16:13
我自己搞定了!
正确写法如下!
[e=0].版本 2

。。。。超級列表框的查找表項找不到的話，我也不知道為什麽了。你這一個個自己判斷確實保險。