20170729xlVba SSC_RECENT100
- Public Sub Recent100()
- Dim WebText As String
- Dim Reg As Object, Mh As Object, OneMh As Object
- Dim i As Long, j As Long, Nums As String
- Set Reg = CreateObject("Vbscript.Regexp")
- With Reg
- .MultiLine = True
- .Global = True
- .Ignorecase = False
- '20170728013</td><td class='z_bg_13'>07627</td>'审查元素,获取目标字符串
- .Pattern = "(\d{11})(<)(?:/td><td class='z_bg_13'>)(\d{5})(?:</td>)"
- End With
- With CreateObject("WinHttp.WinHttpRequest.5.1") 'CreateObject("MSXML2.XMLHTTP")'受缓存影响不能及时更新
- '.Open "GET", "http://chart.cp.360.cn/kaijiang/kaijiang?lotId=255401&spanType=2&span=" & Yesterday & "_" & Yesterday, False'更新指定日期
- .Open "GET", "http://zst.cjcp.com.cn/cjwssc/view/ssc_zusan-ssc-0-3-100.html", False
- .Send
- WebText = .responsetext
- End With
- Set Mh = Reg.Execute(WebText)
- With Sheets(2)
- .Cells.Clear
- .Range("A1:G1").Value = Array("大期号", "小期号", "万", "千", "百", "十", "个")
- i = 1
- For Each OneMh In Mh
- i = i + 1
- .Cells(i, 1).Value = "'" & OneMh.submatches(0)
- .Cells(i, 2).Value = "'" & Right(OneMh.submatches(0), 3)
- Nums = OneMh.submatches(2)
- For j = 1 To Len(Nums)
- .Cells(i, j + 2).Value = Mid(Nums, j, 1)
- Next j
- Next OneMh
- With .UsedRange
- .HorizontalAlignment = xlCenter
- .VerticalAlignment = xlBottom
- End With
- SetBorders .UsedRange
- End With
- Set Reg = Nothing
- Set Mh = Nothing
- End Sub
- Sub SetBorders(ByVal Rng As Range)
- With Rng.Borders
- .LineStyle = xlContinuous
- .ColorIndex = xlAutomatic
- .Weight = xlThin
- End With
- End Sub
20170729xlVba SSC_RECENT100的更多相关文章
随机推荐
- 20154312 曾林 Exp4恶意软件分析
写在前面 如果把恶意软件比作罪犯的话,怎么看这次实验? 实验目的:以后能够在茫茫人海中找到罪犯. 实验过程:现在以及抓到了一个罪犯,把他放到茫茫人海里去,看看他和普通人有啥区别.这些区别就是罪犯的特征 ...
- appium记录
npm uninstall appium -g npm install -g cnpm --registry=https://registry.npm.taobao.org cnpm install ...
- pyDay3
内容来自廖雪峰的官方网站 1.关键字参数 def person(**kw): print(kw) >>> person(name=') {'} 关键字参数有什么用?它可以扩展函数的功 ...
- SNMP学习笔记之Centos7配置SNMP服务
0x00 安装yum源安装SNMP软件包 1.yum源安装SNMP服务: yum -y install net-snmp net-snmp-utils 2.查看SNMP版本号: snmpd -v 0x ...
- Python入门之Python引用模块和查找模块路径
#这篇文章主要介绍了Python引用模块和Python查找模块路径的相关资料,需要的朋友可以参考下 模块间相互独立相互引用是任何一种编程语言的基础能力.对于“模块”这个词在各种编程语言中或许是不同的, ...
- SQL、SQL Server、MySQL与Oracle
SQL (Structured Query Language),结构化查询语言,用来与多种数据库建立联系,根据ANSI(美国国家标准协会)的规定,SQL为RDBMS(关系型数据库)的标准语言. --- ...
- 逆向与BOF基础——注入shellcode并执行&Return-to-libc
逆向与BOF基础--注入shellcode并执行 准备阶段 下载安装execstack. 本次实验实验的shellcode是心远的文章中生成的代码,即\x31\xc0\x50\x68\x2f\x2f\ ...
- 20145322 Exp5 Adobe阅读器漏洞攻击
20145322 Exp5 Adobe阅读器漏洞攻击 实验过程 IP:kali:192.168.1.102 windowsxp :192.168.1.119 msfconsole进入控制台 使用命令为 ...
- JavaScript 各种验证收集
filter或者forEach函数,可能是因为你的浏览器还不够新,暂时不支持新标准的函数,你可以使用如下方式自己定义: if (!Array.prototype.forEach) { Array.pr ...
- How do I update a GitHub forked repository?
I recently forked a project and applied several fixes. I then created a pull request which was then ...