Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει την τιμή Συμβολοσειρά που περιέχει χαρακτήρες από ένα αρχείο που έχει ανοιχτεί σε λειτουργία εισόδου ή δυαδικής λειτουργίας .
Σύνταξη
Input( αριθμός; [# ] αριθμός_αρχείου)
Η σύνταξη της συνάρτησης Input περιλαμβάνει τα παρακάτω ορίσματα:
|
Όρισμα |
Περιγραφή |
|
αριθμός |
Υποχρεωτικό. Οποιοσδήποτε έγκυρος αριθμητική παράσταση που καθορίζει τον αριθμό των χαρακτήρων που θα επιστραφούν. |
|
αριθμός_αρχείου |
Υποχρεωτικό. Οποιοσδήποτε έγκυρος αριθμός αρχείου. |
Παρατηρήσεις
Τα δεδομένα που διαβάζονται με τη συνάρτηση Input εγγράφεται συνήθως σε ένα αρχείο με τις επιλογές Εκτύπωση # ή Put. Χρησιμοποιήστε αυτήν τη συνάρτηση μόνο με αρχεία που έχουν ανοιχτεί σε λειτουργία εισόδου ή δυαδικής λειτουργίας.
Σε αντίθεση με την πρόταση Εισαγωγή # , η συνάρτηση Input επιστρέφει όλους τους χαρακτήρες που διαβάζει, συμπεριλαμβανομένων των ερωτημάτων, των χαρακτήρων επαναφοράς, των τροφοδοσιών γραμμής, των εισαγωγικών και των αρχικών κενών διαστημάτων.
Με τα αρχεία ανοιχτά για δυαδική πρόσβαση, μια προσπάθεια ανάγνωσης του αρχείου χρησιμοποιώντας τη συνάρτηση Input μέχρι το EOF να επιστρέψει την τιμή True δημιουργεί ένα σφάλμα. Χρησιμοποιήστε τις συναρτήσεις LOF και Loc αντί για EOF κατά την ανάγνωση δυαδικών αρχείων με την εισαγωγή ή χρησιμοποιήστε τη συνάρτηση Get when using the EOF function.
Σημείωση: Χρησιμοποιήστε τη συνάρτηση InputB για δεδομένα byte που περιέχονται σε αρχεία κειμένου. Με την τιμή InputB, ο αριθμός καθορίζει τον αριθμό των byte που θα επιστραφούν και όχι τον αριθμό των χαρακτήρων που θα επιστραφούν.
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση Input για να διαβάσει έναν χαρακτήρα κάθε φορά από ένα αρχείο και να τον εκτυπώσει στο άμεσο παράθυρο. Αυτό το παράδειγμα προϋποθέτει ότι TESTFILE είναι ένα αρχείο κειμένου με λίγες γραμμές δείγματος δεδομένων.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.
