用DataSet.ReadXml读取无Scheme的XML提速方法

(声明：魏滔序原创，转贴请注明出处。)
单纯用DataSet的ReadXml方法读取XML对于小数据量来说效率很高，但是对大数据量的XML来说就有些力不从心了。
比如，让DataSet读取一个16M的XML，能让你等到地老天荒。如果你的机器配置不高，那肯定死的很难看、很窝囊。
咱不能见死不救不是，请往下看。

题外话：如果XML来自DataSet，那么你是幸运的。你可以DataSet把架构信息带上，别因膨胀那么几k的数据就舍不得了。

ReadXML缺省使用XmlReadMode.Auto方式读取，这就给大数据量留下了低效率的伏笔。
因为如果XML没有Scheme，DataSet就会自己推算XML的结构，然后再加载，这就是低效的主要原因。
让DataSet推算不让我们帮他算，因为DataSet已经提供了一个ReadXmlSchema方法。
如下：

Dim XMLText As String '保存了XML的文本
Dim MyDs As New DataSet
Dim MyTab As DataTable

'加载架构
MyDs.ReadXmlSchema(New IO.StringReader(XMLText))
For Each MyTab In MyDs.Tables
MyTab.BeginLoadData()
Next


然后再让DataSet加载数据。
注意：因为前面我们一个帮他加载架构信息了，这里就可以让DataSet加载数据时忽略Schema。
'加载数据
MyDs.ReadXml(New IO.StringReader(XMLText), XmlReadMode.IgnoreSchema)
For Each MyTab In MyDs.Tables
MyTab.EndLoadData()
Next

Ok，这样就把数据快速的加载到DataSet了。经过实际测试，数据量越大效率比就越高。 

通常获得DataSet的XML的方法是用GetXml，确实方便。但是返回的结果已经把DataSet的架构信息抹掉了，剩下的是单纯的数据。
DataSet还给我们留了一个WriteXml方法(感动ing，勿扰....)，这个方法可以把DataSet的数据写到文件或流中。
比如：
Dim MS As New IO.MemoryStream
DataSet.WriteXml(MS, XmlWriteMode.WriteSchema) '后面参数是关键，指明要带上架构信息。
这样在MS这个流中就保存了带DataSet架构信息的全部数据。