[seif mohamed]

السلام عليكم ورحمة الله وبركاته 
ارجو المساعدة في حساب موقع كل حرف فى الجملة  ( مثال ) 
بسم الله الرحمن الرحيم 
ب = 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)

[seif mohamed]

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

جزاك الله خير