شمردن یک کلمه تکراری در یک جمله بلند

[Siaic 88]

سلام دوستان

میخوام یه کلمه تکراری رو در یک جمله بلند بشمرم

مثلا در یک جمله چند خطی کلمه (است) ها رو بشمارم. 

و در آخر بفهمم چند بار کلمه (است) تکرار شده.

تشکر

[manoochehr_sh 55]

	Dim i As Int=0
	Dim find As String="است"
	Dim text As String="متن ..."
	Do Until text.indexof(find)>=0
		i=i+1
		text=text.substring(text.indexof(find)+find.length)
		
	Loop

 

[milad19 113]

در 2 ساعت قبل، manoochehr_sh گفته است :

	Dim i As Int=0
	Dim find As String="است"
	Dim text As String="متن ..."
	Do Until text.indexof(find)>=0
		i=i+1
		text=text.substring(text.indexof(find)+find.length)
		
	Loop

 

سلام لطفا بیشتر توضیح بدید الان عدد خروجی رو چجوری میشه نمایش داد؟

[top206 34]

در 15 ساعت قبل، milad19 گفته است :

سلام لطفا بیشتر توضیح بدید الان عدد خروجی رو چجوری میشه نمایش داد؟

تو i ذخیره شده ، یعنی به تعدادی که کلمه است تو متن هست یه دونه به متغیر i اضافه میشه 

شما الان بعد حلقه اگه لاگ بگیری از i متوجه میشی