Miten lukeaCSV-tiedoston Visual Basic

Miten lukeaCSV-tiedoston Visual Basic George Doyle / Stockbyte / Getty Images

Comma Separated Value (CSV) -muodossa on yhteinen malli, jota käytetään vaihtamaan tietoja eri ohjelmia, jotka eivät tue toistensa alkuperäisessä muodossa.Esimerkiksi, sitä voidaan käyttää vaihtaa laskentataulukkotiedot välillä Excel ja toinen taulukkolaskenta, tai tietokannan tietojen välillä Access ja MySQL.Visual Basic ei sisällä automaattista toiminto lastaus CSV-tiedostoja, mutta yksi syy sen laaja tuki on sen yksinkertaisuus.Kuten nimi kertoo, CSV-tiedostot ovat vain arvolistan, kukin erotettu pilkulla tai uuden rivin.Se on melko helppo luoda CSV lukija Visual Basic.

Ohjeet

  1. Luo uusi projekti painamalla "File" ja "Uusi projekti."

  2. Vedä painike päälle muodossa työkalupakin hiirellä.

  3. Etsi "OpenFileDialog" ohjaus ja lisää se muotoon samoin.Koska tämä valvonta on aluksi näkymätön, se ei näy muodossa, vaan sen alla.

  4. Kaksoisnapsauta painiketta luoda tapahtuma, joka tapahtuu aina kun käyttäjä napsauttaa painiketta.Liitä

    seuraava koodi, joka kysyy käyttäjältä CSV-tiedosto ja lataa sen datan 2D array:

    Private Sub Button1_Click (ByVal lähettäjälle System.Object, ByVal E System.EventArgs) Käsittelee Button1.Click
    & amp; # 9;
    & amp; # 9, REM Nouda tiedosto käyttäjä haluaa ladata.
    OpenFileDialog1.ShowDialog ()
    Dim tiedostonimi As String = OpenFileDialog1.FileName
    Dim FileStream Kuten System.IO.StreamReader = Uusi System.IO.StreamReader (tiedostonimi)


    REM Lue kaikki tiedot tiedosto yhdeksi merkkijono.

    Dim sisältö As String = fileStream.ReadToEnd

    REM Split merkkijonon sen arvoista.Tämän jälkeen toimenpide on valmis, tulee olemaan yksiulotteinen arvoja, ja lopussa rivien leimaa tyhjiä merkkijonoja.

    Dim arvot = contents.Split ()
    Dim sov Kuten ArrayList = Uusi ArrayList
    Dim rivejä ArrayList = Uusi ArrayList

    REM Siirrä data 2D array.

    x: Kokonaisluku = 0 lines.Length - 1
    Jos linjat (x) isnot String.Empty Sitten
    arr.Add (linjat (x))
    Loppu Jos
    rows.Add (arr.Clone)
    sov.Clear ()
    Seuraava

    Dim tiedot (rows.Count, rivit (0) .count) As String

    x As Integer = 0 rows.Count - 1
    y As Integer = 0 riviä (x) .count- 1
    tiedot (x, y) = riviä (x) (y)
    Seuraava
    Seuraava

    End Sub

761
0
3
Visual Basic Ohjelmointi