نحوه استفاده از split ih درvb.net

[nasiiiiiii]

سلام
می خوا برنامه ای بنویسم که تاریخ تولد را به صورت 21/05/1390 گرفته و با استفاده از split ها بتونم این تارخ تولد را جدا کرده و ماه تولد را در خروجی چاپ کنم اما نمی دونمز split / رو چه جور معرفی و استفاده کنم:گریه:

[ali_najari]

دوست عزیز از دستور Split باید به شکل زیر استفاده کنید:


Dim S = Split("1390/05/21","/")

برای دستیابی به مقدار آنها به شکل زیر باید عمل کنید:


Dim Sal,Mah,Roz as int32
Sal = val(S(0))
Mah = val(S(1))
Roz = val(S(2))

[reza_edu]

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


dim str as string
str=maskedtextbox1.text
dim ady,month,year as integer
day=mid(str,1,2)
mont=mid(str,3,2)
month=mid(str,6,4)

البته این رو بگم که این کار رو برای چهار حالت باید بنویسی اگه از مسک تکس باکس نخونی و بخوای از یه متغیر دیت (همون تاریخ) استفاده کنی.(این روش رو من استفاده میکنم شاید از نظر دوستان دیگه اشتباه باشه ولی برای من که جواب داده)

[ali_najari]

این هم یک تابع برای برگرداندن نام ماه:


Private Function ShamsiMonthName(byval SunDate as string, Optional ByVal Seperator As String = "/") As String

Dim ShN() as String = {"فروردین","اردیبهشت","خرداد","تیر","مرداد","شهریور","مهر","آبان","آذر","دی","بهمن","اسفند"}
Dim S = Split(SunDate ,Seperator)
Dim Sal,Mah,Roz as int32
Sal = val(S(0))
Mah = val(S(1))
Roz = val(S(2))

ShamsiMonthName = ShN(mah)

Return ShamsiMonthName
End Function

[ali_najari]

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


dim str as string
str=maskedtextbox1.text
dim ady,month,year as integer
day=mid(str,1,2)
mont=mid(str,3,2)
month=mid(str,6,4)

البته این رو بگم که این کار رو برای چهار حالت باید بنویسی اگه از مسک تکس باکس نخونی و بخوای از یه متغیر دیت (همون تاریخ) استفاده کنی.(این روش رو من استفاده میکنم شاید از نظر دوستان دیگه اشتباه باشه ولی برای من که جواب داده)

دوست عزیز اگر توجه میکردید ایشون میخواستن از دستور Split استفاده کنند.

[reza_edu]

بله شما درست میگد من یه روش دیگه که به ذهنم اومد رو گفتم که به خوبی روش شما نیست البته تو این مثال ولی خوب اینم میتونه یه جا هائی کار راه انداز باشه اما فکر کنم از نگفتن بهتر باشه یا اینکه میگید راه های دیگه رو هم نگیم.