Kuidas Loe CSV faili, Visual Basic

Kuidas Loe CSV faili, Visual Basic George Doyle / Stockbyte / Getty Images

komadega eraldatud väärtuste (CSV) vormingus on ühise vormi kasutatakse andmete vahetamiseks erinevate programmide vahel, mis ei pruugi toetada üksteise native formaadis.Näiteks saab seda kasutada vahetada arvutustabeli vahel andmete Excel ja muud arvutustabeli või andmebaasi andmete vahel Access ja MySQL.Visual Basic ei sisalda automaatseks laadimiseks CSV faile, aga üks põhjustest tema laialdane toetus on selle lihtsus.Nagu nimigi viitab, CSV faile on midagi, kuid väärtuste nimekirja iga eraldada komaga või uue rea.See on üsna lihtne luua CSV lugeja Visual Basic.

juhised

  1. Loo uus projekt klõpsates "File" ja "Uus projekt."

  2. Lohista nuppu peale oma vormi tööriistakasti kasutades oma hiirt.

  3. Leia "OpenFileDialog" kontrolli ja lisada see oma vormi samuti.Kuna see kontroll on esialgu nähtamatu, siis ei näe te kujul, vaid selle all.

  4. Topeltklõpsake nuppu, et luua sündmus, mis toimub siis, kui kasutaja klõpsab nuppu.Aseta j

    ärgmine kood, mis küsib kasutajalt CSV faili ja laadida oma andmeid 2D massiiv:

    Private Sub Button1_Click (ByVal saatja Nagu System.Object, ByVal e Nagu System.EventArgs) käepidemed Button1.Click
    & amp; # 9;
    & amp; # 9; REM siia fail, mida kasutaja soovib laadimiseks.
    OpenFileDialog1.ShowDialog ()
    Dim failinimi Nagu String = OpenFileDialog1.FileName
    Dim FileStream Nagu System.IO.StreamReader = New System.IO.StreamReader (failinimi)


    REM Loe kõiki failist ühte stringi.

    Dim sisu As String = fileStream.ReadToEnd

    REM Split stringi oma väärtusi.Pärast seda on lõpetatud, seal on üks mõõtmete väärtuste massiiv, ja lõpuks rida on tähistatud tühja stringi.

    Dim väärtused = contents.Split ()
    Dim arr Nagu ArrayList = New ArrayList
    Dim ridu ArrayList = New ArrayList

    REM Liiguta andmeid 2D massiivi.

    For x As Integer = 0 lines.Length - 1
    Kui read (x) onei String.Empty Siis
    arr.Add (read (x))
    End Kui
    rows.Add (arr.Clone)
    arr.Clear ()
    Järgmine

    Dim andmeid (rows.Count, rida (0) .count) Nagu String

    For x As Integer = 0 rows.Count - 1
    For y Nagu Integer = 0 kuni rida (x) .count- 1
    andmeid (x, y) = read (x) (y)
    Järgmine
    Järgmine

    End Sub

576
0
3
Visual Basic Programmeerimine