2011年計算機等考二級VB輔導(dǎo)知識技巧總結(jié)(30)

　　注釋： Add a few simple nodes with different datatypes

　　Set oNode = oDoc.createElement("Document")

　　oNode.Text = "Demo"

　　oRoot.appendChild oNode

　　Set oNode = oDoc.createElement("CreateDate")

　　oRoot.appendChild oNode

　　Set oEle = oNode

　　注釋： Use DataType so MSXML will validate the data type

　　oEle.dataType = "date"

　　oEle.nodeTypedValue = Now

　　Set oNode = oDoc.createElement("bgColor")

　　oRoot.appendChild oNode

　　Set oEle = oNode

　　注釋： Use DataType so MSXML will validate the data type

　　oEle.dataType = "bin.hex"

　　oEle.Text = &HFFCCCC

　　Set oNode = oDoc.createElement("Data")

　　oRoot.appendChild oNode

　　Set oEle = oNode

　　注釋： Use DataType so MSXML will validate the data type

　　oEle.dataType = "bin.base64"

　　注釋： Read in the data

　　oEle.nodeTypedValue = ReadBinData(DOCINPATH)

　　注釋： Save xml file

　　oDoc.save XMLOUTPATH

　　MsgBox XMLOUTPATH & " is created for you."

　　End Sub

　　Function ReadBinData(ByVal strFileName As String) As Variant

　　Dim lLen As Long

　　Dim iFile As Integer

　　Dim arrBytes() As Byte

　　Dim lCount As Long

　　Dim strOut As String

　　注釋：Read from disk

　　iFile = FreeFile()

　　2011年上半年計算機等級考試報名時間匯總

　　2011計算機等級考試二級VB考點及習(xí)題匯總

　　2011年計算機等級考試二級VB基礎(chǔ)教程匯總

　　2011計算機等考二級VB輔導(dǎo)知識技巧匯總