إرجاع متغير (عدد صحيح) يشير إلى نتيجة تعبير السلسلة.
بناء الجملة
StrComp ( string1, string2 [, compare ] )
يحتوي بناء جملة الدالة StrComp على هذه الوسيطات:
الوسيطة |
الوصف |
---|---|
string1 |
مطلوبة. أي تعبير سلسلة صالح. |
string2 |
مطلوبة. أي تعبير سلسلة صالح. |
مقارنه |
اختيارية. يحدد نوع مقارنة السلسلة. إذا كانت وسيطة المقارنة فارغة، يحدث خطأ. إذا تم حذف المقارنة ، يحدد إعداد Option Compare نوع المقارنة. |
الإعدادات
إعدادات وسيطة المقارنة هي:
ثابت |
قيمة |
الوصف |
---|---|---|
vbBinaryCompare |
0 |
إجراء مقارنة ثنائية. |
vbTextCompare |
1 |
إجراء مقارنة نصية. |
إرجاع القيم
تحتوي الدالة StrComp على قيم الإرجاع التالية:
إذا |
إرجاع StrComp |
---|---|
string1 أقل من string2 |
-1 |
string1 يساوي string2 |
0 |
string1 أكبر من string2 |
1 |
string1 أو string2 هو Null |
فارغ |
مثال على الاستعلام
تعبير |
النتائج |
---|---|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
إرجاع القيم من الحقل "ProductID"، ومقارنة القيم في "ProductID" ب "PRO_XYZ1" وإرجاع النتائج في العمود ComparisonResult. "ProductID" يساوي "PRO_XYZ10"، سترجع الدالة StrComp 0. إذا كان "ProductID" أقل من "PRO_XYZ10"، فسترجع الدالة StrComp -1. إذا كان "ProductID" أكبر من "PRO_XYZ10"، فسترجع الدالة StrComp 1. إذا كانت الدالة "ProductID" أو "PRO_XYZ10" NULL، فسترجع الدالة StrComp NULL. |
مثال VBA
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (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.