הפונקציה Mid

החזרת משתנה (‏מחרוזת) המכיל מספר תווים שצוין במחרוזת.

תחביר

Mid ( string, start [, אורך ] )

תחביר הפונקציה Mid מכיל את הארגומנטים הבאים:

ארגומנט

תיאור

string

נדרש. ביטוי מחרוזת שממנה יוחזרו תווים. אם string מכיל null, מוחזר null .

התחלה

נדרש. זמן. מיקום תו במחרוזת שבה החלק שיש לקחת מתחיל. אם start גדול ממספר התווים ב- string, הפונקציה Mid מחזירה מחרוזת באורך אפס ("").

length

אופציונלי. משתנה (ארוך). מספר התווים שיש להחזיר. אם הושמט או אם יש פחות מתווי אורך בטקסט (כולל התו שבתחילתהעבודה), כל התווים ממיקום ההתחלה עד סוף המחרוזת יוחזרו.


הערות

כדי לקבוע את מספר התווים ב- string, השתמש בפונקציה Len.

הערה: השתמש בפונקציה MidB עם נתוני בית הכלולים במחרוזת, כגון שפות ערכת תווים של שני בתים. במקום לציין את מספר התווים, הארגומנטים מציינים מספרים של בתים. לקבלת קוד לדוגמה המשתמש בפונקציה MidB, ראה הדוגמה השניה בנושא הדוגמה.

דוגמאות של שאילתה

ביטוי

תוצאות

בחר ProductID, Mid (ProductID, 5) כExpr1 מ-ProductSales;

הפונקציה מחזירה את ההודעה "ProductID" ואת החלק של ProductID החל ממיקום תו 5 ומציג את התוצאות בעמודה Expr1.

בחר ProductID, Mid (ProductID, 5, 4) כtestMid מ-ProductSales;

הפונקציה מחזירה את ההודעה "ProductID" ואת החלק של ProductID החל ממיקום תו 5, המכיל 4 תווים ומציג את התוצאות בעמודה testMid.

דוגמאות של 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"

הערה:  דף זה תורגם באמצעות אוטומציה והוא עשוי לכלול שגיאות דקדוק או אי-דיוקים. מטרתנו היא כי תוכן זה יהיה שימושי עבורך. תוכל לספר לנו אם המידע היה מועיל? הנה המאמר באנגלית לעיונך.​

למידע נוסף

פונקציות מחרוזת ואופן השימוש בהן

שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×