如何使用 .NET,從檔案中讀取 XML

如何使用 .NET,從檔案中讀取 XML

原始的 Books.xml文件如下:

01   <?xml version="1.0" ?>  
02 - <!--  This file represents a fragment of a book store inventory database  
03  
-->  
04 - <bookstore>
05 - <book genre="autobiography">
06   <title>The Autobiography of Benjamin Franklin</title>  
07 - <author>
08   <first-name>Benjamin</first-name>  
09   <last-name>Franklin</last-name>  
10   </author>
11   <price>8.99</price>  
12   </book>

13 - <book genre="novel">
14   <title>The Confidence Man</title>  
15 - <author>
16   <first-name>Herman</first-name>  
17   <last-name>Melville</last-name>  
18   </author>
19   <price>11.99</price>  
20   </book>

21 - <book genre="philosophy">
22   <title>The Gorgias</title>  
23 - <author>
24   <name>Plato</name>  
25   </author>
26   <price>9.99</price>  
27   </book>
28   </bookstore>

資料來源: http://support.microsoft.com/kb/301225/zh-tw

 完整的程式碼清單 


Imports System.Xml
Module Module1

    Sub Main()
        Dim reader As XmlTextReader = New XmlTextReader("books.xml")

        Do While (reader.Read())
            Select Case reader.NodeType

                Case XmlNodeType.Element '註解:Display beginning of element.
Console.Write("<" + reader.Name) If reader.HasAttributes Then '註解:If attributes exist
While reader.MoveToNextAttribute() 'Display attribute name and value. Console.Write(" {0}='{1}'", reader.Name, reader.Value) End While End If Console.WriteLine(">") Case XmlNodeType.Text '註解:Display the text in each element.
Console.WriteLine(reader.Value) Case XmlNodeType.EndElement '註解:Display end of element.
Console.Write("</" + reader.Name) Console.WriteLine(">") End Select Loop Console.ReadLine() End Sub End Module

 

 另外一個範例,也是透過 XMLReader.Read()方法來作

http://msdn.microsoft.com/zh-tw/library/system.xml.xmltextreader.read(VS.80).aspx

 下列範例讀取 XML 檔案  並顯示每一個節點。

Option Strict
Option Explicit

Imports System
Imports System.IO
Imports System.Xml

'Reads an XML document
Public Class Sample
    Private Const filename As String = "items.xml"
   
    Public Shared Sub Main()
        Dim reader As XmlTextReader = Nothing
       
        Try
            ' Load the reader with the data file and ignore all white space nodes.        
            reader = New XmlTextReader(filename)
            reader.WhitespaceHandling = WhitespaceHandling.None
           
            ' Parse the file and display each of the nodes.
            While reader.Read()
                Select Case reader.NodeType
                    Case XmlNodeType.Element
                        Console.Write("<{0}>", reader.Name)

                    Case XmlNodeType.Text
                        Console.Write(reader.Value)

                    Case XmlNodeType.CDATA
                        Console.Write("<![CDATA[{0}]]>", reader.Value)

                    Case XmlNodeType.ProcessingInstruction
                        Console.Write("<?{0} {1}?>", reader.Name, reader.Value)

                    Case XmlNodeType.Comment
                        Console.Write("<!--{0}-->", reader.Value)

                    Case XmlNodeType.XmlDeclaration
                        Console.Write("<?xml version='1.0'?>")

                    Case XmlNodeType.Document

                    Case XmlNodeType.DocumentType
                        Console.Write("<!DOCTYPE {0} [{1}]", reader.Name, reader.Value)

                    Case XmlNodeType.EntityReference
                        Console.Write(reader.Name)

                    Case XmlNodeType.EndElement
                        Console.Write("</{0}>", reader.Name)
                End Select
            End While
       
        Finally
            If Not (reader Is Nothing) Then
                reader.Close()
            End If
        End Try
    End Sub
End Class

 

 

類別說明

XmlTextReader

 

讀取字元資料流。它是順向讀取器,含有傳回內容和節點型別中之資料的方法。文件類型定義 (DTD) 或結構描述不受支援。若 XML 文件含有 DTD,則 DTD 將會被剖析,但不會用來進行驗證或加入預設屬性。http://msdn.microsoft.com/zh-tw/library/system.xml.xmltextreader.read(VS.80).aspx

 

XmlNodeReader

透過 XML 文件物件模型 (DOM) API 提供 XmlReader,就像 XmlNode 樹狀結構。在 XmlNode 中取得,並傳回它在 DOM 樹狀結構中發現的任何節點,包括實體參照節點。它不支援 DTD 或結構描述驗證,但是它可以解析定義於 DTD 中的實體。http://msdn.microsoft.com/zh-tw/library/system.xml.xmlnodereader.read(VS.80).aspx

 

 

另外找到一篇文章,僅供參考----讀取xml的資料

 

在我的新書裡面(2008/7月出版),也有介紹到相關範例,放在「檔案與I/O」這一章裡面。

敬請支持, [廣告] 新書上市-- ASP.NET專題實務(文魁出版)

 

 

我將思想傳授他人, 他人之所得,亦無損於我之所有;

猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----Thomas Jefferson

線上課程教學,遠距教學 (Web Form 約 51hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學,遠距教學 (ASP.NET MVC 約 135hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

 

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.tw  或  school (at) mis2000lab.net

 (1) 第一天 ASP.NET MVC5 完整影片(5.5小時 / .NET 4.x版)免費試聽。影片 https://youtu.be/9spaHik87-A 

 (2) 第一天 ASP.NET Core MVC 完整影片(3小時 / .NET Core 6.0~8.0)免費試聽。影片 https://youtu.be/TSmwpT-Bx4I 

[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm  。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b  


ASP.NET遠距教學、線上課程(Web Form + MVC)。 第一天課程, "完整" 試聽。 

.........   facebook社團   https://www.facebook.com/mis2000lab   ......................

.........  YouTube (ASP.NET) 線上教學影片  https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

 

Blog文章 "附的範例" 無法下載,請看 https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍(嚴格認定)。

...................................................................................................................................................... 

ASP.NET MVC  => .NET Core MVC 線上教學  ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課