Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να διαβάσετε μια μοναδική γραμμή με Κόμματα Από Visual Basic

ανάγνωση δεδομένων σε αρχεία κειμένου είναι ένα κοινό έργο στον προγραμματισμό ηλεκτρονικών υπολογιστών , και μερικές φορές το μόνο που θέλετε να διαβάσετε ορισμένα στοιχεία αγνοώντας τα υπόλοιπα . Για να επιτευχθεί αυτό , θα πρέπει πρώτα να προγραμματίσετε ανοίξετε το αρχείο κειμένου χρησιμοποιώντας την κλάση " StreamReader " . Σε αυτή την περίπτωση , θα πρέπει να διαβάσετε μία γραμμή τη φορά με τη μέθοδο της " ReadLine " για να ελέγξετε για τα δεδομένα που θέλετε να αποθηκεύσετε . Διαβάζοντας μια γραμμή σε μια στιγμή μπορεί να σας βοηθήσει να παρακολουθείτε τα δεδομένα που σώζετε στη μνήμη στο πρόγραμμά σας . Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Basic Express και κάντε κλικ στο "New Project " στο "Start Page " καρτέλα . Κάντε κλικ στο " Visual Basic " κάτω " Εγκατεστημένα πρότυπα " και κάντε διπλό κλικ στο "Console Εφαρμογή " για να δημιουργήσετε ένα νέο έργο κονσόλα 2

Δηλώστε το παρακάτω namespace στην περιοχή δηλώσεις της λειτουργικής μονάδας : .

Εισαγωγές System.IO
εικόνων 3

Ορίστε τις μεταβλητές που θα χρησιμοποιήσετε για να διαβάσετε το αρχείο κειμένου

Dim filePath As String = " C : \\. readTextFile.txt "

Dim lineRead As String = " "

Dim finalFileData As String = " "
Η 4

Ελέγξτε και δείτε εάν υπάρχει το αρχείο με την προσθήκη του παρακάτω κώδικα :

Αν System.IO.File.Exists ( filePath ) = True τότε
5

Προσθέστε τον ακόλουθο κώδικα για να ανοίξετε το αρχείο κειμένου για την ανάγνωση :

Dim objReader Όπως New System.IO.StreamReader ( filePath )
Η 6

Loop μέσα από τα δεδομένα και να αποθηκεύσετε τις γραμμές που περιέχουν κόμμα

Do While objReader.Peek ( ) <> . - 1

lineRead = objReader.ReadLine ( ) & vbNewLine

Αν lineRead.Contains ( " , ") Στη συνέχεια

finalFileData = finalFileData & lineRead

End Αν

Loop
Η 7

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

Else MsgBox

( " το αρχείο δεν υπάρχει στη διαδρομή που ορίζεται . » )

End If
8

Εμφάνιση δεδομένων που διαβάζονται από το αρχείο στο παράθυρο της κονσόλας με την προσθήκη του παρακάτω κώδικα :

Console.Write ( finalFileData )

Console.ReadLine ( )
Η

9 Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας . Τα αποτελέσματα εμφανίζονται στο παράθυρο της κονσόλας θα πρέπει να είναι μόνο γραμμές με κόμματα .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα