تشخیص تعداد کاراکتر استفاده شده در یک رشته

[Coocala 35]

سلام؛ بنده یک فایل با محتوای زیر دارم:

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

چطور میتونم بفهمم چند بار کاراکتر 1 استفاده شده؟

[Coocala 35]

جواب رو پیدا کردم، میذارم اینجا شاید بعدا به درد کسی خورد.

با ساب زیر میتونیم:

Sub CountChar(searchMe As String, findMe As Char) As Int

	If Not(searchMe.Contains(findMe)) Then Return 0

	Dim CountMe As Int = 0

	For x = 0 To searchMe.Length - 1
		If searchMe.CharAt(x) = findMe Then
			CountMe = CountMe + 1
		End If
	Next

	Return CountMe

End Sub

پارامتر اول رشته ای که میخوایم داخلش سرچ بزنه و پارامتر دوم،  کاراکتری که میخوایم ببینیم چند بار داخل رشته تکرار شده.