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