Πώς να αναλύσει ένα αρχείο CSV χρησιμοποιώντας VB

Η μορφή CSV ( τιμές διαχωρισμένες με κόμμα) είναι ένα από τα πιο κοινά για τα αρχεία δεδομένων . Το κόμμα χρησιμοποιείται για να οριοθετηθούν τα αντικείμενα σε κάθε γραμμή του αρχείου . Πολλές εφαρμογές , όπως το Excel , δεδομένα εξόδου σε αυτή τη μορφή . Προγραμματιστές θα φορτώσει τα δεδομένα από ένα αρχείο csv σε μια δομή κώδικα, όπως μια σειρά ή τραπέζι . Visual Basic 2008 παρέχει δυνατότητες μείωσης του κώδικα που απαιτείται για να αναλύσει ( διαχωρίσει ένα μεγάλο μπλοκ των δεδομένων σε διακριτά στοιχεία ) σε ένα αρχείο csv . Τα πράγματα που θα χρειαστείτε
επεξεργαστή κειμένου για Microsoft Visual Basic 2008 Express Edition
αρχείο CSV
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Θα δημιουργήσουμε και να αναλύσει μια απλή αρχείο δεδομένων για σκοπούς απεικόνισης . Ανοίξτε τον επεξεργαστή κειμένου και πληκτρολογήστε τα ακόλουθα δεδομένα :

1,2,3,4,5,6 Α , Β , Γ, Δ , Ε 2

Αποθηκεύστε αυτό το αρχείο " c : \\ test.csv " .
εικόνων 3

Ανοίξτε την εφαρμογή της Visual Basic και να δημιουργήσετε ένα νέο έργο , χρησιμοποιώντας το πλήκτρο" Ctrl "και" πλήκτρα N " . Επιλέξτε το " Windows Forms Application " πρότυπο .
Η 4

Δημιουργήστε ένα κουμπί με την ένδειξη " Button1 " στη φόρμα .
5

Κάντε διπλό κλικ στο " Button1 " και πληκτρολογήστε την ακόλουθη Κωδικός :

Χρησιμοποιώντας MyReader Όπως New Microsoft.VisualBasic.FileIO.TextFieldParser _ ( "c : \\ test.csv " ) MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited »που τον οριοθέτη σε οποιοδήποτε valueMyReader . Οριοθέτες = Νέα String ( ) { " , "}

Dim currentRow Όπως String ( )

« βρόχος μέσω όλων των πεδίων στο αρχείο . « Αν όλες τις γραμμές που είναι διεφθαρμένοι , αναφέρουν μια σφάλματος και να συνεχίσει parsing.While Δεν MyReader.EndOfDataTrycurrentRow = MyReader.ReadFields ( ) « φωτεινότητά της από τη δεύτερη αξία του κάθε γραμμή για να δείξει ότι το αρχείο έχει parsed.MsgBox ( currentRow ( 1 ) ) » με κωδικό εδώ για να χειριστεί την row.Catch Ως εκ Microsoft.VisualBasic.FileIO.MalformedLineExceptionMsgBox ( " Line" και ex.Message & _ " είναι άκυρη . Παράκαμψη ") End Try

Τέλος Ενώ

End Χρησιμοποιώντας
Η 6

Εκτελέστε τον κώδικα σε κατάσταση εντοπισμού σφαλμάτων , χρησιμοποιώντας το πλήκτρο "F5 " .
Η

7 Κάντε κλικ στο " Button1 " για να εκτελεστεί ο κώδικας ανάλυσης . Ένα πλαίσιο μηνύματος για κάθε γραμμή του αρχείου θα εμφανιστεί στην οθόνη με τη δεύτερη αξία της εν λόγω γραμμής.
Η
εικόνων