个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
24
4
我想从网页中提取内容。但是，当我收到响应文本时，它包含 JavaScript，无法像浏览器打开的页面一样进行处理。
此方法可用于获取 HTML 内容还是只有浏览器模拟可以提供帮助？或者也许有一些不同的方法来接收此内容？
Dim oXMLHTTP As New MSXML2.XMLHTTP
Dim htmlObj As New HTMLDocument
With oXMLHTTP
.Open "GET", "http://www.manta.com/ic/mtqyfk0/ca/riverbend-holdings-inc", False
.send
If .ReadyState = 4 And .Status = 200 Then
htmlObj.body.innerHTML = .responseText
'do things
End If
End With
响应文本:
<!DOCTYPE html>
<head>
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<meta http-equiv="cache-control" content="max-age=0" />
<meta http-equiv="cache-control" content="no-cache" />
<meta http-equiv="expires" content="0" />
<meta http-equiv="expires" content="Tue, 01 Jan 1980 1:00:00 GMT" />
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="refresh" content="10; url=/distil_r_blocked.html?Ref=/ic/mtq599v/ca/45th-street-limited-partnership&distil_RID=2115B138-A1BF-11E6-A957-C0595F6B962F&distil_TID=20161103121454" />
<script type="text/javascript">
(function(window){
try {
if (typeof sessionStorage !== 'undefined'){
sessionStorage.setItem('distil_referrer', document.referrer);
}
} catch (e){}
})(window);
</script>
<script type="text/javascript" src="/ser-yrbwqfedrrwwvctvyavy.js" defer></script><style type="text/css">#d__fFH{position:absolute;top:-5000px;left:-5000px}#d__fF{font-family:serif;font-size:200px;visibility:hidden}#verxvaxcuczwcwecuxsx{display:none!important}</style></head>
<body>
<div id="distil_ident_block"> </div>
</body>
</html>
最佳答案
否 - 因为 Javascript 实际上是 <script> 内 HTML 的一部分标签。您必须对响应进行后处理才能自行删除标签。
您可以使用函数来删除 <script>收到页面的 HTML 后，从 DOM 中获取节点:
Function RemoveScriptTags(objHTML As HTMLDocument) As String
Dim objElement As HTMLGenericElement
For Each objElement In objHTML.all
If VBA.LCase$(objElement.nodeName) = "script" Then
objElement.removeNode
End If
Next objElement
RemoveScriptTags = objHTML.DocumentElement.outerHTML
End Function
这可以包含在您的示例代码中，如下所示:
Option Explicit
Sub Test()
Dim objXMLHTTP As New MSXML2.XMLHTTP
Dim objHTML As Object
Dim strUrl As String
Dim strHtmlNoScriptTags As String
strUrl = "http://www.manta.com/ic/mtqyfk0/ca/riverbend-holdings-inc"
With objXMLHTTP
.Open "GET", strUrl, False
.send
If .ReadyState = 4 And .Status = 200 Then
Set objHTML = CreateObject("htmlfile")
objHTML.Open
objHTML.write objXMLHTTP.responseText
objHTML.Close
'do things
strHtmlNoScriptTags = RemoveScriptTags(objHTML)
Debug.Print strHtmlNoScriptTags
'update html document with script-less document
Set objHTML = CreateObject("htmlfile")
objHTML.Open
objHTML.write strHtmlNoScriptTags
objHTML.Close
'you can now operate on DOM of objHTML
End If
End With
End Sub
关于javascript - VBA - 处理 XMLHTTP GET 请求中的 JavaScript 内容，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/40409746/
24
4
0
对于 Metal ，如果对主纹理进行 mipmap 处理，是否还需要对多采样纹理进行 mipmap 处理？我阅读了苹果文档，但没有得到任何相关信息。 最佳答案 Mipmapping 适用于您将从中
我正在使用的代码在后端 Groovy 代码中具有呈现 GSP(Groovy 服务器页面)的 Controller 。对于前端，我们使用 React-router v4 来处理路由。我遇到的问题是，通过
我们正在 build 一个巨大的网站。我们正在考虑是在服务器端(ASP .Net)还是在客户端进行 HTML 处理。 例如，我们有 HTML 文件，其作用类似于用于生成选项卡的模板。服务器端获取 HT
我正在尝试将图像加载到 void setup() 中的数组中，但是当我这样做时出现此错误:“类型不匹配，'processing .core.PImage' does not匹配“processing.
我正在尝试使用其私有(private)应用程序更新 Shopify 上的客户标签。我用 postman 尝试过，一切正常，但通过 AJAX，它带我成功回调而不是错误，但成功后我得到了身份验证链接，而不
如何更改我的 Processing appIconTest.exe 导出的默认图标在窗口中的应用程序？ 默认一个: 最佳答案 经过一些研究，我能找到的最简单的解决方案是: 进入 ...\process
我在 Processing 中做了一个简单的小游戏，但需要一些帮助。我有一个 mp3，想将它添加到我的应用程序中，以便在后台循环运行。 这可能吗？非常感谢。 最佳答案 您可以使用声音库。处理已经自带
我有几个这样创建的按钮: 在 setup() PImage[] imgs1 = {loadImage("AREA1_1.png"),loadImage("AREA1_2.png"),loadImage
我正在尝试使用 Processing 创建一个多人游戏，但无法弄清楚如何将屏幕分成两个以显示玩家的不同情况？ 就像在 c# 中一样，我们有Viewport leftViewport,rightView
我一直在尝试使用 Moore 邻域在处理过程中创建元胞自动机，到目前为止非常成功。我已经设法使基本系统正常工作，现在我希望通过添加不同的功能来使用它。现在，我检查细胞是否存活。如果是，我使用 fill
有没有办法用 JavaScript 代码检查资源使用情况？我可以检查脚本的 RAM 使用情况和 CPU 使用情况吗？ 由于做某事有多种方法，我可能会使用不同的方法编写代码，并将其保存为两个不同的文件，
我想弄清楚如何处理这样的列表: [ [[4,6,7], [1,2,4,6]] , [[10,4,2,4], [1]] ] 这是一个整数列表的列表 我希望我的函数将此列表作为输入并返回列表中没有重复的整
有没有办法在不需要时处理 MethodChannel/EventChannel ？我问是因为我想为对象创建多个方法/事件 channel 。 例子: class Call { ... fields
我有一个关于在 Python3 中处理 ConnectionResetError 的问题。这通常发生在我使用 urllib.request.Request 函数时。我想知道如果我们遇到这样的错误是否可
我一直在努力解决这个问题几个小时，但无济于事。代码很简单，一个弹跳球(粒子)。将粒子的速度初始化为 (0, 0) 将使其保持上下弹跳。将粒子的初始化速度更改为 (0, 0.01) 或任何十进制浮点数都
我把自己弄得一团糟。 我想在我的系统中添加 python3.6 所以我决定在我的 Ubuntu 19.10 中卸载现有的。但是现在每次我想安装一些东西我都会得到这样的错误: dpkg: error w
我正在努力解决 Rpart 包中的 NA 功能。我得到了以下数据框(下面的代码) Outcome VarA VarB 1 1 1 0 2 1 1 1
我将 Java 与 JSF 一起使用，这是 Glassfish 3 容器。 在我的 Web 应用程序中，我试图实现一个文件(图像)管理系统。 我有一个 config.properties我从中读取上传
所以我一直在Processing工作几个星期以来，虽然我没有编程经验，但我已经转向更复杂的项目。我正在编写一个进化模拟器，它会产生具有随机属性的生物。 最终，我将添加复制，但现在这些生物只是在屏幕上漂
有人知道 Delphi 2009 对“with”的处理有什么不同吗？ 我昨天解决了一个问题，只是将“with”解构为完整引用，如“with Datamodule、Dataset、MainForm”。
我是一名优秀的程序员,十分优秀！