假如我們現(xiàn)在有這樣的一個(gè)文件food.tab
內(nèi)容如下：
Room_NumberBreakfast LunchDinner
290Bagel PizzaSalmon
301 OrangePizzaChicken ala King
349 Sweet RollSaladTofu and Vegetables
500 OmeletSausageVeal
702 EggsTuna fishCheese Sandwich
文件中每一項(xiàng)都是用vbtab進(jìn)行分割的
那么現(xiàn)在我們要把它自動(dòng)轉(zhuǎn)化為一個(gè)如下的xml文件
<Kitchen xmlns="The_Roach_Motel">
<Room_Service>
<Room_Number>290</Room_Number>
<Breakfast>Bagel</Breakfast>
<Lunch>Pizza</Lunch>
<Dinner>Salmon</Dinner>
</Room_Service>
<Room_Service>
<Room_Number>301</Room_Number>
<Breakfast>Orange</Breakfast>
<Lunch>Pizza</Lunch>
<Dinner>Chicken ala King</Dinner>
</Room_Service>
<Room_Service>
<Room_Number>349</Room_Number>
<Breakfast>Sweet Roll</Breakfast>
<Lunch>Salad</Lunch>
<Dinner>Tofu and Vegetables</Dinner>
</Room_Service>
<Room_Service>
<Room_Number>500</Room_Number>
<Breakfast>Omelet</Breakfast>
<Lunch>Sausage</Lunch>
<Dinner>Veal</Dinner>
</Room_Service>
<Room_Service>
<Room_Number>702</Room_Number>
<Breakfast>Eggs</Breakfast>
<Lunch>Tuna fish</Lunch>
<Dinner>Cheese Sandwich</Dinner>
</Room_Service>
</Kitchen>
我們需要怎么做呢：
我們需要利用StreamReader來(lái)讀取文件內(nèi)容，存放到一個(gè)臨時(shí)的dataset中，最后用dataset的getxml()來(lái)得到這個(gè)xml文件
LET'GO
code:
Imports System
Imports System.IO
Imports System.Collections
Imports System.Data
Imports System.Text
Module modXML
Sub Main()
Dim strXML As String
strXML = delimitedDataSet(vbTab, "c:/food.tab")
'你可能需要進(jìn)行必要的修改
End Sub

Function delimitedDataSet(ByVal strDelimiter As String, _
ByVal strFilePath As String) As String
Dim oDS As New DataSet()
Dim strFields As String
Dim oTable As New DataTable()
Dim oRows As DataRow
Dim intCounter As Int32 = 0
Dim oRow As DataRow()

oDS.DataSetName = "Kitchen"
oDS.Namespace = "The_Roach_Motel"
oDS.Tables.Add("Room_Service")

Dim oSR As New StreamReader(strFilePath)
'到文件的頭
oSR.BaseStream.Seek(0, SeekOrigin.Begin)
'添加到 Header Columns
For Each strFields In oSR.ReadLine().Split(strDelimiter)
oDS.Tables(0).Columns.Add(strFields)
Next

'現(xiàn)在添加rows

oTable = oDS.Tables(0)
While (oSR.Peek() > -1)
oRows = oTable.NewRow()
For Each strFields In oSR.ReadLine().Split(strDelimiter)
oRows(intCounter) = strFields
intCounter = intCounter + 1
Next
intCounter = 0
oTable.Rows.Add(oRows)
End While
Return oDS.GetXml()
'oDS.WriteXml("c:/food.xml")
 '或者將它寫到硬盤上
End Function