شمارش کارکتر

[aleas2]

سلام خسته نباشید دوستان میدونم سوالم تکراری ولی من هر چی گشتم چیزی ندیدم و مطمنم قبلا بحث شده بعد جواب تاپیک حذف میکنم ممنون

بطور مثال
text1.text=1235263298
با چه کدی میتونم بفهمم عدد 2 سه تا تو تکست وجود داره؟تابعی برای این کار نیست دنبال یه کد خیلی ساده و کوتاه مثل تابع هستم

[SlowCode]

سلام

بعد جواب تاپیک حذف میکنم
وقتی مدیرا تاپیکی رو حذف میکنن معنیش اینه که یادبگیریم که درست بنویسیم، قرار نیست که هرکی جوابش رو گرفت تاپیک رو حذف کنه! شما بزار بمونه اگه مدیرا خواستن خودشون حذفش میکنن.

با چه کدی میتونم بفهمم عدد 2 سه تا تو تکست وجود داره؟
منظورت رو نفهمیدم. واضح تر بگو.
میخوای تعداد کاراکتر بین عدد 2 و عدد 3 رو بشماری؟

[Veteran]

این میگه هر کاراکتر چند بار تکرار شده
For i = 1 To Len(Text1)
For j = 1 To Len(Text1)
If Mid(Text1, i, 1) = Mid(Text1, j, 1) Then n = n + 1
Next
Print Mid(Text1, i, 1) & ": " & n
n = 0
Next

[aleas2]

بله میدونم خب منم گفتم حذف کنم که تاپیک تکراری نباشه ! متاسفانه هرچی به ذهنم بود سرج کردم ولی به جواب نرسیدم چشم حذف نمیکنم

منظورم یه کد مثل این هسته


a=Val(UBound(Split(text1.text, "2")))

میخوام ببینم چندتا عدد 2 داخل text هسته کدی هم خودم دادم درسته ولی نمیدونم چرا بعضی اوقات عمل نمیکنه برای همین یه تابع مشابه همین کوتاه میخوام

[Veteran]

جالب بود :لبخند:.
میشه ی مثال بزنید موقعه ای که عمل نمیکنه ؟ بررسی کنیم.شاید به نتیجه ایی برسیم.

[SlowCode]

جالب بود :لبخند:.
میشه ی مثال بزنید موقعه ای که عمل نمیکنه ؟ بررسی کنیم.شاید به نتیجه ایی برسیم.
منظور ایشون کد شما نبود مال خودش بود.

aleas2 (http://barnamenevis.org/member.php?147289-aleas2) جان کد زیر همون کد آقای Veteran هست، فقط یه قسمتش رو حذف کردم.

For j = 1 To Len(Text1)
If Mid(Text1, j, 1) = 2 Then n = n + 1
Next
Print n
n = 0

[محسن واژدی]

سلام علیکم
کد زیر را هم بررسی کنید:
Private Sub Command1_Click()
Dim iLn%, sTxt$
sTxt$ = Text1
iLn% = Len(sTxt$)
sTxt$ = Replace$(sTxt$, "2", Empty)
iLn% = iLn% - Len(sTxt$)
MsgBox "Count : " & iLn%
End Sub


همینطور تاپیک زیر:
http://barnamenevis.org/showthread.php?291168-%D8%AA%D8%B9%D8%AF%D8%A7%D8%AF-%D8%AA%DA%A9%D8%B1%D8%A7%D8%B1-%D8%AD%D8%B1%D9%88%D9%81-%D8%AF%D8%B1-TextBox

موفق باشید