作者vitayean (冠军衫)
看板Visual_Basic
标题[VB6 ] 如何从xml抓取大量资料
时间Mon Jul 17 15:21:35 2006
以下是我写的
当我读取资料量只有40笔的资料,能够很快就读完写出到txt上
不过我读取有50000笔的资料量时,它执行的非常非常慢,两天才写到txt上30笔资料.
我主要的目的是要把xml的资料读取并写到txt上,好作为我以後的抓值.
Private Sub Command1_Click()
' Load an xml document into a DOM instance.
Dim oXMLDom As New DOMDocument30
oXMLDom.async = False
oXMLDom.validateOnParse = False
oXMLDom.resolveExternals = False
oXMLDom.preserveWhiteSpace = True
If oXMLDom.Load(App.Path + "\Test_Sheet_Conditions1000.xml") = False Then
MsgBox "Failed to load xml data from file."
Exit Sub
End If
GoTo MoreNodes1
MoreNodes1:
' Query a node-set.
Dim oNodes As IXMLDOMNodeList
Dim temp(1000, 4) As String
f1 = App.Path + "\data1.txt"
Open f1 For Output As #1
For q = 0 To 999
Set oNodes = oXMLDom.selectNodes("//qmd_item[" + Trim(q) + "]/*")
For i = 1 To oNodes.length
Set oNode = oNodes.nextNode
If Not (oNode Is Nothing) Then
sName = oNode.nodeName
sdata = oNode.Text
temp(q + 1, i ) = sdata
Print #1, temp(q + 1, i )
End If
Next i
Next q
Close #1
MsgBox "执行完成"
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.196.119