Ako čítať CSV súboru v jazyku Visual Basic

Hodnoty oddelené čiarkami formáte ( CSV ​​) je spoločný formát používaný pre výmenu dát medzi rôznymi programami , ktoré môžu nepodporujú natívny formát navzájom . Napríklad , to môže byť používané pre výmenu tabuľkových dát medzi aplikáciami Excel a inej tabuľky alebo databázy dát medzi Access a MySQL . Visual Basic neobsahuje automatické funkcie pre vkladanie súborov CSV , ale jedným z dôvodov pre jeho širokú podporu je jeho jednoduchosť . Ako už názov napovedá , CSV súbory nie sú nič iné ako zoznam hodnôt , z ktorých každý oddelených čiarkou alebo nový riadok . To je pomerne jednoduché vytvoriť čitateľa CSV v aplikácii Visual Basic . Pokyny dovolená 1

Vytvorte nový projekt kliknutím na tlačidlo " Súbor " a " Nový projekt " .
2

Presuňte tlačidlo do formulára z panela nástrojov pomocou svojho myš .
3

Nájdite ovládanie " OpenFileDialog " a pridajte ho do svojho podobe . Vzhľadom k tomu , ovládanie je spočiatku neviditeľné , nezobrazí sa na formulári , ale pod ním .
4

Dvakrát kliknite na tlačidlo vytvoriť udalosť , ktorá nastane vždy , keď používateľ klikne na tlačidlo . Vložte nasledujúci kód , ktorý požiada užívateľa o súbore CSV a načítať svoje dáta do 2D poľa :

Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.Click REM si súbor chce užívateľ load.OpenFileDialog1.ShowDialog ( ) Dim filename As String = OpenFileDialog1.FileNameDim FileStream Ako System.IO.StreamReader = New System.IO.StreamReader ( filename) REM si prečítajte všetky dáta zo súboru do jednotlivé string.Dim obsah ako String = fileStream.ReadToEnd

REM Rozdeliť reťazec do svojich hodnôt . Potom, čo sa táto operácia dokončená , bude jednorozmerné pole hodnôt , a koniec riadky budú označené prázdne reťazce .

Hodnoty Dim = contents.Split ( ) Dim arr Ako ArrayList = Nové ArrayListDim riadkov , ArrayList = new ArrayList

REM Presuňte dáta do 2D poľa . Pre x As Integer = 0 To lines.Length - 1Pokud linky ( x ) isnot String.Empty Thenarr.Add ( linky ( x ) ) End Ifrows.Add ( arr.Clone ) arr.Clear ( ) Ďalšie

Dim Data ( . Rows.Count , riadky ( 0 ) počítať ) ako reťazec

x As Integer = 0 To Rows.Count - . 1na y As Integer = 0 To riadkov ( x ) počítať - 1Údaje ( x , y ) = riadky ( x ) ( y ) NextNext

End Sub

• Predchádzajúca strana: Ako vytvoriť VBS skript 
• Ďalšia strana: Ako zistiť , či je text hodnota zmenila na Visual Basic