+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (https://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (https://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب كود عد حروف معينه فى اى جمله (/showthread.php?tid=21530)
طلب كود عد حروف معينه فى اى جمله - الحلوانى - 29-08-17
الاخوه الافاضل مشرفين واعضاء منتدنا العامر
كل عام وانتم بخير
من فضلكم
لدي تكست يكتب فيها مثلا (وجعلنا من بين ايديهم سدا ومن خلفهم سدا فاغشيناهم فهم لا يبصرون) او اي ايه اخرى
التكست 2 يظهر فيه عدد الحروف الاتيه الموجوده فى الايه الحروف هى( أ هـ ط م ف ش ذ)
التكست 3 يظهر فيه عدد الحروف الاتيه الموجوده فى الايه الحروف (ب ي و ي ن ص ت ض )
التكست 4 يظهر فيه عدد الحروف الاتيه الموجوده فى الايه الحروف ( ج ز ك س ق ث ظ )
التكست 5 يظهر فيه عدد الحروف الاتيه الموجوده فى الايه الحروف (د ح ل ع ر خ غ)
تكست 2 فى هذا المثال هيكون فيها عدد 21
تكست 3 فى هذا المثال هيكون فيها عدد 17
تكست 4 فى هذا المثال هيكون فيها عدد 3
تكست 5 فى هذا المثال هيكون فيها عدد 10
ارجوا ان اكون استطعت توصيل الفكره
كل الشكر والتقدير لكم ولكل المشرفين والمبرمجين
RE: طلب كود عد حروف معينه فى اى جمله - Ahmed_Mansoor - 30-08-17
أهلا بك أخي الكريم ، كل عام وأنت بخير والأمه الإسلاميه ، هذا الكود لعمل ذلك :
PHP كود :
Dim zChars(1 To 4) As String
Dim zText As String
Dim I As Integer
Dim H As Integer
Dim zCounter(1 To 4) As Integer
zChars(1) = "اهطمفشذ"
zChars(2) = "بيونصتض"
zChars(3) = "جزكسقثظ"
zChars(4) = "دحلعرخغ"
For I = 1 To 4
For H = 1 To Len(zChars(I))
zText = Text1.Text
zText = Replace$(zText, "أ", "ا")
zText = Replace$(zText, "إ", "ا")
zPos = InStr(1, zText, Mid$(zChars(I), H, 1))
Do While zPos > 0
zCounter(I) = zCounter(I) + 1
zText = Mid$(zText, zPos + 1)
zPos = InStr(1, zText, Mid$(zChars(I), H, 1))
Loop
Next
Next
Text2.Text = zCounter(1)
Text3.Text = zCounter(2)
Text4.Text = zCounter(3)
Text5.Text = zCounter(4)
RE: طلب كود عد حروف معينه فى اى جمله - الحلوانى - 31-08-17
شكرا شكرا استاذ احمد منصور