تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يمكن الحصول على ترميز ينيكود
#1
السلام عليكم ورحمة الله وبركاته

لدي صندوق نص 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 هل هناك دالة أو طريقة لعمل ذلك ..

ولكم جزيل الشكر
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة اللة وبركاته

كود :
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)

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

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

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


PHP كود :
   Private Sub TextBox1_TextChanged(sender As ObjectAs EventArgsHandles 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 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف يمكن تعديل خاصية TEXTBOX لتكون تقبل الزمن m.n.hakami 1 103 05-11-19, 04:13 PM
آخر رد: CrazyMe
  سؤال : كيف يمكن حذف المكرّر ؟ mostafa12 6 254 15-10-19, 03:28 AM
آخر رد: mostafa12
  هل يمكن اضهار الفورم mostafa12 1 119 14-10-19, 08:10 PM
آخر رد: 3boody
  كيف يمكن التحقق من وجود اسم موظف بقاعدة بيانات الحضور وسام عبدالله الدمرداش 4 677 28-09-19, 08:39 PM
آخر رد: alessam4pro
  [سؤال] هل يمكن استخدام بديل لاداة WebBrowser mohamedahmed1 3 236 13-08-19, 06:33 PM
آخر رد: mohamedahmed1
  [سؤال] سؤال حول الحصول على نص من صحفة ويب داخل Class dametucorazon 8 392 12-08-19, 05:01 AM
آخر رد: dametucorazon
  هل يمكن جلب id الفيسبوك bidaya 31 955 06-08-19, 12:55 PM
آخر رد: bidaya
Information [سؤال] كيف يمكن ان يكون البرنامج دائما في المقدمه black coder 2 301 25-06-19, 04:58 AM
آخر رد: black coder
  هل يمكن طباعة التقرير في كريستال ريبورت مباشرة دون عرض التقرير abu.hanen4u 4 405 31-05-19, 01:15 AM
آخر رد: sami4
  هل يمكن ان يتشابة ارقام معالج مع اخر makky 13 716 28-05-19, 10:27 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم