السلام عليكم ورحمة الله وبركاته
كيفكم ؟ عساكم طيبين إن شاء الله ,
عندي سؤال إن شاء الله احصل على جوابه في أسرع وقت
أنا مبتدي في الـ vb6.0 وأتمنى تساعدوني شويات ,
ابغى أعرف طريقة انو كيف أخلي البرنامج يقرأ من TXT مثلاً
عندي كلام كثير في TXT أبغاه يضعه في خانه معينه!
سواءً الخانة كانت في صفحة ويب أو خانه في برنامج ..
كيف يتم ذلك ؟ وياليت اذا فيه أحد فاهم وعنده سكايب يضيفني
a7m2dz : لأن عندي أسئلة جداً كثيرة : ( !
وشكراً
.....
منقول
القراءة والكتابة مع الملفات النصية
Text file بترميز
UTF-8 بلغة
VB6
يجب إضافة المرجع (
Microsoft ActiveX DataObjects x.x library) آخر إصدار لديك عن طريق
Project ثم اختيار
...References ومن ثم تحديد المرجع
دالة القراءة
ReadUTF8TextFile (تستقبل اسم الملف وتعيد النص المقروء)
كود :
' UTF8 القراءة بترميز
Function ReadUTF8TextFile(filename As String) As String
' أضف المرجع: Microsoft ActiveX DataObjects x.x library (آخر إصدار متوفر)
' Add reference: Microsoft ActiveX DataObjects x.x library (the latest version of it)
Dim objStream, strData
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile (filename)
strData = objStream.ReadText()
objStream.Close
ReadUTF8TextFile = strData
End Function
دالة الكتابة
WriteUTF8TextFile (تستقبل اسم الملف والنص وتعيد قيمة منطقية بالنتيجة)
كود :
' UTF8 الكتابة بترميز
Function WriteUTF8TextFile(filename As String, text As String) As Boolean
' أضف المرجع: Microsoft ActiveX DataObjects x.x library (آخر إصدار متوفر)
' Add reference: Microsoft ActiveX DataObjects x.x library (the latest version of it)
On Error GoTo ExceptionHandle
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.WriteText text
objStream.SaveToFile filename, 2
objStream.Close
WriteUTF8TextFile = True
Exit Function
ExceptionHandle:
'MsgBox Err.Description
End Function
.....