皮皮网

1.vb如何实时读取csv文件？
2.我在用VB编写一程序，最后要将生成的EXCEL文件转换成CSV形式，改如何用语句转换？多谢帮忙

vb如何实时读取csv文件？

       给你一段VB.net读取csv文件的代码把。

Imports System.IO

       Imports System.Collections.Generic

       Module Module1

           Public CSV数据 As List(Of List(Of String))

           ''' <summary>

           ''' 从指定路径的datasqlite源码编译文件读取内容，并分析出其中每行含有分隔符的数据，存到CSV数据中。下载boost源码

           ''' <para>调用的时候使用CSV数据(5)(0)表示第6条记录的第1个数据</para>

           ''' </summary>

           ''' <param name="文件路径">必需。一个[String]表达式。要读取的文件路径。</param>

           ''' <returns>返回是否读取成功</returns>

           ''' <remarks></remarks>

           Public Function 读取(ByVal 文件路径 As String) As Boolean

               Dim 文件读取器 As StreamReader = New StreamReader(文件路径)

               Dim 语句 As String

               Dim t成功 As Boolean = True

               Dim 分隔符 As Char = ";"

               CSV数据 = New List(Of List(Of String))

               While Not 文件读取器.EndOfStream

                   Try

                       语句 = 文件读取器.ReadLine

                       '分析语句后判断类型

                       If 语句.Contains(分隔符) Then

                           Dim array = 语句.Split(分隔符)

                           If array IsNot Nothing Then

                               CSV数据.Add(array.ToList())

                           End If

                       End If

                   Catch ex As Exception

                       t成功 = False

                   End Try

               End While

               Return t成功

           End Function

       End Module

       你上面的数据执行后，将会保存到一个List嵌套List的String组中。

       自己转化为数字再进行操作把。

Dim 数字 = Convert.ToDecimal(CSV数据(5)(0))

我在用VB编写一程序，城市黄页源码最后要将生成的EXCEL文件转换成CSV形式，改如何用语句转换？多谢帮忙

       如果是EXCEL文件转CSV就用下面的代码改一下。

       Sub Macro1()

       '

       ' Macro1 Macro

       ' 宏由 User 录制，魔兽kw源码时间: -3-

       '

       '

        ChDir "C:\Documents and Settings\Administrator\桌面"

        ActiveWorkbook.SaveAs Filename:= _

        "C:\Documents and Settings\Administrator\桌面\Book1.csv", FileFormat:=xlCSV, _

        CreateBackup:=False

        Range("G").Select

       End Sub

       如果是VB直接生成CSV，然后用EXCEL打开

       一般VB中的表格都用数组形式存在。

       编程用半角的vpp源码 ipsec逗号“,”和回车vbcrlf

       分割，存成文本文件。扩展名是CSV就可以了。

       EXCEL可以直接打开。

       dim a(,)

       dim s,sf

       sf = "C:\Documents and Settings\Administrator\桌面\Book1.csv"

       s = ""

       for row = 0 to

        for col = 0 to

        s = s & a(row,col) & ","

        next

        s = s & vbcrlf

       next

       f = freefile

       open sf for output as #f

        print #f,s

       close