将具有特殊格式的文件转化为xml文件

最新推荐文章于 2025-10-24 06:00:00 发布

原创最新推荐文章于 2025-10-24 06:00:00 发布 · 161 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一种将特殊格式的Tab文件转换为XML文件的方法。通过使用StreamReader读取原始Tab文件，并将数据存储到临时DataSet中，最终通过调用DataSet的GetXml方法生成符合要求的XML文件。

将具有特殊格式的文件转化为xml文件

假如我们现在有这样的一个文件food.tab
内容如下：
Room_Number Breakfast Lunch Dinner
290 Bagel Pizza Salmon
301 Orange Pizza Chicken ala King
349 Sweet Roll Salad Tofu and Vegetables
500 Omelet Sausage Veal
702 Eggs Tuna fish Cheese Sandwich
文件中每一项都是用vbtab进行分割的
那么现在我们要把它自动转化为一个如下的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来读取文件内容，存放到一个临时的dataset中，最后用dataset的getxml()来得到这个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 = d