הפונקציה Len

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

החזרת ארוך המכיל את מספר התווים במחרוזת או מספר הבתים הדרושים לאחסן של משתנה.

תחביר

Len ( מחרוזת | varname)

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

ארגומנט

תיאור

string

כל חוקי ביטוי מחרוזת. אם המחרוזת מכיל Null, מוחזר Null.

varname

כל שם חוקי משתנה. אם varname מכיל Null, מוחזר Null. אם varname הוא משתנה, Len מתייחסת אליו כאל מחרוזת ותמיד מחזירה את מספר התווים שהוא מכיל.


הערות

אחד (ואחד בלבד) של שני הארגומנטים האפשריים יש לציין. עם סוגים המוגדרות על-ידי המשתמש, הפונקציה Len מחזירה את הגודל כפי ייכתב את הקובץ.

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

הערה: Len לא יוכלו לקבוע את המספר בפועל הבתים האחסון הדרוש בשימוש עם מחרוזות באורך משתנה בסוגי נתונים מוגדר על-ידי המשתמש.

דוגמה

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.

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

Type CustomerRecord    ' Define user-defined type.
ID As Integer ' Place this definition in a
Name As String * 10 ' standard module.
Address As String * 30
End Type
Dim Customer As CustomerRecord ' Declare variables.
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' Initialize variable.
MyLen = Len(MyInt) ' Returns 2.
MyLen = Len(Customer) ' Returns 42.
MyLen = Len(MyString) ' Returns 11.
MyLen = Len(MyCur) ' Returns 8.

הדוגמה השניה משתמשת LenB ופונקציה המוגדרת על-ידי המשתמש (LenMbcs) כדי להחזיר את מספר תווי הבתים במחרוזת אם נעשה שימוש ב- ANSI כדי לייצג את המחרוזת.

Function LenMbcs (ByVal str as String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Dim MyString, MyLen
MyString = "ABc"
' Where "A" and "B" are DBCS and "c" is SBCS.
MyLen = Len(MyString)
' Returns 3 - 3 characters in the string.
MyLen = LenB(MyString)
' Returns 6 - 6 bytes used for Unicode.
MyLen = LenMbcs(MyString)
' Returns 5 - 5 bytes used for ANSI.
שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

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

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

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

×