منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

لدي صندوق نص 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

Idea

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

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

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

كود :

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Lamyaa

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

محمود صالح