如何将新浪网页中的新闻部分直接导出成txt

作者：绿色风分类：时间：2022-08-17 浏览：204

楼主 xmyjk	Sub test() Dim s As String, xmlhttp As Object, reg As Object, til As String, URL As String, arr, i& URL = InputBox("请输入网址：") Set reg = CreateObject("VBSCRIPT.REGEXP") reg.Global = True reg.Pattern = "[<][^>]*[>]" Set xmlhttp = CreateObject("Microsoft.XMLHTTP") With xmlhttp .Open "get", URL, False .send s = StrConv(.responsebody, vbUnicode, &H804) End With arr = Filter(Split(Replace(Replace(s, "<strong>", ""), "</strong>", ""), "<p>" & Chr(-24159)), "</p>") til = Split(Split(Split(s, "<h1 id=""artibodyTitle")(1), ">")(1), "</h1")(0) arr(0) = til For i = 1 To UBound(arr) arr(i) = reg.Replace(Split(arr(i), "</p>")(0), "") Next s = Join(arr, vbCrLf & vbCrLf) til = ThisWorkbook.Path & "\" & Format(Date, "yyyy-mm-dd") & til & ".txt" Open til For Output As #1 Print #1, s Close #1 Set xmlhttp = Nothing Set reg = Nothing Erase arr Shell "NOTEPAD.EXE /a " & til, vbNormalFocus End Sub 注：源程序曾得狼行天下修正，亦谢。导出新闻.rar
2楼 bensonlei	不错, 好办法!
3楼 magicshadow	学习了
4楼水星钓鱼	这个是好贴，但是ｅ文精选貌似不太合适
5楼 lrlxxqxa
6楼 rongjun	学习了！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表