程式13-7 使用Name Table 讓 XmlReader 執行效率最佳化
Dim nt As New NameTable()
Dim book As Object = nt.Add("book")
setting.NameTable = nt
...
...
...
While(reader.Read())
If (reader.NodeType = XmlNodeType.Element_
And book.Equal(reader.LocalName)) Then
' A subtle, but significant change 一個雖小且基本但顯著的改變
bookcount +=1
End If
請先 登入 以發表留言。