جستجوی تعداد تکرار یک حرف در رشته

[ehsan23211 10]

سلام چه جوری میشه تو یه رشته تعداد مثلا حرف a رو پیدا کرد مثلا اگه رشته ی ما مساوی abcdeaaca باشه میخام جستتجو حرف a برابر با 4 باشه ؟*تعجب*

[ehsan23211 10]

ای بابا کسی بلد نیس*گاز*

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

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

Dim Text As String
Text = "babssacannadagah"
Dim GetCharLenght() As String
GetCharLenght = Regex.Split("a",Text)
Msgboxe(GetCharLenght.Lenght,"")

توی مسج باکس هر عددی رو نشون داد یعنی همون اندازه کلمه a وجود داشته

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

با تشکر از آقا مجید گل

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

    Dim find As Int = 0
   Dim st As String
   Dim str = "Mehdi izadi And Basic4Android" As String
   For i = 0 To str.Length-1
       st = str.SubString2(i, i+1)
       If st.Contains("i") Then
       find = find + 1
       End If
   Next
   ToastMessageShow(find,False)

[ehsan23211 10]

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

Dim Text As String
Text = "babssacannadagah"
Dim GetCharLenght() As String
GetCharLenght = Regex.Split("a",Text)
Msgboxe(GetCharLenght.Lenght,"")

توی مسج باکس هر عددی رو نشون داد یعنی همون اندازه کلمه a وجود داشته

به مسیج باکس گیر میده

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

شرمنده بنده یک e آخرش اضافه نوشتم :

[/b]
[b]Dim Text As String[/b]
[b]Text = "babssacannadagah"[/b]
[b]Dim GetCharLenght() As String[/b]
[b]GetCharLenght = Regex.Split("a",Text)[/b]
[b]Msgbox(GetCharLenght.Lenght,"")

[ehsan23211 10]

تشکر از همه ممنون