我需要从一个csv文件创建一个xml文件，该文件不将第一行保存为标记

我正在尝试编写一个程序，将csv转换为xml。 在输入数据之前，我的xml将csv中的第一行保存为标记。为了更好地理解，我将粘贴我的代码和输出。这是我的密码

Imports System.IO
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text

Module Module1

    Sub Main()
        Dim source As String() = File.ReadAllLines("c:\Data\csvtoxmlTEST.CSV")
        Dim firstRow As Boolean = True
        Dim cust As XElement =
  <events>
      <%= From strs In source
          Let fields = Split(strs, ",")
          Select
<event EventIdentity=<%= fields(0) %>>
    <name><%= fields(1) %></name>
    <summary><%= fields(2) %></summary>
    <description><%= fields(3) %></description>
    <local-start-date-time><%= fields(4) %></local-start-date-time>
    <local-end-date-time><%= fields(5) %></local-end-date-time>
    <status><%= fields(11) %></status>
    <locations>
        <location>
            <name><%= fields(6) %></name>
            <location>
                <name><%= fields(7) %></name>
                <location>
                    <name><%= fields(8) %></name>
                </location>
            </location>
        </location>
    </locations>
    <categories>
        <category>
            <name><%= fields(9) %></name>
        </category>
    </categories>
    <custom-data><%= fields(10) %></custom-data>
</event>
      %>
  </events>
        cust.Save("c:\Data\csvtoxmlTEST.xml")

    End Sub

End Module

Imports System.IO
导入系统
导入System.Collections.Generic
导入系统
导入系统文本
模块1
副标题（）
Dim source As String（）=File.ReadAllLines（“c:\Data\csvtoxmlTEST.CSV”）
将第一行变暗为布尔值=真
模糊客户机=
cust.Save（“c:\Data\csvtoxmlTEST.xml”）
端接头
端模块

我的输出打印以下内容：

<?xml version="1.0" encoding="utf-8"?>
<events>
  <event EventIdentity="EventIdentity">
    <name>EventName</name>
    <summary>EventSummary</summary>
    <description>EventDescription</description>
    <local-start-date-time>EventStart</local-start-date-time>
    <local-end-date-time>EventEnd</local-end-date-time>
    <status>status</status>
    <locations>
      <location>
        <name>Location1_Name</name>
        <location>
          <name>Location2_Building</name>
          <location>
            <name>Location3_Room</name>
          </location>
        </location>
      </location>
    </locations>
    <categories>
      <category>
        <name>Category</name>
      </category>
    </categories>
    <custom-data>Department</custom-data>
  </event>
  <event EventIdentity="17057">
    <name>ACCT</name>
    <summary> Financial Acct</summary>
    <description>ACCT 23071 Financial Acct</description>
    <local-start-date-time>1/28/2019 10:00AM</local-start-date-time>
    <local-end-date-time>1/28/2019 10:50AM</local-end-date-time>
    <status>A</status>
    <locations>
      <location>
        <name>TestClass</name>
        <location>
          <name>West</name>
          <location>
            <name>room - 24</name>
          </location>
        </location>
      </location>
    </locations>
    <categories>
      <category>
        <name>Academic Course</name>
      </category>
    </categories>
    <custom-data>School of Business Administration</custom-data>
  </event>
</events>

事件名
事件摘要
事件描述
事件开始
黄昏
地位
位置1_名称
位置2_大厦
位置3_室
类别
部门
会计科目
财务会计
会计23071财务会计
2019年1月28日上午10:00
2019年1月28日上午10:50
A.
测试类
西部
房间-24
学术课程
工商管理学院

我希望它保存我的xml并以

开始，而不是

最后，这里是我的测试csv文件，程序读取： EventIdentity、EventName、EventSummary、EventDescription、EventStart、EventEnd、Location1\u名称、Location2\u大楼、Location3\u房间、类别、部门、状态

---

17057，会计，财务会计，会计23071，财务会计，2019年1月28日上午10:00，2019年1月28日上午10:50，西区，工商管理学院学术课程-24室，A

您想跳过第一行

source

是一个字符串数组-迭代时跳过第一项即可：

  <%= From strs In source.Skip(1)
      Let fields = Split(strs, ",")
      Select
  ...

---

您想跳过第一行
source
是一个字符串数组-迭代时跳过第一项即可：

  <%= From strs In source.Skip(1)
      Let fields = Split(strs, ",")
      Select
  ...

来自源代码中的strs。跳过（1）
非常感谢
来自源代码中的strs。跳过（1）
非常感谢非常感谢非常感谢非常感谢非常感谢