Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte súbor CSV v režime čítania a čítanie celý jeho obsah , ako v tomto ukážkovom kóde : 
 
 Dim rukoväť As Integer 
 
 Dim wholeContents As String 
 
 zvládnuť = FreeFile 
 
 Otvoriť " input.csv " pre vstup ako rukoväť 
 
 wholeContents = vstup $ ( LOF ( rukoväť ) , # rukoväť ) 
 
 zavrieť rukoväť 
 
 Nahradiť " input.csv " s názvom CSV súbor , ktorý je potrebné analyzovať . 
 2 
 samostatných riadkov v súbore na rôzne prvky VB Variant pomocou nový riadok znaky ako oddeľovače , ako v tomto ukážkovom kóde : 
 
 Dim lineContents As Variant 
 
 lineContents = Split ( wholeContents , vbCrLf ) 
 3 
 prideliť správne počet riadkov a stĺpcov do poľa , ktoré bude obsahovať hodnoty v pôvodnom súbore CSV , ako je v tomto ukážkovom kóde : 
 
 Dim sampleLine As Variant 
 
 Dim nrows As Integer 
 
 Dim nCols As Integer 
 
 Dim poľa ( ) As String 
 
 nrows = UBound ( lineContents ) 
 
 sampleLine = Split ( lineContents ( 0 ) , " , " ) 
 
 nCols = UBound ( sampleLine ) 
 
 ReDim array ( nrows , nCols ) 
 4 
 skopírovať hodnoty z Variant obsahujúce všetky hodnoty oddelené čiarkami do poľa VB , ako v tomto ukážkovom kóde : 
 
 Dim i As Integer 
 
 Dim j As Integer 
 
 i = 0 To nrows 
 
 sampleLine = Split ( lineContents ( i ) , " , " ) 
 
 j = 0 UBound ( sampleLine ) 
 
 poľa ( i , j ) = sampleLine ( j ) 
 
 Next j 
 
 Next i 
 
 Po vykonaní dvoch vnorených " v " slučky , pole " pole " bude obsahovať rovnaké hodnoty ako v pôvodnom súbore vo formáte CSV .