+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف يمكن الحصول على ترميز ينيكود (/showthread.php?tid=23541)
كيف يمكن الحصول على ترميز ينيكود - Lamyaa - 26-01-18
السلام عليكم ورحمة الله وبركاته
لدي صندوق نص 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
هل هناك دالة أو طريقة لعمل ذلك ..ولكم جزيل الشكر
RE: كيف يمكن الحصول على ترميز ينيكود - عبدالله الدوسري - 27-01-18
وعليكم السلام ورحمة اللة وبركاته
كود :
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)جرب الكود كتبتة على السريع بالهاتف لاني بالخارج.
لم اجرب الكود .
RE: كيف يمكن الحصول على ترميز ينيكود - محمود صالح - 27-01-18
اطلعي
http://arabteam2000-forum.com/index.php?/topic/78690-%D8%A7%D9%84%D8%AA%D8%AD%D9%88%D9%8A%D9%84-%D9%85%D9%86-text-%D8%B9%D8%B1%D8%A8%D9%8A-%D8%A7%D9%84%D9%89-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