Hoe maak je een CSV-bestand in Visual Basic Lees

Hoe maak je een CSV-bestand in Visual Basic Lees George Doyle / Stockbyte / Getty Images

Comma Separated Value (CSV) formaat is een gemeenschappelijk formaat gebruikt om gegevens uit te wisselen tussen de verschillende programma's die niet kunnen ondersteunen elkaars native formaat.Zo kan het worden gebruikt om spreadsheet gegevens tussen Excel en andere spreadsheet of database gegevens uit te wisselen tussen Access en MySQL.Visual Basic is niet een automatische functie voor het laden van CSV-bestanden, maar een van de redenen voor zijn brede steun is de eenvoud bevatten.Zoals de naam al impliceert, CSV-bestanden zijn niets anders dan een lijst met waarden, gescheiden door een komma of een nieuwe regel.Het is vrij eenvoudig om een ​​CSV-lezer in Visual Basic te creëren.

instructies

  1. Maak een nieuw project door te klikken op "File" en "New Project."

  2. Sleep een knop op uw formulier uit de gereedschapskist met je muis.

  3. Vind de "OpenFileDialog" control toevoegen aan uw formulier ook.Aangezien dit besturings

    element aanvankelijk onzichtbaar is, wordt deze niet op het formulier, maar eronder.

  4. Dubbelklik op de knop om een ​​evenement dat zal plaatsvinden wanneer de gebruiker op de knop klikt creëren.Plak de volgende code die de gebruiker zal vragen om een ​​CSV-bestand en de gegevens laden in een 2D-array:

    Private Sub Button1_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handles Button1.Click
    & amp; # 9;
    & amp; # 9; REM Haal het dossier van de gebruiker wil om te laden.
    OpenFileDialog1.ShowDialog ()
    Dim filename als Koord = OpenFileDialog1.FileName
    Dim FileStream Zoals System.IO.StreamReader = Nieuwe System.IO.StreamReader (bestandsnaam)


    REM Lees alle gegevens van het dossier in een enkele string.

    Dim inhoud als Koord = fileStream.ReadToEnd

    REM Splits de string in haar waarden.Na deze bewerking is voltooid, zal er een eendimensionale matrix van waarden en het einde van de rijen wordt gekenmerkt door lege strings.

    Dim waarden = contents.Split ()
    Dim arr als ArrayList = Nieuwe ArrayList
    Dim rijen als ArrayList = Nieuwe ArrayList

    REM Verplaats de gegevens in een 2D-array.

    Voor x As Integer = 0 Om lines.Length - 1
    Als lijnen (x) IsNot String.Empty Dan
    arr.Add (lijnen (x))
    End If
    rows.Add (arr.Clone)
    arr.clear ()
    Volgende

    Dim data (rows.Count, rijen (0) .count) als Koord

    Voor x As Integer = 0 Om rows.Count - 1
    Voor y As Integer = 0 Om rijen (x) .count- 1
    data (x, y) = rijen (x) (y)
    Volgende
    Volgende

    End Sub

163
0
3
Visual Basics Programming