سؤال: تميز الأحرف وعددها

طبعا يمكن _مثلا انا ممكن اعمل array به جميع الحروف و من ثم اعمل loop على جميغ الاحرف و كل حرف احده ازيد الخانه الخاصه به ب1

XP.net كتب:

طبعا يمكن _مثلا انا ممكن اعمل array به جميع الحروف و من ثم اعمل loop على جميغ الاحرف و كل حرف احده ازيد الخانه الخاصه به ب1

خطرت لي نفس فكرتك يا أخي في هذا الكود

Dim a(0), m As String, i, u, x(0) As Short, b As Boolean
		'المتغير a يرمز للحرف أو الفراغ
		'المتغيّر x يرمز لعدد التكرار
		a(0) = Mid(TextBox1.Text, 1, 1)
		x(0) = 1
		If Len(TextBox1.Text) >= 2 Then
			For i = 2 To Len(TextBox1.Text)
				b = False
				' المتغير b يحدد هل ورد الحرف سابقاً أم لا
				m = Mid(TextBox1.Text, i, 1)
				For u = 0 To UBound(a)
					If a(u) = m Then
						b = True
						x(u) = x(u) + 1
					End If
				Next
				If b = False Then
					ReDim Preserve a(UBound(a) + 1), x(UBound(x) + 1)
					a(UBound(a)) = m
					x(UBound(x)) = x(UBound(x)) + 1
				End If
			Next

		End If
		'الآن تحددت الحروف و تكراراتها 
		For i = 0 To UBound(a)
			MsgBox("الحرف : " & a(i) & " تكراره : " & x(i))
		Next