Kommaavgränsade värden ( CSV) är ett vanligt format som används för att utbyta data mellan olika program som inte kan stödja varandras ursprungliga formatet. Till exempel kan den användas för att utbyta kalkylbladsdata mellan Excel och annat kalkylprogram , eller data databas mellan Access och MySQL . Visual Basic innehåller inte en automatisk funktion för lastning CSV -filer , men ett av skälen för dess omfattande stöd är dess enkelhet. Som namnet antyder , CSV -filer är ingenting annat än en lista med värden , var separerade med ett kommatecken eller en ny linje . Det är ganska enkelt att skapa en CSV- läsare i Visual Basic
1
<. br > Skapa ett nytt projekt genom att klicka på ” File ” och ” New Project ”.
2 .
Dra en knapp på din form från verktygslådan med hjälp av musen .
3 .
Hitta ” OpenFileDialog ” kontroll och lägga den i din form också. Eftersom kontrollen är till en början osynlig , visas den inte i formuläret , utan 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 uppmana användaren att en CSV -fil och läsa in sin data i en 2D- array :
Private Sub Button1_Click ( ByVal avsändaren som System. Object , ByVal e Som System. EventArgs ) hanterar Button1. Click
REM Hämta filen som användaren vill ladda .
OpenFileDialog1. ShowDialog ( )
Dim filnamn As String=OpenFileDialog1. FileName
Dim FileStream Som System. IO. StreamReader=Nya System. IO. StreamReader ( filnamn )
REM Läs alla data från filen till en enda sträng .
Dim innehåll As String=fileStream. ReadToEnd
REM Dela strängen i dess värderingar. Efter denna operation är klar kommer det att finnas en endimensionell matris med värden , och slutet av raderna kommer att präglas av tomma strängar .
Dim värden=innehåll . Split ()
Dim arr Som ArrayList=Nya ArrayList
Dim rader som ArrayList=Nya ArrayList
REM Flytta data till en 2D- array .
För x As Integer=0 till lines. Length-1
Om linjerna (x ) IsNot String. Empty Då
arr. Add ( linjer (x) )
End If
rows. Add ( arr. Clone )
arr. Clear ( )
Nästa
Dim data ( Rows. Count , rader (0) . räknas ) As String
För x As Integer=0 till Rows. Count-1
för y As Integer=0 till v ( x ) räknas-1.
data ( x , y )=v ( x ) (y )
Nästa
Nästa
End Sub
Lämna ett svar