我怎样才能够把Html文件加到MSHTML的Document对象中去?

2005-03-14 07:03:34 405 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

最近爆火的 Ontology 本体是什么？一文看懂基础概念 + 落地实操 1993 Tom Gruber原版定义：本体是对领域概念化模型的显式形式化规范。1998 Studer完善通用定义：本体是共享、明确、形式化的领域概念模型规范。大白话翻译：本体就是机器能看懂的行业词典+业务规则手册。数据库只管存数据，本体只管定规则，知识图谱是规则+数据结合体。区别于普通开源本体工具，这款国产商用本体平台核心优势：业务沙盘推演、可控业务数据写回、全链路字段级数据血缘审计，适配企业生产级业务落地。阅读详情

我使用Inet控件下载了html文件,这个当然是文本的html数据了,我在工程中引用了MSHTML库,然后我想使用DCOM来操作html(提取其中的数据),不知道大家有没有什么代码,或者资料介绍一下.

目前我自己在这个方面真的是焦头烂额,苦啊~~~

...全文

从开源到落地：SimpleBGC 三轴稳像平台全栈技术解析（上） SimpleBGC是一款开源的稳定云台控制系统，相比专业设备具有显著的价格优势（仅为1/5-1/10），采用模块化设计支持全场景适配。系统包含硬件设计、软件代码和算法三大核心：硬件采用STM32主控和IMU传感器，支持6步换向和FOC电机驱动；软件采用三层架构（驱动层、算法层、应用层），实现姿态解算和PID控制；算法方面提供互补滤波（基础版）和卡尔曼滤波（高端版），可达到±0.5°至±0.1°的稳定精度。该系统适用于无人机航拍、工业检测等多种应用场景，特别适合DIY开发者和中小企业进行定制化开发。阅读详情

糊糊

COM/DCOM/COM+ 864 成员 3,658 内容

+ 关注 + 加入社区

切换为时间正序

guoyangyisuan 2005-04-16

打赏
举报

很好我正需要呢，不过大家为啥举例子的时候老拿csdn开刀啊^_^

糊糊 2005-03-20

打赏
举报

楼上的,你跟我昨天晚上做的差不多,不过我是从VC改过来的.

另外还是有点问题,createDocumentFromUrl访问搜狐的时候,竟然有广告弹出来,我晕,不知道这是怎么回事.....~~~~~

cso 2005-03-20

打赏
举报

Dim objMSHTML As New MSHTML.HTMLDocument
Dim objDocument As MSHTML.HTMLDocument

Set objDocument = objMSHTML.createDocumentFromUrl("http://www.163.com", vbNullString)
While objDocument.ReadyState <> "complete"
DoEvents
Wend

MsgBox objDocument.body.innerText

createDocumentFromUrl函数参数试着变动就能实现了

糊糊 2005-03-20

打赏
举报

今天晚上成功的实现了不要WebBrowser,也创建了一个Document的,使用的是MSHTML类来下载HTML文件

糊糊 2005-03-16

打赏
举报

大哥，很谢谢你的回答，我的目的也是很简单的。

就是利用一个DCOM（反正不管是什么组件吧），来进行提取一个HTML（或者XML）中的数据。

比如说提取<table>和</table>标记之间的数据。
最好就是可以使用集合。MSHTML中的ElementCollection就很好。

但是我不知道在没有使用WebBrowser的情况下，也就是说没有一个web1.Document的情况下，怎样操作纯文本的html？

VBDN 2005-03-15

打赏
举报

如果你不想下载到本地文件，再读取的话使用XMLHTTP对象，看下边的实例：

Private Sub Command1_Click()
URL = "http://community.csdn.net/Expert/topic/3850/3850250.xml?temp=.7217218"
Set oSend = CreateObject("Microsoft.XMLHTTP")
SourceCode = oSend.open("GET", URL, False)
oSend.send
If Err.Number <> 0 Then Debug.Print Err.Description
SourceCode = bytes2BSTR(oSend.responseBody)
Debug.Print SourceCode
End Sub

Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, i, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, i + 1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

VBDN 2005-03-15

打赏
举报

下载成功后，直接读写本地文件就可以了。

VBDN 2005-03-15

打赏
举报

为什么要用Inet控件下载，用API函数URLDownloadTofile函数多好？
Option Explicit
'声明
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'
Private Function DownloadFile(URL As String, LocalPath As String) As Boolean
If Not URLDownloadToFile(0, URL, LocalPath, 0, 0) Then
DownloadFile = True
Else
DownloadFile = False
End If
End Function
'实例
Private Sub Command1_Click()
Dim a As Boolean
a = DownloadFile("http://community.csdn.net/Expert/topic/3850/3850250.xml?temp=.888714", "c:\abc.txt")
Debug.Print a
End Sub

糊糊 2005-03-14

打赏
举报

我曾经试过下面的方法,但是就是没有什么好的效果.而且老是出错~!~!~!
Dim doc As IHTMLDocument2

Private Sub Inet1_StateChanged(ByVal State As Integer)

If State = 11 Then
InfoLabel.Caption = " 出现错误！可能无法访问网络或其他原因" & vbCrLf
Exit Sub
ElseIf State = 12 Then
HtmlCode = ""
Do '循环接收数据
DoEvents
bufStr = Inet1.GetChunk(1024, icString)

If Len(bufStr) = 0 Then Exit Do
'接受到的所有数据存放在变量 "HtmlCode"中
HtmlCode = HtmlCode & bufStr
Loop
'Text1.Text = HtmlCode '不能超过32k

bufStr = "" '使bufStr为空,保存下面提出的小说
FinalText = CutMark(bufStr)
Text1.Text = FinalText
MousePointer = vbDefault
Timer1.Enabled = True '可以执行下一页面的下载了
End If
End Sub

我怎样才能够把Html文件加到MSHTML的Document对象中去?

相关推荐