הערה
הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם Microsoft Jet Expression Service פועל במצב ארגז חול (Sandbox), דבר שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש "מצב ארגז חול" בעזרה.
החזרת מחרוזת המכילה תווים מקובץ שנפתח במצב קלט או במצב בינארי .
תחביר
Input(number, [# ] filenumber)
תחביר הפונקציה Input מכיל את הארגומנטים הבאים:
| ארגומנט | תיאור |
|---|---|
| מספר | נדרש. כל ביטוי מספרי חוקי המציין את מספר התווים שיש להחזיר. |
| מספר קובץ | נדרש. מספר קובץ חוקי כלשהו. |
הערות
נתונים הנקראים באמצעות הפונקציה Input נכתבים בדרך כלל בקובץ עם Print # או Put. השתמש בפונקציה זו רק עם קבצים שנפתחו במצב קלט או במצב בינארי .
שלא כמו המשפט Input # , הפונקציה Input מחזירה את כל התווים שהיא קוראת, כולל פסיקים, החזרות גררה, הזנות שורה, מרכאות ורווחים מובילים.
כאשר קבצים פתוחים לגישה בינארית , ניסיון לקרוא את הקובץ באמצעות הפונקציה קלט עד ש - EOF מחזיר ערך True גורם לשגיאה. השתמש בפונקציות LOF ו- Loc במקום ב- EOF בעת קריאת קבצים בינאריים עם קלט, או השתמש ב - Get בעת שימוש בפונקציה EOF .
הערה
השתמש בפונקציה InputB עבור נתוני בית הכלולים בקבצי טקסט. ב - InputB, number מציין את מספר הבתים שיש להחזיר, ולא את מספר התווים שיש להחזיר.
דוגמה
הערה
הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
דוגמה זו משתמשת בפונקציה Input כדי לקרוא תו אחד בכל פעם מקובץ ולהדפיס אותו בחלון Immediate . דוגמה זו מבוססת על ההנחה שזהו 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.