إرجاع متغير (عدد صحيح) يشير إلى نتيجة تعبير سلسلة.
بناء الجملة
StrComp(string1, string2 [, compare ] )
يحتوي بناء جملة الدالة StrComp على هذه الوسيطات:
| الوسيطة | الوصف |
|---|---|
| string1 | مطلوبة. أي تعبير سلسلة صالح. |
| string2 | مطلوبة. أي تعبير سلسلة صالح. |
| مقارنه | اختيارية. يحدد نوع مقارنة السلسلة. إذا كانت وسيطة المقارنةفارغة، يحدث خطأ. إذا تم حذف المقارنة ، يحدد إعداد Option Compare نوع المقارنة. |
الإعدادات
إعدادات وسيطة المقارنة هي:
| ثابت | Value | الوصف |
|---|---|---|
| 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.