اگر موقعیت آن کاراکتر خاص را می دانید (مثلا ششمین کاراکتر رشته)، کد زیر دو رشته را تا ششمین کاراکتر
با هم مقایسه می کند، اگر برابر باشند عدد 0 و اگر اولی بزرگتر باشد عدد 1+ و اگر اولی کوچکتر باشد عدد 1-
را بر می گرداند.
به عنوان مثال کد زیر رشته Str1 و Str2 را تا ششمین کاراکتر مقایسه کرده و نتیجه را در متغیر c بر می گرداند.
کد:
Dim Str1 As String, Str2 As String
Dim c As Long
c = StrComp(Left(Str1, 6), Left(Str2, 6))
اگر موقعیت آن کاراکتر خاص را نمی دانید، از تابع ()InStr برای پیدا کردن موقعیت آن کاراکتر استفاده کنید.
به عنوان مثال کد زیر رشته های Str1 و Str2 را تا رسیدن به کاراکتر * (ستاره) مقایسه می کند. اگر کاراکتر *
ای وجود نداشت، رشته تا انتهای آن مقایسه می شود :
کد:
Dim Str1 As String, Str2 As String
Dim c As Long
c = StrComp(Left(Str1, InStr(Str1 & "*", "*")), Left(Str2, InStr(Str2 & "*", "*")))
