Edition=xiaojiaoben
标题=获取网页内容保存excel
启动热键=F9键
暂停/继续热键=
终止热键=F12键
简介=
自定义变量();
变量(存放变量,存放变量1,a,b);
子程序(主程序);
EXCEL新建工作薄();
延时(1000);
网页访问("https://www.dy2018.com/html/gndy/dyzz/index.html",0,,,存放变量);
 // 取出网页源码
取中间文本(存放变量,"<div class="co_content8">","<div class="x">",存放变量1);
 // 缩小网页源码范围
文本取长度(存放变量1,存放变量);
 // 这里是否有内容
如果(存放变量 > 0,第1层);
运算(a=分割文本(存放变量1,"100%"));
 // 这里分割每段内容，100%是每段内容都出现的文字
计次循环(a,b,计组1);
取中间文本(a[b],"title=",">",存放变量);
 // 取出标题
如果(存放变量="",第2层);
否则(第2层)
EXCEL置单元格数据(b,1,存放变量);
条件结束(第2层)
计次循环结束(计组1)
计次循环(a,b,计组1);
取中间文本(a[b],"日期：","点击",存放变量);
 // 取出日期
如果(存放变量="",第2层);
否则(第2层)
运算(存放变量="日期：" + 存放变量);
EXCEL置单元格数据(b,2,存放变量);
条件结束(第2层)
计次循环结束(计组1)
否则(第1层)
条件结束(第1层)

