הפונקציה StrComp

חשוב: מאמר זה תורגם בתרגום מכונה, ראה כתב ויתור. תוכל למצוא את הגרסה באנגלית של המאמר כאן לעיונך.

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

תחביר

StrComp ( מחרוזת1, מחרוזת2 [השוואה ] )

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

ארגומנט

תיאור

מחרוזת1

נדרש. כל ביטוי מחרוזת חוקי.

מחרוזת2

נדרש. כל ביטוי מחרוזת חוקי.

השוואה בין

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


הגדרות

השוואה בין הגדרות הארגומנטים הם:

קבוע

ערך

תיאור

vbUseCompareOption

‎-1

ביצוע השוואה שימוש בהגדרה של המשפט Option Compare .

vbBinaryCompare

0

ביצוע השוואה בינארית.

vbTextCompare

1

ביצוע השוואת טקסט.

vbDatabaseCompare

2

Microsoft Office Access 2007 בלבד. ביצוע השוואה בהתבסס על המידע במסד הנתונים שלך.


מחזירות ערכים

הפונקציה StrComp מכילה את ערכי ההחזרה הבאים:

אם

StrComp החזרת

קטן מחרוזת2מחרוזת1

‎-1

מחרוזת1 הוא שווה ל- מחרוזת2

0

מחרוזת1 הוא גדול מ- מחרוזת2

1

מחרוזת1 או מחרוזת2 is Null

Null


דוגמה

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

דוגמה זו משתמשת בפונקציה StrComp כדי להחזיר את התוצאות של השוואת מחרוזת. אם הארגומנט השלישי הוא 1, מבוצעת השוואת טקסט; אם הארגומנט השלישי הוא 0 או מושמט, מתבצעת השוואה בינארית.

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, 1) ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1) ' Returns 1.

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

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

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

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

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

×