Comma Separated Value ( CSV) is een gemeenschappelijk formaat wordt gebruikt om gegevens tussen verschillende programma's die niet kunnen steunen elkaars eigen indeling te wisselen. Zo kan het worden gebruikt om spreadsheet -gegevens uitwisselen tussen Excel en andere spreadsheet of database- gegevens tussen Access en MySQL . Visual Basic is niet een automatische functie voor het laden van CSV -bestanden bevatten , maar een van de redenen voor de brede steun is zijn eenvoud . 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 . " Kopen van 2 Sleep een knop op uw formulier uit de gereedschapskist met behulp van uw muis .
3 Zoek de " OpenFileDialog " controle en deze toevoegen aan uw formulier ook. Aangezien deze controle is in eerste instantie onzichtbaar is , zal het niet op uw formulier , maar eronder .
4 Dubbelklik op de knop om een gebeurtenis die zal optreden wanneer de gebruiker op de knop klikt creëren . Plak de volgende code die de gebruiker naar een CSV-bestand zal vragen 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 REM Haal het bestand die de gebruiker wil load.OpenFileDialog1.ShowDialog ( ) Dim bestandsnaam As String = OpenFileDialog1.FileNameDim FileStream Zoals System.IO.StreamReader = Nieuw System.IO.StreamReader ( bestandsnaam ) REM Lees alle gegevens uit het bestand in een enkele inhoud string.Dim As String = fileStream.ReadToEnd REM
Splits de string in haar waarden . Na deze operatie is voltooid , zal er een eendimensionale matrix van waarden te zijn , en het einde van de rijen zal worden gekenmerkt door lege tekenreeksen . Dim waarden
= contents.Split ( ) Dim arr als ArrayList = Nieuw ArrayListDim rijen Zoals ArrayList = New ArrayList REM
Verplaats de gegevens in een 2D- array. Voor x As Integer = 0 To lines.Length - 1Als lijnen ( x ) IsNot String.Empty Thenarr.Add ( lijnen ( x ) ) End Ifrows.Add ( arr.Clone ) arr.Clear ( ) Volgende
Dim gegevens ( rows.Count , rijen ( 0 ) tellen . ) als Koord
x As Integer = 0 To rows.Count - 1Voor y As Integer = 0 To rijen ( x ) tellen - . 1data ( x , y ) = rijen ( x ) ( y ) Volgendenext
End Sub
|
