[محمد كريّم]

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

تفضل

كود :

       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)