منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الاخوه الافاضل مشرفين واعضاء منتدنا العامر
كل عام وانتم بخير
من فضلكم
لدي تكست يكتب فيها مثلا (وجعلنا من بين ايديهم سدا ومن خلفهم سدا فاغشيناهم فهم لا يبصرون) او اي ايه اخرى

التكست 2 يظهر فيه عدد الحروف الاتيه الموجوده فى الايه الحروف هى( أ هـ ط م ف ش ذ)
التكست 3 يظهر فيه عدد الحروف الاتيه الموجوده فى الايه الحروف (ب ي و ي ن ص ت ض )
التكست 4 يظهر فيه عدد الحروف الاتيه الموجوده فى الايه الحروف ( ج ز ك س ق ث ظ )
التكست 5 يظهر فيه عدد الحروف الاتيه الموجوده فى الايه الحروف (د ح ل ع ر خ غ)

تكست 2 فى هذا المثال هيكون فيها عدد 21
تكست 3 فى هذا المثال هيكون فيها عدد 17
تكست 4 فى هذا المثال هيكون فيها عدد 3
تكست 5 فى هذا المثال هيكون فيها عدد 10
ارجوا ان اكون استطعت توصيل الفكره

كل الشكر والتقدير لكم ولكل المشرفين والمبرمجين

أهلا بك أخي الكريم ، كل عام وأنت بخير والأمه الإسلاميه ، هذا الكود لعمل ذلك :

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) 

شكرا شكرا استاذ احمد منصور

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الحلوانى

Ahmed_Mansoor

الحلوانى