[سعود]

هذا كود vb حولها باي طريقة

PHP كود :

Dim eng As String = "abcdefghijklmnopqrstuvwxyz"
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For Each h As String In TextBox1.Text
            TextBox2.AppendText(eng.IndexOf(h))
        Next
    End Sub 


الترقيم يبدا من الصفر يعني حرف a يكون صفر 0 انت زيد رقم  او نقص حسب المطلوب او اقبل الترقيم كما هو.