[ابو روضة]

(22-04-19, 01:23 AM)elgokr كتب :

(22-04-19, 12:30 AM)ابو روضة كتب :

ماشاء الله عليك أخى جوكر فنان ..

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

وبتظهر بلغة غريبة جدا فهل هناك حل

تسلم اخى ابو روضة

يرجع الامر هنا لان محتوى الملف عربي

ولكن الملف عند الحفظ تم حفظه على 

PHP كود :

Encoding: ANSI 


ولحل المشكلة يفضل اعادة حفظ الملف ليكون

PHP كود :

Encoding: UTF-8 


وكذلك يمكنك تعديل الكود فى الشرح على هذا الجزء

كود :

               Dim FileSR As IO.StreamReader
               FileSR = System.IO.File.OpenText(OFD.FileName)
               TextBox1.Text = FileSR.ReadToEnd()
               FileSR.Close()

ليصبح بهذا الشكل

كود :

               Dim FileSR As IO.StreamReader = New IO.StreamReader(OFD.FileName, System.Text.Encoding.GetEncoding("windows-1256"))
               TextBox1.Text = FileSR.ReadToEnd()
               FileSR.Close()

يمكنك تعديل windows-1256 الى 1256 فقط يمكنك مراجعة الرابط هنا للمزيد

https://docs.microsoft.com/en-us/windows...dentifiers

أو بهذا الشكل

كود :

               Dim FileSR As IO.StreamReader = New IO.StreamReader(OFD.FileName, System.Text.Encoding.Default)
               TextBox1.Text = FileSR.ReadToEnd()
               FileSR.Close()

مع تغيير Default الى 

كود :

ASCII - Unicode - UTF32 - UTF7 - UTF8

ويفضل ان يكون على الافتراضي لان بكلا الحالات

ستحتاج على تعديل حفظ الملف كما تم ذكره بالاعلى

تحياتى لك

وتمنياتى لك التوفيق

تسلم من كل شر أخى....ربنا يزيدك من علمه