την εφαρμογή 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 " για να τρέξετε το πρόγραμμά σας . Τα αποτελέσματα εμφανίζονται στο παράθυρο της κονσόλας θα πρέπει να είναι μόνο γραμμές με κόμματα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα