View Full Version : مبتدی: پیدا کردن تعداد ; در یک جمله
m3raj_3
شنبه 02 دی 1391, 13:47 عصر
سلام می خواستم یک برنامه بنویسم با یک تکست باکس و یک دکمه
کههر چی توش ریختیم بگه چند تا ; یا سمی کالن توش هست
میشه کمک کنید
h_a_m_i_d
شنبه 02 دی 1391, 15:31 عصر
با سلام دوست عزیز یک پروژه دیگه براتون اماده کردم که دانلودش کنید خیلی راحت و واضح نوشته شده ولی بازم مشکل داشتین بگین
موفق باشید
armin001
شنبه 02 دی 1391, 15:53 عصر
سلام
میتونید از آرایه استفاده کنید و متنتونو با کاراکتر مورد نظر split کنید بعد از طول آرایه یک واحد کم کنید میشه تعداد کاراکتری که میخواهید
مثل این
Private Sub count()
Dim text() As String
text = text.Split(";")
MsgBox(text.Length - 1)
text = Nothing
End Sub
در این نمونه ما بدنبال کاراکتر(;) گشتیم
armin001
شنبه 02 دی 1391, 16:13 عصر
آقا اینم که همون کد من بود فقط از متد بردی تو تابع:چشمک:
واقعا دست مریزاد:تشویق:
از این کارا بیشتر بکنید و کمتر توجه کنید به کد دیگران:لبخند:
gilsoft
شنبه 02 دی 1391, 16:21 عصر
آقا اینم که همون کد من بود فقط از متد بردی تو تابع:چشمک:
واقعا دست مریزاد:تشویق:
از این کارا بیشتر بکنید و کمتر توجه کنید به کد دیگران:لبخند:
سلام دوست عزیز
قبل از اینکه پست رو بزنم .. تاپیک رو Refresh نکردم ( که احتمالا قبل از پاسخگویی من .. شما زودتر پاسخ دادید ... بازم دست شما درد نکنه .. الان حذفش میکنم )
shahryari
شنبه 02 دی 1391, 17:45 عصر
این هم یک روش دیگر
Dim cnt As Integer = 0
For Each c As Char In "ali shahryarifar"
If c = "a" Then cnt += 1
Next
MsgBox(cnt)
بجای a از هر کارکتری میتوانید استفاده کنید
مهرداد صفا
شنبه 02 دی 1391, 20:38 عصر
سلام می خواستم یک برنامه بنویسم با یک تکست باکس و یک دکمه
کههر چی توش ریختیم بگه چند تا ; یا سمی کالن توش هست
میشه کمک کنید
سلام
روش استفاده از linq، که تعداد ";" را در text نمایش میدهد:
MsgBox(text.Count(Function(x) x = ";"))
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.