Excel开发学习笔记：读取xml文件及csv文件

Imports System.Xml  
Dim group As New List(Of String）  
Using reader As XmlReader = XmlReader.Create(OpenFileDialog2.FileName)  
    While reader.ReadToFollowing("group")  
        reader.MoveToAttribute("name")  
        group.Add(reader.Value)  
    End While  
End Using

    ‘dataFileStr是string数组，保存了csv文件的完整内容  
    Dim dataFileStr As String() = IO.File.ReadAllLines(file)‘file是文件路径的字符串  
    ‘转换格式
    ChangeCsvFormat(dataFileStr)  
    ‘分割第一行的字段  
    Dim titleEle As String() = dataFileStr(0).Split(New Char() {","c})  
                          
    ‘修改读取的csv内容，把""中间的逗号替换为~号，方便后续用逗号分词  
    Private Sub ChangeCsvFormat(ByRef csvLines As String())  
        For i As Long = 0 To csvLines.Count - 1  
            Dim begin As Integer = -1, endIdx As Integer = -1  
            Dim cnt As Integer = 0  
            Do  
                cnt += 1  
                If cnt Mod 2 = 0 Then  
                    endIdx = csvLines(i).IndexOf("""", begin + 1)  
                    If endIdx > 0 Then  
                        Dim orgSub As String = csvLines(i).Substring(begin, endIdx - begin + 1)  
                        Dim newSub As String = orgSub.Replace(",", "~")  
      
                        csvLines(i) = csvLines(i).Replace(orgSub, newSub)  
                    End If  
                Else  
                    endIdx += 1  
                    begin = csvLines(i).IndexOf("""", endIdx)  
                End If  
            Loop Until begin < 0 Or endIdx < 0  
        Next  
    End Sub