Πώς να διαβάσετε ένα Γραμμή οριοθετημένο κείμενο σε VBA

Να είσαι σε θέση να διαβάσει μια σειρά από οριοθετημένο κείμενο χρησιμοποιώντας τη Visual Basic for Applications και αναλύοντας κάθε μία από τις λέξεις να κάνετε την αίτησή σας VBA πιο δυναμική . Συχνά οι προγραμματιστές πρέπει να διαβάσετε καρτέλα οριοθετημένο αρχεία και να εμφανίσει τα περιεχόμενα αυτών των αρχείων . Στην VBA , χρησιμοποιήστε τη μέθοδο " OpenTextfile " για να ανοίξετε ένα αρχείο κειμένου που περιέχει τα δεδομένα οριοθετημένο με στηλοθέτες . Αναζήτηση κάθε γραμμή για τις καρτέλες χρησιμοποιώντας το " vbTab « σταθερή VBA . Η διαδικασία αυτή είναι χρήσιμη όταν θέλετε να βρείτε γρήγορα τις καρτέλες σε μια σειρά , αντί της ανάγνωσης κάθε χαρακτήρα της συμβολοσειράς . Τα πράγματα που θα χρειαστείτε για Microsoft Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Κάντε κλικ στο κουμπί Έναρξη των Windows και πληκτρολογήστε " Σημειωματάριο " στο " Αναζήτηση Προγράμματα και αρχεία " κουτί κειμένου . Πατήστε το πλήκτρο " Enter" για να ξεκινήσει το Σημειωματάριο. Πληκτρολογήστε " Αυτό ", πατήστε το πλήκτρο " Tab , " τύπος " είναι ", πατήστε " Tab ", τύπου " a", πατήστε το πλήκτρο " Tab ", " καρτέλα , " τύπου πατήστε " Tab ", τύπου " οριοθετημένο ", πατήστε " Tab " και πληκτρολογήστε " ποινή ". Πατήστε το πλήκτρο " Ctrl " και "S " για να αποθηκεύσετε το αρχείο στο " C : \\. MyTextFile.txt " 2

την εφαρμογή Microsoft Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για την έναρξη των το παράθυρο VB Editor. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα λειτουργική μονάδα κώδικα . Κάντε κλικ στο μενού "Εργαλεία" και κάντε κλικ στο "Αναφορές ". Επιλέξτε το πλαίσιο δίπλα στο " Microsoft Scripting Runtime " και κάντε κλικ στο "OK".
Εικόνων 3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα διαδικασία ρουτίνας :

Private Sub readTabDelimited ( )
Η 4

Προσθέστε τον ακόλουθο κώδικα για να δηλώσετε τις μεταβλητές σας :

Dim oFSO As New FileSystemObject

Δημ. ofs

Dim sText As String

Δημ. tmpArray ( 10 ) Όπως String Dim

pos As Integer

Dim Xcntr As Integer
5

Ανοίξτε και διαβάστε το αρχείο κειμένου που δημιουργήσατε στο Βήμα 1 :

Set ofs = oFSO.OpenTextFile ( " C : \\ myTextFile.txt " )

Κάντε Μέχρι oFS.AtEndOfStream

sText = oFS.ReadLine

Loop
Η 6

Βρείτε κάθε καρτέλα στην καρτέλα οριοθετημένο πρόταση και προσθέτουμε κάθε λέξη στο πίνακα String :

pos = InStr ( 1 , sText , vbTab , vbTextCompare )

Do While ( pos <> 0 )

tmpArray ( Xcntr ) = Left ( sText , pos - 1 )

sText = Δεξιά ( sText , Len ( sText ) - pos )

pos = InStr ( 1 , sText , vbTab , vbTextCompare )

Xcntr = Xcntr + 1

Αν ( pos = 0 ) τότε

tmpArray ( Xcntr ) = sText

End If

Loop
Η 7

Εμφάνιση κάθε λέξης μέσα από το παράθυρο άμεσης παρακολούθησης από τον πίνακα String :

Xcntr = 0

Do While ( tmpArray ( Xcntr ) <> "" )

Debug.Print tmpArray ( Xcntr )

Xcntr = Xcntr + 1

Loop
8

Ολοκληρώστε τη διαδικασία, πληκτρολογώντας " End Sub" ως την τελική γραμμή του κώδικα VBA . Πατήστε το πλήκτρο " Ctrl " και " G" για να εμφανιστεί το παράθυρο " Άμεση " και πατήστε " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων