السلام عليكم ورحمة الله وبركاته
اخواني لماذا تظهر هذه المشكلة عند وضع الكلام في الليست بوكس
تظهر الكلمات علي شكل علامات استفهام
جربت تغير الفونت ولكن نفس المشكلة
وعليكم السلام
هذه عادة تكون عند عمل داونلود ولم تحدد الترميز المعتمد في نفس الموقع
طرق عمل داونلود كثيرة، لهذا ضع كود الداونلود الذي استخدمته
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)
(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) 'مع تحديد الترميز
للاسف لم يتم حل المشكلة
عند اضافة الكلام في الليست بوكس يدويا يظهر بشكل طبيعي
لكن عند وضع الكلام في الليست بوكس من خلال ملف تكست يظهر علي شكل رموز
حسنا،
هذا يعني أن الملف النصي لم يتم حفظه بترميز UTF-8 ويجب تصحيح حفظه من جديد
افتح الملف النصي وقم باعادة حفظ بإسم Save As وستجد تحت اسم الملف نوع الترميز Encoding حدد الترميز UTF-8 ثم احفظ
ثم جرب الكود القديم الذي لديك
(14-08-20, 10:55 PM)masaoud كتب : [ -> ]حسنا،
هذا يعني أن الملف النصي لم يتم حفظه بترميز UTF-8 ويجب تصحيح حفظه من جديد
افتح الملف النصي وقم باعادة حفظ بإسم Save As وستجد تحت اسم الملف نوع الترميز Encoding حدد الترميز UTF-8 ثم احفظ
ثم جرب الكود القديم الذي لديك
فعلا شكرا لك تم حل المشكلة
لكن هل يوجد حل اخر برمجيا لان مش هقدر اقول لكل مستخدم علي هذه الخطوات لحل المشكلة