Πώς να διαβάσετε ένα αρχείο CSV σε Visual Basic

διαχωρισμένες με κόμμα (CSV ) είναι μια κοινή μορφή που χρησιμοποιείται για την ανταλλαγή δεδομένων μεταξύ των διαφόρων προγραμμάτων που ενδέχεται να μην υποστηρίζει εγγενή μορφή του άλλου . Για παράδειγμα , μπορεί να χρησιμοποιηθεί για την ανταλλαγή δεδομένων μεταξύ του Excel φύλλο και άλλο φύλλο , ή τα δεδομένα της βάσης δεδομένων μεταξύ της Access και MySQL . Visual Basic δεν περιέχει μία αυτόματη λειτουργία για τη φόρτωση των αρχείων CSV , ωστόσο ένας από τους λόγους για την ευρεία υποστήριξή της είναι η απλότητά του . Όπως υποδηλώνει το όνομα , τα αρχεία CSV δεν είναι τίποτα , αλλά μια λίστα τιμών , κάθε χωρίζονται από ένα κόμμα ή μια νέα γραμμή . Είναι αρκετά απλό να δημιουργήσει έναν αναγνώστη CSV σε Visual Basic . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο κάνοντας κλικ στο " Αρχείο" και "New Project ". 2

Σύρετε ένα κουμπί επάνω φόρμα σας από την εργαλειοθήκη χρησιμοποιώντας το ποντίκι .
εικόνων 3

Βρείτε το " OpenFileDialog " ελέγχου και να το προσθέσετε στη φόρμα σας , καθώς και . Δεδομένου ότι ο έλεγχος αυτός είναι αόρατες , δεν θα εμφανίζονται στη φόρμα σας , αλλά κάτω από αυτό .
Η

4 Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα γεγονός που θα συμβεί όταν ο χρήστης κάνει κλικ στο κουμπί . Επικολλήστε τον παρακάτω κώδικα που θα ζητήσει από το χρήστη για ένα αρχείο CSV και να φορτώσει τα δεδομένα του σε ένα 2D array :

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click REM Αποκτήστε το αρχείο αυτό ο χρήστης θέλει να load.OpenFileDialog1.ShowDialog ( ) Dim Όνομα As String = OpenFileDialog1.FileNameDim FILESTREAM Όπως System.IO.StreamReader = Νέα System.IO.StreamReader ( όνομα αρχείου ) REM Διαβάστε όλα τα δεδομένα από το αρχείο σε μια ενιαίο περιεχόμενο string.Dim As String = fileStream.ReadToEnd

REM Χωρίστε το string σε αξίες της . Μετά από αυτή την εργασία αυτή τελειώσει , θα υπάρξει ένα μονοδιάστατο πίνακα τιμών , και το τέλος των σειρών θα πρέπει να χαρακτηρίζεται από κενό αλφαριθμητικό .

Τιμές Dim = contents.Split ( ) Dim arr Όπως ArrayList = Νέα ArrayListDim Όπως σειρές ArrayList = New ArrayList

REM Μετακινήστε τα δεδομένα σε ένα 2D array . Για x As Integer = 0 Για να lines.Length - 1Αν γραμμές ( x ) isnot String.Empty Thenarr.Add ( γραμμές ( x ) ) End Ifrows.Add ( arr.Clone ) arr.Clear ( ) Επόμενη

Δημ. δεδομένων ( . rows.Count , σειρές ( 0 ) μετρούν ) Όπως String

Για x As Integer = 0 Για να rows.Count - . 1Για y As Integer = 0 Για σειρές ( x ) μετρούν - 1data ( x , y ) = σειρές ( x ) ( y ) NextNext

End Sub
Η
εικόνων