تشخیص تعداد کاراکتر

[samirgerkantom]

سلام اگه میشه یاد بدهید که چطوری میشه مثلا هرچه s وارد textboxمیکنیم تعداد کاراکتر را بگوید مثلا اگر مینویسیم سعید بگوید یک s

[mpmsoft]

با این تابعی که براتون نوشتم می تونید



Public Function CountOfChr(ByVal Source As String, _
TmpChr As String) As Long
'Return number(long) of TmpChr(string) in Source(string)
On Error Resume Next
Dim TTot As Long
TTot = 0

For i = 1 To Len(Source) ' - Len(TmpChr)

If Mid$(Source, i, Len(TmpChr)) = TmpChr Then TTot = TTot + 1
Next

CountOfChr = TTot
End Function

[samirgerkantom]

شرمنده من متوجه این دستور نمی شم اگه میشه یک روش ساده تر یا برنامه اماده اش را ضمیمه کنید

[kuh_nur]

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




label1.caption=len(text1.text)

[pooya1072]

سلام
اول توی یک textbox حرفی رو که می خوای شمرده بشه وارد کن.


nWord=text1.text
خب,حالا باید توی یک textbox دیگه متنی که می خوای مورد تست قرار بگیره رو وارد کنی.

تا اینجاش رو که خودت هم می دونستی...
حالا یه حلقه ایجاد می کنی..




For i = 1 To Len(Text2.Text)
If Mid(Text2.Text, i, 1) = nWord Then c = c + 1
Next i


توی این حلقه کلمه ای که توی تکست باکس 1 معرفی کردی توی تکست باکس2 جستجو میشه و تعدادش توی متغیر c ثبت میشه.
در آخر میتونی متغیر c رو بوسیله یک msgbox مقدارش رو نمایش بدی.




msgbox "repeat number is : " & str(c)