• 
  

  hur man läser en CSV -fil i Visual Basic

  
  

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

Previous：nothing Next：sql fundamenta utbildning

Relaterade artiklar