הערה: הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם שירות הביטויים של Microsoft Jet פועל במצב ארגז חול (Sandbox) שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש את "מצב ארגז חול" בעזרה.
החזרת מחרוזת המכילה תווים מקובץ שנפתח במצב קלט או בינארי.
תחביר
Input( number, [# ] filenumber)
תחביר הפונקציה Input מכיל את הארגומנטים הבאים:
|
ארגומנט |
תיאור |
|
number |
נדרש. כל תווית ביטוי מספרי מציינת את מספר התווים להחזרה. |
|
מספר קובץ |
נדרש. כל ערך חוקי מספר קובץ. |
הערות
נתונים שנקראו באמצעות הפונקציה Input נכתבים בדרך כלל בקובץ באמצעות Print # אוPut. השתמש בפונקציה זו רק עם קבצים שנפתחו במצב קלטאו בינארי .
שלא כמו המשפט Input # , הפונקציה 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.
