vb.net xls в csv с кавычками?

Question

У меня есть файл xls или csv без кавычек, и с помощью vb.net нужно превратить его в csv с кавычками вокруг каждой ячейки.Если я открою xls / csv без кавычек в MS Access, установите для каждого столбца текст, а затем экспортируйте его в нужном мне формате.Есть ли более простой способ?Если нет, то как мне повторить это в vb.net?Спасибо.

Answer 1

Если вы используете .Net OLE DB провайдера , вы можете указать подробности форматирования .csv в файле schema.ini в папке, в которой находятся ваши файлы данных. Для «без кавычек» .csv функции должен выглядеть как

[noquotes.csv]        <-- file name
ColNameHeader=True    <-- or False
CharacterSet=1252     <-- your encoding
Format=Delimited(,)   <-- 
TextDelimiter=        <-- important: no " in source file
Col1=VendorID Integer <-- your columns, of course
Col2=AccountNumber Char Width 15

для "заключенного в кавычки" .csv, просто измените имя и удалите строку TextDelimiter = (по умолчанию заключаются в кавычки).

Затем подключитесь к текстовой базе данных и выполните инструкцию

SELECT * INTO [quotes.csv] FROM [noquotes.csv]

(поскольку это создает quotes.csv, вы можете захотеть удалить файл перед каждым экспериментальным прогоном)

Добавлено для справки с "Пустые поля должны быть в кавычках"

Это демонстрационная версия VBScript, но поскольку важными являются параметры для .GetString (), вы можете легко перенести ее на VB:

    Dim sDir   : sDir       = resolvePath( "§LibDir§testdata\txt" )
    Dim sSrc   : sSrc       = "noquotes.csv"
    Dim sSQL   : sSQL       = "SELECT * FROM [" & sSrc & "]"
    Dim oTxtDb : Set oTxtDb = New cADBC.openDb( Array( "jettxt", sDir ) )
    WScript.Echo goFS.OpenTextFile( goFS.BuildPath( sDir, sSrc ) ).ReadAll()
    Dim sAll : sAll = oTxtDb.GetSelectFRO( sSQL ).GetString( _
                             adClipString, , """,""", """" & vbCrlf & """", "" _
                      )
    WScript.Echo   """" & Left( sAll, Len( sAll ) - 1 )

и вывод:

    VendorID;AccountNumber;SomethingElse
    1;ABC 123 QQQ;1,2
    2;IJK 654 ZZZ;2,3
    3;;3,4

    "1","ABC 123 QQQ","1,2"
    "2","IJK 654 ZZZ","2,3"
    "3","","3,4"

(немецкий язык, следовательно, разделитель полей; и десятичный символ,)

Тот же вывод из этого кода VB.Net:

    Imports ADODB
    ...

        Sub useGetString()
            Console.WriteLine("useGetString")

            Const adClipString As Integer = 2
            Dim cn As New ADODB.Connection
            Dim rs As ADODB.Recordset
            Dim sAll As String

            cn.ConnectionString = _
                 "Provider=Microsoft.Jet.OLEDB.4.0;" _
               & "Data Source=M:\lib\kurs0705\testdata\txt\;" _
               & "Extended Properties=""text;"""

            cn.Open()
            rs = cn.Execute("SELECT * FROM [noquotes.csv]") 
            sAll = rs.GetString( adClipString, , """,""", """" & vbCrLf & """", "" )
            cn.Close()
            sAll = """" & Left( sAll, Len( sAll ) - 1 )
            Console.WriteLine( sAll )
        End Sub

Answer 2

Проверьте метод на эту ссылку .Чтобы убедиться, что кавычки обойдутся, добавьте кавычки в начало и конец данных каждого столбца в цикле, который помещает данные столбца в файл.

Например, сделайте цикл следующим образом:

For InnerCount = 0 To ColumnCount - 1
    Str &= """" & DS.Tables(0).Rows(OuterCount).Item(InnerCount) & ""","
Next

Answer 3

Public Class clsTest

Public Sub Test
Dim s as string = "C:\!Data\Test1.csv"

        Dim Contents As String = System.IO.File.ReadAllText(s)


        Dim aryLines As String() = Contents.Split(New String() { Environment.Newline }, StringSplitOptions.None)
        Dim aryParts() As String
        Dim aryHeader() As String
        Dim dt As System.Data.DataTable 
        For i As Integer = 0 To aryLines.Length - 1
            aryParts = SplitCSVLine(aryLines(i))
            If dt Is Nothing And aryHeader Is Nothing Then 
                aryHeader = CType(aryParts.Clone, String())
            ElseIf dt Is Nothing And aryHeader IsNot Nothing Then
                dt = DTFromStringArray(aryParts, 1000, "", aryHeader)
            Else
                DTAddStringArray(dt, aryParts)
            End If
        Next
        dt.dump
End Sub 

Public Shared Function SplitCSVLine(strCSVQuotedLine As String) As String()
        Dim aryLines As String() = strCSVQuotedLine.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
        Dim aryParts As String() = Nothing
        For i As Integer = 0 To aryLines.Length - 1
            Dim regx As New Text.RegularExpressions.Regex(",(?=(?:[^\""]*\""[^\""]*\"")*(?![^\""]*\""))")
            aryParts = regx.Split(aryLines(i))
            For p As Integer = 0 To aryParts.Length - 1
                aryParts(p) = aryParts(p).Trim(" "c, """"c)
            Next
        Next
        Return aryParts
End Function

Public Shared Function DTFromStringArray(ByVal aryValues() As String, Optional ByVal intDefaultColumnWidth As Integer = 255, Optional ByVal strTableName As String = "tblArray", Optional ByVal aryColumnNames() As String = Nothing) As DataTable
        If String.IsNullOrWhiteSpace(strTableName) Then strTableName = "tblArray"
        Dim dt As DataTable = New DataTable(strTableName)
        Dim colNew(aryValues.GetUpperBound(0)) As DataColumn
        If aryColumnNames Is Nothing Then
            ReDim aryColumnNames(aryValues.Length)
        Else
            If aryColumnNames.GetUpperBound(0) < aryValues.GetUpperBound(0) Then
                ReDim Preserve aryColumnNames(aryValues.Length)
            End If
        End If
        For x As Integer = aryColumnNames.GetLowerBound(0) To aryColumnNames.GetUpperBound(0)
            If String.IsNullOrWhiteSpace(aryColumnNames(x)) Then
                aryColumnNames(x) = "Field" & x.ToString
            Else
                aryColumnNames(x) = aryColumnNames(x)
            End If
        Next
        For i As Integer = 0 To aryValues.GetUpperBound(0)
            colNew(i) = New DataColumn
            With colNew(i)
                .ColumnName = aryColumnNames(i) '"Value " & i
                .DataType = GetType(String)
                .AllowDBNull = False
                .DefaultValue = ""
                .MaxLength = intDefaultColumnWidth
                .Unique = False
            End With
        Next
        dt.Columns.AddRange(colNew)
        Dim pRow As DataRow = dt.NewRow
        For i As Integer = aryValues.GetLowerBound(0) To aryValues.GetUpperBound(0)
            pRow.Item(i) = aryValues(i)
        Next
        dt.Rows.Add(pRow)
        Return dt
End Function

Public Shared Sub DTAddStringArray(ByRef dt As DataTable, ByVal aryRowValues() As String)
        Dim pRow As DataRow
        pRow = dt.NewRow
        For i As Integer = aryRowValues.GetLowerBound(0) To aryRowValues.GetUpperBound(0)
            pRow.Item(i) = aryRowValues(i)
        Next
        dt.Rows.Add(pRow)
End Sub

End Class