پیدا کردن تعداد ; در یک جمله

[m3raj_3]

سلام می خواستم یک برنامه بنویسم با یک تکست باکس و یک دکمه
کههر چی توش ریختیم بگه چند تا ; یا سمی کالن توش هست
میشه کمک کنید

[h_a_m_i_d]

با سلام دوست عزیز یک پروژه دیگه براتون اماده کردم که دانلودش کنید خیلی راحت و واضح نوشته شده ولی بازم مشکل داشتین بگین
موفق باشید

[armin001]

سلام
میتونید از آرایه استفاده کنید و متنتونو با کاراکتر مورد نظر split کنید بعد از طول آرایه یک واحد کم کنید میشه تعداد کاراکتری که میخواهید
مثل این
Private Sub count()
Dim text() As String
text = text.Split(";")
MsgBox(text.Length - 1)
text = Nothing
End Sub
در این نمونه ما بدنبال کاراکتر(;) گشتیم

[armin001]

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

[gilsoft]

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

سلام دوست عزیز

قبل از اینکه پست رو بزنم .. تاپیک رو Refresh نکردم ( که احتمالا قبل از پاسخگویی من .. شما زودتر پاسخ دادید ... بازم دست شما درد نکنه .. الان حذفش میکنم )

[shahryari]

این هم یک روش دیگر


Dim cnt As Integer = 0
For Each c As Char In "ali shahryarifar"
If c = "a" Then cnt += 1
Next
MsgBox(cnt)

بجای a از هر کارکتری میتوانید استفاده کنید

[مهرداد صفا]

سلام می خواستم یک برنامه بنویسم با یک تکست باکس و یک دکمه
کههر چی توش ریختیم بگه چند تا ; یا سمی کالن توش هست
میشه کمک کنید


سلام
روش استفاده از linq، که تعداد ";" را در text نمایش میدهد:

MsgBox(text.Count(Function(x) x = ";"))