تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله في بعض النصوص العربية
#1
السلام عليكم
مشكلتى عند جلب نص من قاعدة بيانات يحتوي على آيه قرآنيه تظهر في التكست بوكس علامة استفهام بدلا من علامات الوقف
 
ما السبب وهل هناك حل للمشكله دي واظهار علامات الوقف في التكست بوكس
الرد
تم الشكر بواسطة: v_2017_6
#2
وعليكم السلام ورحمة الله وبركاته

ممكن تحط مثال صغير
كي نحاول نجد حل
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
#3
شكرا لك على الاهتمام
هذا مثال اخي في المرفقات


الملفات المرفقة
.rar   New folder (2).rar (الحجم : 9.26 ك ب / التحميلات : 43)
الرد
تم الشكر بواسطة: v_2017_6
#4
السلام عليكم
اعتذر اخي الكريم    

حاولت  ولم تفلح كل محاولاتي  

سابحث عن طريقة اذا وجدت ساوافيك بها

اتمنى من الاخوة الكرام   المساعدة او اقل شيء المحاولة  قد تنجح احد الافكار او يجد احدكم حلا  ما .

ايضا ارجوا منك اذا وجدت حل  ان تضيفه كي تعم الفائدة
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
#5
وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , النصوص التي يوجد فيها رموز خاصة يفضل أن تكتبها أو تضعها في أداة الـ RichTextBox وليس الـ TextBox العادي ثم ما يتم حفظه في الحقل هو الخاصية RichTextBox1.TextRTF وليست RichTextBox1.Text  وعند عرض البيانات من الحقل لوضعها في الريتش تكست بوكس ضعها في نفس الخاصية بهذا الشكل :

PHP كود :
RichTextBox1.TextRTF Rs!Text 
الرد
#6
نفس المشكله أخي تظهر علامة استفهام بدل الرموز
فهمت قصدك أخي
اذا كان لدي قاعدة بيانات كبيره الموضوع  حيبقى متعب اني اقوم بالتعديل عليها كلها
الرد
تم الشكر بواسطة: v_2017_6
#7
وجدت الحل
كود :
 Private Type SETTEXTEX
    Flags    As Long
    CodePage As Long
End Type

Private Declare Function SendMessageW Lib "user32.dll" (ByVal hWnd As Long, ByVal uMsg As Long, ByRef wParam As Any, ByVal lParam As Long) As Long

Private Sub Command1_Click()
If Rs.State = adStateOpen Then Rs.Close
Rs.Open "Select * From table1 ", DB, adOpenDynamic, adLockOptimistic
 Const EM_SETTEXTEX = &H461&, ST_UNICODE = 8&, TristateTrue = -1&
    Dim STE As SETTEXTEX

    STE.Flags = ST_UNICODE
    STE.CodePage = 1200& 'Unicode
'ملحوظة غير خط الريتش بوكس الى خط آخر غير Traditional Arabic
' Tahoma مثلا
 SendMessageW RichTextBox1.hWnd, EM_SETTEXTEX, STE, StrPtr(Rs!Text)

End Sub
شكرا لكم وجزاكم الله خيراا
الرد
#8
بالتوفيق اخي الكريم

الله يعطيك العافية
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة: Ahmed_Mansoor , v_2017_6 , أيمن الفخراني
#9
جزاك الله خير أخي أيمن

فكيت لي أزمة Unicode

والشكر لكل من شارك
الرد
تم الشكر بواسطة: Ahmed_Mansoor , sendbad100 , أيمن الفخراني
#10
شكرا جزيلا لك أيمن الفخراني على إفادتنا بالحل جزاك الله كل خير .
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  موضوع العصر : دعم العربية في الأنظمة التي لا تدعم العربية السندبااد 6 2,079 10-10-18, 08:23 AM
آخر رد: alaa.altunsi
  [سؤال] مشكله مع ادوات ocx على وندوز 8.1 Visual_Basic 6 361 27-11-17, 01:38 PM
آخر رد: Ashraf Elafify
  [سؤال] كيفية معالجة مشكلة ظهور اللغة العربية على شكل رموز Emad Nashaat 1 472 08-06-17, 05:16 AM
آخر رد: Amir_alzubidy
  مشكله اتصال vb6 مع Excel sad 1 215 02-04-17, 12:12 AM
آخر رد: Ahmed_Mansoor
  مشكلة اللغة العربية مع برامج فجوال بيسك Dano Pro 18 9,821 02-02-17, 12:33 AM
آخر رد: مساعدة
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 2,689 25-11-16, 12:23 AM
آخر رد: fkwinna
  [سؤال] بخصوص اللغة العربية في عمور2016 1 572 27-09-16, 08:29 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] عندى مشكلة فى كتابة اللغة العربية فى inputbox Acc.MohamedSamir 3 1,292 14-12-15, 01:42 PM
آخر رد: Ashraf Elafify
  [سؤال] مشكله فى اداة Calendar aboezzat84 4 1,168 22-08-15, 10:06 AM
آخر رد: aboezzat84
  عندي مشكله في الكود جمعه عريفه 4 1,018 21-05-14, 09:00 PM
آخر رد: جمعه عريفه

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


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