Πώς να γράψετε σταθερού πλάτους αρχεία κειμένου με το Visual Basic

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

1 Δημιουργήστε ένα νέο έργο κάνοντας κλικ στο " Αρχείο ", " New Project ". Επιλέξτε τον τύπο "Console Application " . Αργότερα , μπορείτε να χρησιμοποιήσετε το ίδιο ακριβώς κώδικα , χωρίς τροποποίηση , ως μέρος ενός ( GUI ) του έργου Graphical User Interface . Το όνομα του έργου " Σταθερό πλάτος Writer . " 2

Αντιγράψτε τις ακόλουθες σταθερές πλάτος της στήλης στην κορυφή του πηγαίου κώδικα :

Const TITLE_FIELD ως ακέραιος = 25

Σταθ AUTHOR_FIELD ως ακέραιος = 15

Cosnt DATE_FIELD ως ακέραιος = 10
εικόνων 3

Επικολλήστε τα δεδομένα της βιβλιοθήκης για τα βιβλία . Θα τοποθετηθεί σε μια σειρά που ονομάζεται libraryData :

Δημ. libraryData ( , ) ως String =

{ { " To Kill a Mockingbird " , " Harper Lee" , " 01/23/2010 " } , {

" The Stand " , " Stephen King " , " 02.15.1992 " } }
Η 4

Δημιουργήστε ένα αρχείο κειμένου για να γράψει ως σταθερού πλάτους αρχείο κειμένου και να δημιουργήσει ένα « TextFileWriter " γι 'αυτό :

Δημ. textfile ως String = " filename.txt "

dim TextWriter = My.Computer.FileSystem.OpenTextFileWriter ( textfile , False )

Η "False " υποδεικνύει ότι δεν θέλετε να προσαρτήσετε τα δεδομένα στο αρχείο .
5

Επικολλήστε τον ακόλουθο για να γράψει τη στήλη βασική λειτουργία για αυτό είναι η λειτουργία " PadRight " : αυτό αποδίδει ως πολλούς χώρους , όπως απαιτείται για το τέλος της συμβολοσειράς να καταστεί ίση με συνολικά το δεδομένο αριθμό των χώρων . Αυτό σας επιτρέπει να εκτυπώσετε κάθε στήλη σε ένα σταθερό πλάτος
Η 6

Επικολλήστε τα παρακάτω για να γράψει τα δεδομένα στο αρχείο : .

Για x ως ακέραιος = 0 έως libraryData.getLength ( 0 ) - Σελίδα 7

Επικολλήστε τον παρακάτω, για να κλείσει το αρχείο :

textWriter.Flush ( )

textWriter.Close ( )

" Flush " διασφαλίζει ότι η τελευταία των δεδομένων έχει γραφτεί στο αρχείο .
Η
εικόνων