奇书10采集器源码E语言.docx
- 文档编号:7864213
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:58
- 大小:36.61KB
奇书10采集器源码E语言.docx
《奇书10采集器源码E语言.docx》由会员分享,可在线阅读,更多相关《奇书10采集器源码E语言.docx(58页珍藏版)》请在冰豆网上搜索。
奇书10采集器源码E语言
.版本2
.支持库xplib
.支持库RegEx
.支持库spec
.支持库iext
.支持库internet
.程序集窗口程序集1
.子程序__主程序_创建完毕
.局部变量文件名,文本型
.局部变量文件名2,文本型
XP风格
(1)
_主程序.置托盘图标(#图片1,“程序在这运行!
”)
编辑框19.内容=ID前变量
编辑框10.内容=ID后变量
文件名=寻找文件(取运行目录()+“\rules\”+“\*.xml”,)
.判断循环首(文件名≠“”)
组合框1.加入项目(文件名,)
文件名=寻找文件(,)
.判断循环尾()
组合框1.现行选中项=0
按钮9.左边=_主程序.宽度-14
编辑框1.内容=读配置项(取运行目录()+“\base\”+“base.ini”,“Base”,“URL”,)
编辑框2.内容=读配置项(取运行目录()+“\base\”+“base.ini”,“Base”,“USER”,)
编辑框3.内容=读配置项(取运行目录()+“\base\”+“base.ini”,“Base”,“PASD”,)
.子程序_编辑框4_获得焦点
编辑框4.内容=“”
.子程序_编辑框5_获得焦点
编辑框5.内容=“”
.子程序_按钮3_被单击
.如果(到整数(编辑框4.内容)>到整数(编辑框5.内容))
信息框(“你的结束ID必须要大于起始ID!
”,0,“友情提示”)
.否则
编辑框4.禁止=真
编辑框5.禁止=真
编辑框6.禁止=真
按钮3.可视=假
单选框1.禁止=真
单选框2.禁止=真
按钮4.可视=真
按钮6.禁止=假
.如果(单选框1.选中=真)
编辑框4.内容=编辑框6.内容
编辑框5.内容=编辑框6.内容
.否则
.如果结束
.如果结束
.子程序_按钮4_被单击
编辑框4.禁止=假
编辑框5.禁止=假
编辑框6.禁止=假
按钮4.可视=假
单选框1.禁止=假
单选框2.禁止=假
按钮3.可视=真
.子程序_单选框2_被单击
编辑框4.可视=真
编辑框5.可视=真
编辑框6.可视=假
.子程序_单选框1_被单击
编辑框6.可视=真
编辑框4.可视=假
编辑框5.可视=假
.子程序_编辑框6_获得焦点
编辑框6.内容=“”
.子程序_新建规则_被选择
载入(新建规则,,真)
.子程序POST
.局部变量返回文本,文本型
.局部变量临时文本,文本型
.局部变量临时文本1,文本型
.局部变量返回内容,文本型
.局部变量临时内容,文本型
.局部变量次数,整数型
.局部变量计次,整数型
.局部变量正则_文章,彗星正则表达式类
.局部变量正则_Url,正则表达式
.局部变量正则_作者,正则表达式
.局部变量正则_类型,正则表达式
.局部变量正则_状态,正则表达式
.局部变量正则_字数,正则表达式
.局部变量正则_封面,正则表达式
.局部变量正则_关键字,正则表达式
.局部变量正则_简介,正则表达式
.局部变量正则_列表Url,正则表达式
.局部变量正则_章节名称,彗星正则表达式类
.局部变量正则_章节Url,正则表达式
.局部变量搜索结果_文章,搜索结果,,"0"
.局部变量搜索结果_Url,搜索结果,,"0"
.局部变量搜索结果_作者,搜索结果,,"0"
.局部变量搜索结果_类型,搜索结果,,"0"
.局部变量搜索结果_状态,搜索结果,,"0"
.局部变量搜索结果_字数,搜索结果,,"0"
.局部变量搜索结果_封面,搜索结果,,"0"
.局部变量搜索结果_关键字,搜索结果,,"0"
.局部变量搜索结果_简介,搜索结果,,"0"
.局部变量搜索结果_列表Url,搜索结果,,"0"
.局部变量搜索结果_章节名称,搜索结果,,"0"
.局部变量搜索结果_章节Url,搜索结果,,"0"
.局部变量计次1,整数型
.局部变量次数1,整数型
.局部变量表项索引1,整数型
.局部变量开始,整数型
.局部变量返回文本3,文本型
.局部变量临时文本3,文本型
.局部变量计次3,整数型
.局部变量次数3,整数型
.局部变量表项索引3,整数型
.局部变量选择,整数型
.局部变量行数,整数型
.局部变量第几行,整数型
.局部变量索引行,整数型
.局部变量行数1,整数型
.局部变量第几行1,整数型
.局部变量索引行1,整数型
.局部变量替换,文本型,,"0"
.局部变量替换n行,整数型
.局部变量替换1,文本型,,"0"
.局部变量替换n行1,整数型
.局部变量处理后内容,文本型
.局部变量获取地址,文本型
.局部变量提交新作品,字节集
.局部变量提交新作品返回,文本型
.局部变量提交新作品返回验证,文本型
.局部变量提交新作品返回截取,文本型
.局部变量新作品ID,文本型
.局部变量存在作品ID,文本型
.局部变量提交新章节,字节集
.局部变量提交新章节名称,文本型
.局部变量提交新章节返回,文本型
.局部变量提交新章节返回验证,文本型
.局部变量新作品章节名,文本型
.局部变量新作品内容,文本型
.局部变量新文章类型,文本型,,"0"
.局部变量类型ID,整数型
.局部变量简介新替换,文本型
.局部变量封面名称,文本型,,"0"
.局部变量封面数据,字节集
.局部变量读入封面,字节集
.局部变量提交新封面,字节集
.局部变量本地封面路径,文本型
.局部变量测试,文本型
.局部变量i,整数型
.局部变量文件号,整数型
.局部变量本地章节文本,文本型
.局部变量初始次数,整数型
.局部变量初始计次,整数型
.局部变量循环次数,整数型
.局部变量减法循环,整数型
.局部变量余数,整数型
.局部变量剩余次数,整数型
线程_初始化COM库()
次数=到整数(编辑框5.内容)-到整数(编辑框4.内容)+1
开始=到整数(编辑框4.内容)
临时文本1=“”
进度条2.位置=0
进度条1.位置=0
进度条3.位置=0
.如果(次数>5)
.如果(次数%5=0)
初始次数=次数÷5
余数=0
剩余次数=5
.计次循环首(初始次数,初始计次)
临时文本=“”
临时文本1=“”
.计次循环首(剩余次数,计次)
返回文本=到文本(网页_访问(子文本替换(信息完整URL,“
临时文本=文本_取出中间文本(返回文本,变量1,变量2)
调试输出(临时文本)
开始=开始+1
临时文本1=临时文本1+临时文本
进度条2.位置=进度条2.位置+10000÷次数
.计次循环尾()
超级列表框1.全部删除()
正则_文章.创建(变量_文章,假)
.如果(变量_url≠“”)
正则_Url.创建(变量_url,)
.否则
.如果结束
.如果(变量_作者≠“”)
正则_作者.创建(变量_作者,)
.否则
.如果结束
.如果(变量_类型≠“”)
正则_类型.创建(变量_类型,)
.否则
.如果结束
.如果(变量_状态≠“”)
正则_状态.创建(变量_状态,)
.否则
.如果结束
.如果(变量_字数≠“”)
正则_字数.创建(变量_字数,)
.否则
.如果结束
.如果(变量_封面≠“”)
正则_封面.创建(变量_封面,)
.否则
.如果结束
.如果(变量_关键字≠“”)
正则_关键字.创建(变量_关键字,)
.否则
.如果结束
.如果(变量_简介≠“”)
正则_简介.创建(变量_简介,)
.否则
.如果结束
正则_列表Url.创建(变量_列表Url,)
次数1=正则_文章.搜索全部(临时文本1)
.如果(变量_url≠“”)
搜索结果_Url=正则_Url.搜索全部(临时文本1)
.否则
.如果结束
.如果(变量_作者≠“”)
搜索结果_作者=正则_作者.搜索全部(临时文本1)
.否则
.如果结束
.如果(变量_类型≠“”)
搜索结果_类型=正则_类型.搜索全部(临时文本1)
.否则
.如果结束
.如果(变量_状态≠“”)
搜索结果_状态=正则_状态.搜索全部(临时文本1)
.否则
.如果结束
.如果(变量_字数≠“”)
搜索结果_字数=正则_字数.搜索全部(临时文本1)
.否则
.如果结束
.如果(变量_封面≠“”)
搜索结果_封面=正则_封面.搜索全部(临时文本1)
.否则
.如果结束
.如果(变量_关键字≠“”)
搜索结果_关键字=正则_关键字.搜索全部(临时文本1)
.否则
.如果结束
.如果(变量_简介≠“”)
搜索结果_简介=正则_简介.搜索全部(临时文本1)
.否则
.如果结束
搜索结果_列表Url=正则_列表Url.搜索全部(临时文本1)
.计次循环首(次数1,计次1)
处理事件()
表项索引1=超级列表框1.插入表项(,,,,,)
超级列表框1.置标题(表项索引1,0,删首尾空(正则_文章.取子匹配文本(计次1,1)))
.如果(变量_url≠“”)
超级列表框1.置标题(表项索引1,1,搜索结果_Url[计次1].取子匹配文本(临时文本1,1,))
.否则
.如果结束
.如果(变量_作者≠“”)
超级列表框1.置标题(表项索引1,2,搜索结果_作者[计次1].取子匹配文本(临时文本1,1,))
.否则
.如果结束
.如果(变量_类型≠“”)
超级列表框1.置标题(表项索引1,3,搜索结果_类型[计次1].取子匹配文本(临时文本1,1,))
.否则
.如果结束
.如果(变量_状态≠“”)
超级列表框1.置标题(表项索引1,4,搜索结果_状态[计次1].取子匹配文本(临时文本1,1,))
.否则
.如果结束
.如果(变量_字数≠“”)
超级列表框1.置标题(表项索引1,5,搜索结果_字数[计次1].取子匹配文本(临时文本1,1,))
.否则
.如果结束
.如果(变量_封面≠“”)
超级列表框1.置标题(表项索引1,6,搜索结果_封面[计次1].取子匹配文本(临时文本1,1,))
.否则
.如果结束
.如果(变量_关键字≠“”)
超级列表框1.置标题(表项索引1,7,搜索结果_关键字[计次1].取子匹配文本(临时文本1,1,))
.否则
.如果结束
.如果(变量_简介≠“”)
超级列表框1.置标题(表项索引1,8,搜索结果_简介[计次1].取子匹配文本(临时文本1,1,))
.否则
.如果结束
超级列表框1.置标题(表项索引1,9,搜索结果_列表Url[计次1].取子匹配文本(临时文本1,1,))
.计次循环尾()
编辑框18.加入文本(“文章信息采集完毕,正在进行章节采集”,“”,“”,#换行符)
.如果(临时文本1=“”)
编辑框18.加入文本(“没有采集到数据!
”,#换行符)
按钮3.可视=真
按钮4.可视=假
单选框1.禁止=假
单选框2.禁止=假
编辑框4.禁止=假
编辑框5.禁止=假
编辑框6.禁止=假
.否则
行数=超级列表框1.取表项数()
索引行=0
.计次循环首(行数,第几行)
超级列表框1.现行选中项=索引行
超级列表框1.保证显示(索引行)
超级列表框1.置状态图片(索引行,1)
编辑框16.内容=变量_地址+超级列表框1.取标题(索引行,9)
编辑框16.内容=子文本替换(子文本替换(列表完整URL,“
编辑框7.内容=超级列表框1.取标题(索引行,0)
编辑框8.内容=超级列表框1.取标题(索引行,2)
编辑框9.内容=超级列表框1.取标题(索引行,3)
编辑框10.内容=超级列表框1.取标题(索引行,4)
编辑框11.内容=超级列表框1.取标题(索引行,5)
编辑框14.内容=超级列表框1.取标题(索引行,6)
编辑框15.内容=超级列表框1.取标题(索引行,7)
简介新替换=超级列表框1.取标题(索引行,8)
替换1=分割文本(简介替换,#换行符,)
.计次循环首(取数组成员数(替换1),替换n行1)
简介新替换=子文本替换(简介新替换,替换1[替换n行1],“”,,,假)
.计次循环尾()
编辑框12.内容=简介新替换
新文章类型=分割文本(类型替换,“|”,10)
.如果(新文章类型[1]=“1=”+编辑框9.内容)
类型ID=1
.否则
.如果(新文章类型[2]=“2=”+编辑框9.内容)
类型ID=2
.否则
.如果(新文章类型[3]=“3=”+编辑框9.内容)
类型ID=3
.否则
.如果(新文章类型[4]=“4=”+编辑框9.内容)
类型ID=4
.否则
.如果(新文章类型[5]=“5=”+编辑框9.内容)
类型ID=5
.否则
.如果(新文章类型[6]=“6=”+编辑框9.内容)
类型ID=6
.否则
.如果(新文章类型[7]=“7=”+编辑框9.内容)
类型ID=7
.否则
.如果(新文章类型[8]=“8=”+编辑框9.内容)
类型ID=8
.否则
.如果(新文章类型[9]=“9=”+编辑框9.内容)
类型ID=9
.否则
.如果(新文章类型[10]=“10=”+编辑框9.内容)
类型ID=10
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
超级列表框2.全部删除()
返回文本3=到文本(网页_访问(编辑框16.内容))
临时文本3=文本_取出中间文本(返回文本3,变量3,变量4)
调试输出(临时文本3)
正则_章节名称.创建(变量_章节名称,假)
正则_章节Url.创建(变量_章节Url,)
次数3=正则_章节名称.搜索全部(临时文本3)
搜索结果_章节Url=正则_章节Url.搜索全部(临时文本3)
.计次循环首(次数3,计次3)
处理事件()
表项索引3=超级列表框2.插入表项(,,,,,)
超级列表框2.置标题(表项索引3,0,删首尾空(正则_章节名称.取子匹配文本(计次3,1)))
超级列表框2.置标题(表项索引3,1,搜索结果_章节Url[计次3].取子匹配文本(临时文本3,1,))
.计次循环尾()
.如果(编辑框10.内容=“连载中”)
文章状态=“0”
.否则
文章状态=“1”
.如果结束
提交新作品=到字节集(“sortid=”+到文本(类型ID)+“&articlename=”+编辑框7.内容+“&keywords=”+编辑框15.内容+“&author=”+编辑框8.内容+“&authorflag=0&agent=&permission=0&firstflag=0&fullflag=”+文章状态+“&articleimage=”+编辑框14.内容+“&intro=”+编辑框12.内容+“&action=newarticle&siteid=4&fromid=7214&collecturl=http:
//www.esou.biz/info_7214.html&submit=下一步”+“&jieqi_username=”+编辑框2.内容+“&jieqi_userpassword=”+编辑框3.内容)
提交新作品返回=到文本(网页_访问(编辑框1.内容+“/modules/article/admin/collect.php?
do=submit”,1,,,提交新作品))
提交新作品返回验证=到文本(文本_取出现次数(提交新作品返回,“新文章创建成功”,假))
提交新作品返回截取=文本_取出中间文本(提交新作品返回,#常量1,#常量2)
新作品ID=文本_取出中间文本(提交新作品返回截取,#常量3,#常量4)
存在作品ID=文本_取出中间文本(提交新作品返回截取,#存在文章前,#存在文章后)
进度条3.位置=0
.如果(到整数(提交新作品返回验证)=1)
编辑框18.加入文本(“当前作品ID:
”,新作品ID,#换行符)
索引行1=0
行数1=超级列表框2.取表项数()
.计次循环首(行数1,第几行1)
超级列表框2.现行选中项=索引行1
超级列表框2.保证显示(索引行1)
提交新章节名称=超级列表框2.取标题(索引行1,0)
超级列表框2.置状态图片(索引行1,1)
编辑框17.内容=子文本替换(子文本替换(子文本替换(内容完整URL,“
返回内容=到文本(网页_访问(编辑框17.内容))
临时内容=文本_取出中间文本(返回内容,变量5,变量6)
替换=分割文本(替换内容,#换行符,)
.计次循环首(取数组成员数(替换),替换n行)
临时内容=子文本替换(子文本替换(临时内容,“
”,#换行符,,,假),替换[替换n行],,,,假)
.计次循环尾()
提交新章节=到字节集(“volumeid=&chaptername=”+提交新章节名称+“&chaptertype=0&typeset=0&textstat=字数统计&chaptercontent=”+临时内容+“&attachfile[]=&attachfile[]=&attachfile[]=&attachfile[]=&attachfile[]=&action=newchapter&aid=”+新作品ID+“&submit=提交”)
提交新章节返回=到文本(网页_访问(编辑框1.内容+“/modules/article/newchapter.php?
do=submit”,1,,,提交新章节))
提交新章节返回验证=到文本(文本_取出现次数(提交新章节返回,“感谢您的发表”,假))
.如果(到整数(提交新章节返回验证)=1)
编辑框18.加入文本(提交新章节名称,“提交成功”,#换行符)
.否则
编辑框18.加入文本(提交新章节名称,“提交失败!
”,#换行符)
.如果结束
索引行1=索引行1+1
进度条3.位置=进度条3.位置+5000÷行数1
.计次循环尾()
.否则
编辑框18.加入文本(“文章已存在,正在检查章节”,#换行符)
编辑框18.加入文本(“存在作品ID:
”,存在作品ID,#换行符)
本地章节文本=网页_取网页源码(编辑框1.内容+“/modules/article/reader.php?
aid=”+存在作品ID)
索引行1=0
行数1=超级列表框2.取表项数()
.计次循环首(行数1,第几行1)
超级列表框2.现行选中项=索引行1
超级列表框2.保证显示(索引行1)
提交新章节名称=超级列表框2.取标题(索引行1,0)
超级列表框2.置状态图片(索引行1,1)
编辑框17.内容=子文本替换(子文本替换(子文本替换(内容完整URL,“
'编辑框17.内容=变量_地址+超级列表框2.取标题(索引行1,1)
i=文本_取出现次数(本地章节文本,提交新章节名称,假)
.如果(i>0)
编辑框18.加入文本(提交新章节名称,“已存在”,#换行符)
.否则
返回内容=到文本(网页_访问(编辑框17.内容))
临时内容=文本_取出中间文本(返回内容,变量5,变量6)
替换=分割文本(替换内容,#换行符,)
.计次循环首(取数组成员数(替换),替换n行)
临时内容=子文本替换(子文本替换(临时内容,“
”,#换行符,,,假),替换[替换n行],,,,假)
.计次循环尾()
提交新章节
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 奇书 10 采集 源码 语言