Visual Basic ( VB ) är en dator programmeringsspråk skapat av Microsoft . VB gör betydande tillskott till uppsättning primitiver som finns i den ursprungliga BASIC programmeringsspråk , såsom rekursion och avancerade manipulationer sträng . Kommaavgränsade värden ( CSV ) är en utbredd form av lagring tabellform information i datafiler . I en CSV-fil , motsvarar varje rad till en rad i tabellen kodas , varje rad består i sin tur av värden som motsvarar de kolumnposter separerade med kommatecken . Du kan skriva VB -kod som läser CSV indata i en in-memory array för vidare manipulering . Instruktioner
1
Öppna CSV -filen i läsläge och läsa hela dess innehåll , som i denna exempelkod :
Dim handtag As Integer
Dim wholeContents As String
handtag = FreeFile
Öppna " input.csv " För inmatning som hanterar
wholeContents = Input $ ( LOF ( handtag ) , # handtag ) katalog
Stäng hantera
Ersätt " input.csv " med namnet på den CSV-fil som du behöver för att tolka .
2
Separata filens rader i olika delar av en VB Variant hjälp av newline tecken som avgränsare , som i denna exempelkod :
Dim lineContents As Variant
lineContents = Split ( wholeContents , vbCrLf )
3
Tilldela den korrekta antalet rader och kolumner till array som innehåller de värden som i den ursprungliga CSV-fil , som i denna exempelkod :
Dim sampleLine As Variant
Dim nRows As Integer
Dim nCols As Integer
Dim array () As String
nRows = UBound ( lineContents ) katalog
sampleLine = Split ( lineContents ( 0 ) , " , " )
nCols = UBound ( sampleLine ) katalog
ReDim array ( nRows , nCols )
4
kopiera värdena från Variant innehåller all kommaseparerade värden i VB arrayen , som i denna exempelkod :
Dim i As Integer
Dim j As Integer
För i = 0 Till nRows
sampleLine = Split ( lineContents ( i) , "," ) katalog
För j = 0 Till UBound ( sampleLine ) katalog
array ( i, j) = sampleLine ( j ) katalog
Nästa j
Nästa jag
Efter verkställande två kapslade " för " loopar , array " array " kommer att innehålla samma värden som den ursprungliga CSV-fil .
