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

遇到一个数据处理自动化的问题，于是打算开发一个基于excel的小工具。在业余时间一边自学一边实践，抽空把一些知识写下来以备今后参考，因为走的是盲人摸象的野路子，幼稚与错误请多包涵。

开发环境基于VSTO，具体配置：visual studio 2010，VB .Net，excel 2007，文档级别的定制程序。 

 

读取xml文件
有好多种读取xml的方式，xmlDOM比较常见，我使用了另外一种，它以数据流的方式打开文件并读取内容

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

 

读取csv文件
常见的csv文件以逗号','分割每行的字段，如果字段中正好也有','，则需要用双引号""括起来，比如下面2行的情况。这给解析字段带来了麻烦，不能简单的调用string的split函数。
"","","","","Case_1,Case_2,Case_3","Case_1,Case_2,Case_3","Case_1,Case_2,Case_3","Case_1,Case_2,Case_3",
project,Comm,factor5%(dB),"[0,Infinity]",-2.0599684918456296 ,-2.0599684918456296 ,-2.0599684918456296 ,-2.0599684918456296 ,

幸运的是遇到的需求中并不关注带双引号""的字段，所以对字符串进行了预处理，把""中的','替换掉，使之不对用','分割产生干扰。

 

     ' 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 

 

转载于:https://www.cnblogs.com/pop-lar/p/4279480.html