精易论坛

标题: json和正则 问题 [打印本页]
作者: 保持沉默    时间: 2016-8-29 15:49
标题: json和正则 问题
我死循环 检测微信 最新信息   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支持库列表   支持库注释   
iext扩展界面支持库一
spec特殊功能支持库

'===========================
正则


  
计次循环首 (正则.取匹配数量 (), 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.置标题 (索引, 5, 超级列表框2.取标题 (计次 － 1, 0))
_启动窗口.超级列表框1.保证显示 (sy)


计次循环尾 ()


i支持库列表   支持库注释   
iext扩展界面支持库一

作者: 冯古屋    时间: 2016-8-29 16:35
(json.成员数 (“AddMsgList[0]”), i)，是不是考虑直接AddMsgList？



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4