• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----实战采集英雄归来版面信息----被峨眉山猴子... [复制链接]

1#
互动贴:【神梦教程】实战 - 采集按键精灵论坛信息
效果一览:(涉及知识 split、get、如何选取分割特征)

讲解:

  • 获取要采集的页面链接源文件
  1. 取版面源文件 = Lib.网络.获得网页源文件_增强版("http://bbs.anjian.com/showforum-281-1.aspx", "utf-8")'对应图
  2. Call Plugin.Sys.SetCLB(取版面源文件)‘复制到txt查看帖子
复制代码



  • 查看与取帖子id
  1. 取版面所有帖子链接=GetStrAB(取版面源文件,"topicid=","&page")
  2. TracePrint 取版面所有帖子链接
复制代码
’返回结果698249*697539*697758*697756*697288*697741*697854*697825*697779*698279*698252*666970*698253*698272*692305*698196*697785*697799*697988*697469*698266*




  • 取帖子源文件
  1. 取版面源文件 = Lib.网络.获得网页源文件_增强版("http://bbs.anjian.com/showforum-281-1.aspx", "utf-8")'对应图
  2. Call Plugin.Sys.SetCLB(取版面源文件)
  3. 取版面所有帖子链接=GetStrAB(取版面源文件,"topicid=","&page")
  4. TracePrint 取版面所有帖子链接
  5. 帖子链接 = split(取版面所有帖子链接, "*")
  6. For i = 0 To UBound(帖子链接) - 1
  7. 帖子链接1= "http://bbs.anjian.com/showtopic-" & 帖子链接(i) & ".aspx"
  8. 取帖子源文件 = Lib.网络.获得网页源文件_增强版(帖子链接1, "utf-8")
  9. Call Plugin.Sys.SetCLB(取帖子源文件)
  10. Next
复制代码






for i=281 to 285 取版面源文件 = Lib.网络.获得网页源文件_增强版("http://bbs.anjian.com/showforum-"&i&"-1.aspx", "utf-8")'对应图
Call Plugin.Sys.SetCLB(取版面源文件)
取版面所有帖子链接=GetStrAB(取版面源文件,"topicid=","&page")
TracePrint 取版面所有帖子链接
帖子链接 = split(取版面所有帖子链接, "*")
For i = 0 To UBound(帖子链接) - 1
帖子链接1= "http://bbs.anjian.com/showtopic-" & 帖子链接(i) & ".aspx"
取帖子源文件 = Lib.网络.获得网页源文件_增强版(帖子链接1, "utf-8")
Call Plugin.Sys.SetCLB(取帖子源文件)
TracePrint GetStrA(取帖子源文件, "<!-- <title>", " ")
userid=GetStrA(取帖子源文件, "userid=",chr(34))
TracePrint GetStrA(取帖子源文件,"userid="& userid &chr(34)&" target="&chr(34)&"_blank"&chr(34)&">", "<")
TracePrint GetStrA(取帖子源文件, "var creditnotice='", "';")
Next
Next
Function GetStrA(Str, StrA, StrB)'取第一关符合特征的
If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrA=Split(Split(Str,StrA)(1),StrB)(0)
End Function
Function GetStrAB(Str, StrA, StrB)'取所有符合特征的
Dim i,ArrStrA,Ck
ArrStrA=Split(Str,StrA)
For i = 1 To UBound(ArrStrA)
If InStr(ArrStrA(i), StrB) > 0 Then Ck = Ck & Split(ArrStrA(i),StrB)(0) &"*"
Next
If UBound(split(ck, "*")) = 1 Then
GetStrAB=Replace(ck,"*","")
Else
GetStrAB=Ck
End If
End Function

最后编辑瑞祥幽冥狼 最后编辑于 2022-03-13 00:38:53
本主题由 超级版主 瑞祥幽冥狼 于 2023/6/14 14:30:33 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#


3#

123456

4#

狼神讲得更加详细了!值得好好学习!

5#


6#

41645415156

7#

666666

8#


9#

学习老狼的帖子

10#

sadasdasd

11#

為此四組為此色素我意思顏色

12#

学习

13#

6666666666

14#

师傅牛逼!!!!!!!!!!!!!!!!!!!!

15#


16#

学习学习、1

17#


18#

实战采集英雄归来版面信息-

19#


20#

a手动

发新话题 回复该主题