החזרת משתנה (מחרוזת) המכיל מספר תווים שצוין במחרוזת.
תחביר
Mid(string, start [, length ] )
תחביר הפונקציה Mid מכיל את הארגומנטים הבאים:
| ארגומנט | תיאור |
|---|---|
| string | נדרש. ביטוי מחרוזת שממנו תווים מוחזרים. אם המחרוזת מכילה Null, מוחזר Null . |
| התחלה | נדרש. ארוך. מיקום התו במחרוזת שבו מתחיל החלק שיש לקחת אותו. אם start גדול ממספר התווים במחרוזת, הפונקציה Mid מחזירה מחרוזת באורך אפס (""). |
| length | אופציונלי. משתנה (ארוך). מספר התווים שיש להחזיר. אם הושמט או אם הטקסט מכיל תווים שאורכם קטן מאורכה (כולל התו בהתחלה), כל התווים ממיקום ההתחלה ועד סוף המחרוזת יוחזרו. |
הערות
כדי לקבוע את מספר התווים במחרוזת, השתמש בפונקציה Len .
הערה
השתמש בפונקציה MIDB עם נתוני בתים הכלולים במחרוזת, כמו בשפות של ערכות תווים של שני בתים. במקום לציין את מספר התווים, הארגומנטים מציינים מספרי בתים. עבור קוד לדוגמה המשתמש ב - MidB, עיין בדוגמה השניה בנושא הדוגמה.
דוגמאות לשאילתות
| ביטוי | תוצאות |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | החזרת ה- "ProductID" והחלק של ProductID החל ממיקום תו 5 והצגת התוצאות בעמודה Expr1. |
| בחר ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | החזרת ה- "ProductID" והחלק של ProductID החל ממיקום תו 5, המכיל 4 תווים והצגת התוצאות בעמודה testMid. |
דוגמאות VBA
הערה
הדוגמאות הבאות של VBA מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
הדוגמה הראשונה משתמשת בפונקציה Mid כדי להחזיר מספר מסוים של תווים ממחרוזת.
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Create text string.
FirstWord = Mid(MyString, 1, 3) ' Returns "Mid".
LastWord = Mid(MyString, 14, 4) ' Returns "Demo".
MidWords = Mid(MyString, 5) ' Returns "Function Demo".
הדוגמה השניה משתמשת ב - MidB ובפונקציה המוגדרת על-ידי המשתמש (MidMbcs) כדי להחזיר תווים ממחרוזת. ההבדל כאן הוא שמחרוזת הקלט היא ANSI והאורך הוא בבתים.
Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), _
start, length), vbUnicode)
End Function
Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"