تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1836216659
سوال در مورد رشته ها -
واضح آرشیو وب فارسی:سایت ریسک: سوال در مورد رشته ها خسرو خان 13 ارديبهشت 1389, 14:17سلام ميخواستم دو رشته را تا رسيدن به يك كاراكتر خاص با هم مقايسه كنم . كمكم كنيد . لطفا كد را هم بنويسيد . متشكرم . the_king 14 ارديبهشت 1389, 01:52سلام ميخواستم دو رشته را تا رسيدن به يك كاراكتر خاص با هم مقايسه كنم . كمكم كنيد . لطفا كد را هم بنويسيد . متشكرم . اگر موقعیت آن کاراکتر خاص را می دانید (مثلا ششمین کاراکتر رشته)، کد زیر دو رشته را تا ششمین کاراکتر با هم مقایسه می کند، اگر برابر باشند عدد 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 & "*", "*")))
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 386]
-
گوناگون
پربازدیدترینها