Kommaavgränsade värden ( CSV) är ett gemensamt format för att utbyta data mellan olika program som inte kan stödja varandras eget format . Exempelvis kan den användas för att utbyta tabelldata mellan Excel och annat kalkylblad eller data databas mellan Access och MySQL . Visual Basic innehåller inte en automatisk funktion för att ladda CSV-filer , men en av anledningarna till dess utbredda stöd är dess enkelhet . Som namnet antyder , CSV-filer är inget annat än en lista över värden , var separerade med ett kommatecken eller en ny linje . Det är ganska enkelt att skapa en CSV -läsare i Visual Basic . Instruktioner
1
Skapa ett nytt projekt genom att klicka på " File " och " Nytt projekt ".
2
Dra en knapp på din form från verktygslådan med din mus . Addera 3
Hitta " OpenFileDialog " kontroll och lägga till den i din form också . Eftersom kontrollen är initialt osynligt , kommer det inte att visas i formuläret , utan snarare under den.
4
Dubbelklicka på knappen för att skapa en händelse som inträffar när användaren klickar på knappen . Klistra in följande kod som kommer att be användaren om en CSV -fil och läsa in sina data i en 2D- array :
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click REM Hämta filen användaren vill load.OpenFileDialog1.ShowDialog ( ) Dim filnamn As String = OpenFileDialog1.FileNameDim fileStream som System.IO.StreamReader = Ny System.IO.StreamReader ( filename ) REM Läs alla data från filen till en enstaka string.Dim innehållet As String = fileStream.ReadToEnd
REM Dela upp strängen i sina värderingar . Efter denna operation är klar kommer det att finnas en endimensionell matris med värden , och i slutet av raderna kommer att präglas av tomma strängar .
Dim värden = contents.Split ( ) Dim arr Som ArrayList = Ny ArrayListDim v så ArrayList = Ny ArrayList
REM Flytta data till en 2D- array . För x As Integer = 0 Till lines.Length - 1När linjer ( x ) isnot String.Empty Thenarr.Add ( linjer ( x ) ) End Ifrows.Add ( arr.Clone ) arr.Clear ( ) Nästa
Dim data ( rows.Count , raderna ( 0 ) räknas . ) As String
För x As Integer = 0 Till rows.Count - 1För y As Integer = 0 Till rader ( x ) count - . 1data ( x , y ) = v ( x ) ( y ) NextNext
End Sub
