[saleh101]

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

اخواني لماذا تظهر هذه المشكلة عند وضع الكلام في الليست بوكس

تظهر الكلمات علي شكل علامات استفهام

جربت تغير الفونت ولكن نفس المشكلة

[masaoud]

وعليكم السلام

هذه عادة تكون عند عمل داونلود ولم تحدد الترميز المعتمد في نفس الموقع

طرق عمل داونلود كثيرة، لهذا ضع كود الداونلود الذي استخدمته

[saleh101]

On Error Resume Next
        Dim openfile As New OpenFileDialog
        ListBox1.Items.Clear()
        openfile.Title = "Text |*.txt"
        openfile.ShowDialog()
        Dim txtline() As String = IO.File.ReadAllLines(openfile.FileName)
        ListBox1.Items.AddRange(txtline)

[عبد الهادي بهاب]

اعداات اللغة  في الجهاز كله ممكن هي المشكل 


https://abuomar.ae/2017/08/24/%D8%AD%D9%...%88%D8%B2/

[masaoud]

(14-08-20, 08:03 PM)saleh101 كتب :

On Error Resume Next
        Dim openfile As New OpenFileDialog
        ListBox1.Items.Clear()
        openfile.Title = "Text |*.txt"
        openfile.ShowDialog()
        Dim txtline() As String = IO.File.ReadAllLines(openfile.FileName)
        ListBox1.Items.AddRange(txtline)

جرب باضافة نوع الترميز UTF8
Dim txtline() As String = IO.File.ReadAllLines(openfile.FileName, System.Text.Encoding.UTF8) 'مع تحديد الترميز

[saleh101]

للاسف لم يتم حل المشكلة
عند اضافة الكلام في الليست بوكس يدويا يظهر بشكل طبيعي
لكن عند وضع الكلام في الليست بوكس من خلال ملف تكست يظهر علي شكل رموز

[masaoud]

حسنا،

هذا يعني أن الملف النصي لم يتم حفظه بترميز UTF-8 ويجب تصحيح حفظه من جديد

افتح الملف النصي وقم باعادة حفظ بإسم Save As وستجد تحت اسم الملف نوع الترميز Encoding حدد الترميز UTF-8 ثم احفظ

ثم جرب الكود القديم الذي لديك

[saleh101]

(14-08-20, 10:55 PM)masaoud كتب : حسنا،

هذا يعني أن الملف النصي لم يتم حفظه بترميز UTF-8 ويجب تصحيح حفظه من جديد

افتح الملف النصي وقم باعادة حفظ بإسم Save As وستجد تحت اسم الملف نوع الترميز Encoding حدد الترميز UTF-8 ثم احفظ

ثم جرب الكود القديم الذي لديك

فعلا شكرا لك تم حل المشكلة
لكن هل يوجد حل اخر برمجيا لان مش هقدر اقول لكل مستخدم علي هذه الخطوات لحل المشكلة