محبوبترینها
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
در خرید پارچه برزنتی به چه نکاتی باید توجه کنیم؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1826331054
سوال در مورد رشته ها -
واضح آرشیو وب فارسی:سایت ریسک: سوال در مورد رشته ها خسرو خان 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]
[تعداد بازديد از اين مطلب: 383]
-
گوناگون
پربازدیدترینها