Πώς να φορτώσει ένα πίνακα από ένα αρχείο CSV με τη Visual Basic

Visual Basic ( VB ) είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που δημιουργήθηκε από τη Microsoft . VB κάνει σημαντικές προσθήκες στο σύνολο των πρωτόγονων διατίθενται στην πρωτότυπη γλώσσα BASIC προγραμματισμού , όπως η αναδρομή και εξελιγμένα χειρισμούς εγχόρδων . Τιμές διαχωρισμένες με κόμματα ( CSV ​​) είναι μια ευρέως διαδεδομένη μορφή αποθήκευσης πινάκων πληροφοριών σε αρχεία ηλεκτρονικών υπολογιστών . Σε ένα αρχείο CSV , κάθε γραμμή αντιστοιχεί σε μια σειρά στον πίνακα που κωδικοποιείται ? Κάθε σειρά αποτελείται , με τη σειρά του , των τιμών που αντιστοιχούν στις καταχωρήσεις στήλη διαχωρισμένες με κόμμα . Μπορείτε να γράψετε κώδικα VB που διαβάζει τα δεδομένα εισόδου CSV σε μια σειρά στη μνήμη για περαιτέρω χειρισμό . Οδηγίες
Η

1 Ανοίξτε το αρχείο CSV σε κατάσταση ανάγνωσης και να διαβάσετε ολόκληρο το περιεχόμενό της , όπως σε αυτό το δείγμα κώδικα :

Dim λαβή As Integer

Dim wholeContents Όπως String

χειριστεί = FreeFile

Open " input.csv " Για Input Καθώς η λαβή

wholeContents = Είσοδος $ ( LOF ( λαβή ) , # λαβή)

Κλείστε λαβή

Αντικαταστήστε το " input.csv " από το όνομα του αρχείου CSV θα πρέπει να αναλύσει . 2

Διαχωρίστε τις γραμμές του αρχείου σε διάφορα στοιχεία του VB παραλλαγή χρησιμοποιώντας τη νέα γραμμή χαρακτήρες ως διαχωριστικά , όπως σε αυτό το δείγμα κώδικα :

Dim lineContents όπως Παραλλαγή

lineContents = Split ( wholeContents , vbCrLf )
εικόνων 3

Διαθέστε τη σωστή τον αριθμό των γραμμών και στηλών σε πίνακα που θα περιέχει τις τιμές στο αρχικό αρχείο CSV , όπως σε αυτό το δείγμα κώδικα :

Dim sampleLine όπως Παραλλαγή

Dim nrows As Integer

Dim nCols As Integer

Dim array ( ) Όπως String

nrows = UBound ( lineContents )

sampleLine = Split ( lineContents ( 0 ) , " , " )

nCols = UBound ( sampleLine )

ReDim array ( nrows , nCols )
Η 4

Αντιγράψτε τις τιμές από τη μεταβλητή που περιέχει όλες τις τιμές διαχωρισμένες με κόμμα στη συστοιχία VB , όπως σε αυτό το δείγμα κώδικα :

Dim i ως Ακέραιος

Dim j ως Ακέραιος

Για i = 0 Για να nrows

sampleLine = Split ( lineContents ( i ) " , " )

Για j = 0 να UBound ( sampleLine )

array ( i, j ) = sampleLine ( ι )

Επόμενο j

Next i

Μετά την εκτέλεση των δύο ένθετων "Για" βρόχους , σειρά " σειρά " θα περιέχουν τις ίδιες τιμές με το αρχικό αρχείο CSV .

Η