قراءة وكتابة على ملف نوع التشفير UTF-8

مغلق

بدأه tom_nagile في 19 نوفمبر 2006 · 1 رد · 598 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#119 نوفمبر 2006 في 11:16 صاحب الموضوع

بسم الله الرحمن الرحيم

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

معذرتاً على عدم مشاركتي في منتداكم من أكثر من سنتين

حيث أنني أستمتع بقراءة المواضيع حيث لم تترك فيني سؤال إلا سبقني بها أحد الأعضاء

على العموم........ حبيت أضع هذا المثال الي نقلته من منتدى أجنبي

وهذا هو الرابط

القراءة والكتابة على ملف تشفيره UTF-8

هذا ضعه في Modul

وهذا في الفورم

Option Explicit

Private Sub Form_Load()
	Dim strTemp As String, blnBOM As Boolean
	If Not SaveAsUTF8("C:\test.txt", "ÅÄÖ", True) Then MsgBox "Saving failed": Exit Sub
	If Not OpenFromUTF8("C:\test.txt", strTemp, blnBOM) Then MsgBox "Open failed": Exit Sub
	MsgBox strTemp, , "Byte Order Mark: " & blnBOM
End Sub