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 .