[Lamyaa]

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

لدي صندوق نص TextBox1 يحتوي على نص عربي "كن جميلا ترى الوجود جميلا"

أريد أن يتم تحويل هذا النص إلى شفرات ينكود مثل هذه:

\U+fee6\U+fedb\U+0020\U+fefc\U+fef4\U+fee4\U+fe9f\U+0020\U+0649\U+feae\U+fe97\U+0020\U+062f\U+feee\U+fe9f\U

هل هناك دالة أو طريقة لعمل ذلك ..

ولكم جزيل الشكر

[عبدالله الدوسري]

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

كود :

Dim MyArabicText As String = "ضع الكلام هنا"
Dim Output As String
For Each Chrstr As Char In MyArabicText
Output &= "U+" & CInt((Chrstr)c)).ToString("X4")) & "/"
Next

Msgbox ( Output)

جرب الكود كتبتة على السريع بالهاتف لاني بالخارج.
لم اجرب الكود .

[محمود صالح]

اطلعي

http://arabteam2000-forum.com/index.php?...9-unicode/

وممكن تستخدمي كود استاذ [b]عبدالله الدوسري[/b]
وتكوني شفرات خاصة بكي كمثال ضعي اثنان (textbox)

PHP كود :

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim Output As String
        For Each Chrstr As Char In TextBox1.Text
            Output &= conv_txt(Chrstr)
        Next
        TextBox2.Text = Output
    End Sub
    Function conv_txt(ByVal str As String)
        Dim Out_txt As String
        Select Case str
            Case Is = "ا"
                Out_txt = "x-opu"
            Case Is = "ب"
                Out_txt = "x-lkj"
            Case Is = "ج"
                Out_txt = "x-vbn"
        End Select
        Return Out_txt
    End Function