[سعود]

(16-08-22, 07:57 AM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته عاوز طريقه تحويل النصوص الي اسكي كود والعكس

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

PHP كود :

Private Function str(txt As String) As String
        Dim all As String = ""
        If txt.Contains("|") Then
            For Each h In txt.Split("|")
                all &= Chr(h)
            Next
        Else
            For Each h As String In txt
                all &= Asc(h) & "|"
            Next
        End If

        If all.EndsWith("|") Then
            all = all.Remove(all.Length - 1)
        End If
        Return all
    End Function 


ضع زر واحد للتحويلين وضع به الامر:

PHP كود :

 TextBox1.Text = str(TextBox1.Text)