|

我死循环 检测微信 最新信息 json 检测到20多条信息 就不在把最新的信息插入超级列表框了 正则可以检测到98条
大神帮我看看什么问题
json
json. 解析 (fh ) 计次循环首 (json. 成员数 (“AddMsgList[0]”), i ) MsgId = json. 取通用属性 (“AddMsgList[” + 到文本 (i - 1 ) + “].MsgId”) FromUserName = json. 取通用属性 (“AddMsgList[” + 到文本 (i - 1 ) + “].FromUserName”) Content = json. 取通用属性 (“AddMsgList[” + 到文本 (i - 1 ) + “].Content”) 判断 (MsgId ≠ “”)  判断 (寻找文本 (Content, “<msg> <op id=”, , 假) = -1)    判断 (_启动窗口.超级列表框1. 查找表项 (MsgId, , 真, 5 ) = -1 )    查找位置 = _启动窗口.超级列表框2. 查找表项 (FromUserName, 查找位置 + 1, 真, 1 )    微信名 = _启动窗口.超级列表框2. 取标题 (查找位置, 0 )    分割 = 分割文本 (Content, “: ”, )     sy = _启动窗口.超级列表框1. 插入表项 (, 到文本 (_启动窗口.超级列表框1. 取表项数 () + 1 ), , , , )    如果真 (取数组成员数 (分割 ) = 1 )     _启动窗口.超级列表框1. 置标题 (sy, 2, FromUserName )     _启动窗口.超级列表框1. 置标题 (sy, 3, Content )    如果真 (取数组成员数 (分割 ) = 2 )     _启动窗口.超级列表框1. 置标题 (sy, 2, 分割 [1 ])     _启动窗口.超级列表框1. 置标题 (sy, 3, 分割 [2 ])   _启动窗口.超级列表框1.置标题 (sy, 1, 微信名)    _启动窗口.超级列表框1. 置标题 (sy, 4, “未回复”)    _启动窗口.超级列表框1. 置标题 (sy, 5, MsgId )                               调试输出 (MsgId, FromUserName, Content ) 计次循环尾 ()
'===========================
正则
计次循环首 (正则. 取匹配数量 (), i ) MsgId = 正则. 取子匹配文本 (i, 1 ) Name = 正则. 取子匹配文本 (i, 2 ) 如果真 (_启动窗口.超级列表框1. 查找表项 (MsgId, , 真, 5 ) = -1 )  计次循环首 (_启动窗口.超级列表框2. 取表项数 (), 局_计次 )   如果真 (寻找文本 (_启动窗口.超级列表框2. 取标题 (局_计次, 1 ), Name, , 假) ≠ -1 )    微信名 = _启动窗口.超级列表框2. 取标题 (局_计次, 0 )    _启动窗口.编辑框1. 加入文本 (微信名 + #换行符 )   跳出循环 ()      计次循环尾 ()  判断 (Name = 自身id )      sy = _启动窗口.超级列表框1. 插入表项 (, 到文本 (_启动窗口.超级列表框1. 取表项数 () + 1 ), , , , )   分割 = 分割文本 (正则. 取子匹配文本 (i, 4 ), “: ”, )    如果真 (取数组成员数 (分割 ) = 1 )    _启动窗口.超级列表框1. 置标题 (sy, 3, 分割 [1 ])   如果真 (取数组成员数 (分割 ) = 2 )    _启动窗口.超级列表框1. 置标题 (sy, 2, 分割 [1 ])    _启动窗口.超级列表框1. 置标题 (sy, 3, 分割 [2 ])  _启动窗口.超级列表框1.置标题 (sy, 1, 微信名)   _启动窗口.超级列表框1. 置标题 (sy, 5, 正则. 取子匹配文本 (i, 1 ))    _启动窗口.超级列表框1. 置标题 (sy, 4, “未回复”)     _启动窗口.超级列表框1. 保证显示 (sy )     计次循环尾 ()
|
|