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

السلام عليكم ورحمة الله وبركاته
ارجو المساعدة في حساب موقع كل حرف فى الجملة ( مثال )
بسم الله الرحمن الرحيم
ب = 1 س = 2 م = 3 أ = 4 ل = 5 ل = 6 هـ = 7 الخ الخ

مثال اخر ( الله )

أ = (1) ل = (2) ل = ( 3 ) هـ = ( 4 )

ولكم جزيل الشكر ودعاء لا ينقطع بالخير والرحمة

وعليكم السلام ورحمة الله وبركاته

تفضل

كود :

       Dim OriginalString As String = "بسم الله الرحمن الرحيم"

        Dim NewString As String = ""

        Dim CharIndex As Integer

        For i = 0 To OriginalString.Length - 1

            If Not String.IsNullOrWhiteSpace(OriginalString.Substring(i, 1)) Then

                CharIndex += 1

                NewString += OriginalString.Substring(i, 1) & " = " & CharIndex & " ، " 

            End If

        Next

        NewString = NewString.Trim().TrimEnd("،")

        MessageBox.Show(NewString)

جزاك الله كل اخي الحبيب الكود شغال لكن للاسف بيحسب الفاصلة والمسافات
وسؤال اخر بعد اذنك لو وضعت 28 تكست بوكس علي عدد الحروف الهجائية لكل حرف تكست مع ترتيب موقعه
هل يصح ام لا بمعنى تكست بوكس 1 = حرف ا موقعه رقم كذا
تكست بوكس 2 حرف ب موقعه رقم كذا

جزاك الله خير

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

seif mohamed

محمد كريّم

seif mohamed