نمایش تعداد حروف تکست

[Hassan2500]

سلام
خدمت همه دوستان

1- کدی رو میخام که تعداد هر حرف تکست1 را بشمارد و تعداد هر حرف را بصورت عمودی در تکست2 نشان دهد
مثال
تکست1: ایران
تکست2: طبق حروف الفبا
ا 2
ر 1
ن 1
ی 1
اگه میشه کدش رو کامل برام بنویسید

[محسن واژدی]

سلام
البته این موضوع قبلا بحث شده
کد های زیر را بررسی کنید:

Private Sub Text1_Change()
Dim sTT$
Dim sRes$
Dim sCT$
Dim iCL%
sTT$ = Text1
Do

sCT$ = Left(sTT$, 1)
iCL% = Len(sTT$)
sTT$ = Replace(sTT$, sCT$, Empty)
sRes$ = sRes$ & sCT$ & ":" & iCL% - Len(sTT$) & vbNewLine

Loop Until sTT$ = Empty
Text2 = sRes$
End Sub

موفق باشید

[Hassan2500]

سلام
آقای واژدی من ایران را مثال زدم من میخام تعداد 28 حروف الفبای ابجد محاسبه شود نه فقط چهار حرف که نوشته ام اگه کد رو به چیزی که میخام تغییر بدید یعنی 28 حرف ممنون میشم.

[محسن واژدی]

سلام
البته سورس کد پست #2 اختصاصی نیست یعنی هرمتنی را که در Text1 بنویسید، اگر کد را تست کرده باشید، پس از اجرا کاراکترها را جدا و تعداد تکرار هرکاراکتر را در text2 نمایش میدهد، به عبارتی نام "ایران" که در بالا مثال زدین بصورت زیر در text2 چاپ میشود:
ا 2
ر 1
ن 1
ی 1

اگر منظورتان بگونه دیگری است، در صورت امکان بیشتر توضیح دهید

[Hassan2500]

نه من منظورم اینه که حروفی که در تکست2 جدا شدن و تعداد تکرارشان بصورت عمودی نوشته شده طبق حروف الفبای ابجد از بالا به پائین نشون داده بشن

مثال:محمد
د:1
ح:1
م:2
حروف الفبا: ا ب ج د ه و ز ح ط ی ک ل م ن س ع ف ص ق ر ش ت ث خ ذ ض ظ غ

[محسن واژدی]

سلام
کد زیر را بررسی کنید
بجای text2 یک list1 بر روی فرم قر ار دهید و خاصیت Sort آنرا true کنید،

Dim m As Integer
Private Sub Text1_Change()
Dim sTT$
Dim sRes$
Dim sCT$
Dim iCL%
sTT$ = Text1
List1.Clear
Do
sCT$ = Left(sTT$, 1)
iCL% = Len(sTT$)
sTT$ = Replace(sTT$, sCT$, Empty)
'sRes$ = sRes$ & sCT$ & "" & iCL% - Len(sTT$) & "-" '& vbNewLine'
List1.AddItem sCT$ & iCL% - Len(sTT$)
Loop Until sTT$ = Empty
Text2 = sRes$
End Sub



موفق باشید

[Hassan2500]

نمیشه کاری کنید بجای List1 همان Text2 قرار بگیرد چون واسم مهمه بعد در ضمن میخام ترتیب تکست2 بر اساس ابجد باشه نه ابتث