Mid,StrLeft,StrRight با کتابخانه ICOSStrings

[مجید آرتا 5,875]

به نام خدا

Mid , StrLeft , StrRight مانند SubString جهت کار با رشته ها استفاده میشه

برای کار با این متدها به لایب ICOSStrings نیاز داریم،بنده فایل این لایب رو جهت دانلود پیوست می کنم

واسه شروع قسمت Globals می نویسیم:

Sub Globals
Dim str As ICOSStrings
End Sub

Mid:

 Msgbox(str.Mid("Basic4Android.org",1,13),"Test")

خب توی کد بالا یک متن بهش دادیم و بعد گفتیم از کاراکتر اول تا کاراکتر 13 رو نشون بده، بنده در قالب مسج نشون دادم شما میتونین هرجا که دوس داشتین بزارید، که نتیجه میشه:

Basic4Android

StrLeft:

Msgbox(str.StrLeft("Basic4Android.org",13),"Test")

اینجا میاد 13 کاراکتر از سمت چپ رو نشون میده که میشه:

Basic4Android

StrRight:

 Msgbox(str.StrRight("Basic4Android.org",3),"Test")

توی کد بالا گفتیم بیا 3تا کاراکتر از سمت راست رشته رو برگردون که میشه:

org

رمز فایل: basic4android.org

موفق و موید باشید

ICOSStrings.rar

[مهدی ایزدی 9,203]

ممنون مجید جان

این اگه اشتباه نکنم همون کار SubString رو انجام میده ولی یک خورده کار رو راحت کرده . درسته ؟

[مجید آرتا 5,875]

ممنون مجید جان

این اگه اشتباه نکنم همون کار SubString رو انجام میده ولی یک خورده کار رو راحت کرده . درسته ؟

کاملا درسته مهدی جان فقط یه کوچولو ساختارش فرق می کنه همین.

[aslan.bay 10]

سلام مهندس اگه بخاییم فقط کاراکتر سوم رو از چپ برداره باید چیکار کنیم

[aslan.bay 10]

دوستان کسی نی جواب بده

[مجید آرتا 5,875]

اگه میخوایید فقط کاراکتر سوم رو بگیرید که این کد :

[/b]str.Mid("Basic4Android.org",2,3)[b]

اما اگه میخوایید سه کاراکتر اولو برگردونه این کد :

[/b]str.StrLeft("Basic4Android.org",3)[b]

[mahfelsoft 130]

دوستان کسی نی جواب بده

اینطوری بنویس

Msgbox(str.Mid("Basic4Android.org",3,1),"Test")