المساعدة في بيانات مستند نصي

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

السلام عليكم 

قي النموذح ftext يوجد حقل  textfield  وهناك زران الاول textimport احتاج عند الضغط علية يجلب لي النص الموجود في المستند textm الى الحقل textfield وهذا المستند موجود بجانب قاعدو البيانات   في نفس فولدر القاعدة  اما الزر الثاني textchange  عند الضغط علية يتم تحديث النص الموجود في المستند textm  مثلا لو كان النص في textfield بعد جلبة هو x12345 وبعد تغيرة في textfeild الى y12345 والضغط على الزر textchange ينم تحديث النص الموجود في المستند textm الى القيمة الجديدة 

textf.rar

تم تعديل أبريل 28, 2023 بواسطه ازهر عبد العزيز

[ابوخليل]

عليكم السلام

Private Sub textchange_Click()
Dim fso, opn, tst
Set fso = CreateObject("Scripting.FileSystemObject")
Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt")
Set tst = opn.OpenAsTextStream(2, 0)
tst.Write Me.textfield
tst.Close
End Sub
Private Sub textimport_Click()
Dim fso, opn, tst
Set fso = CreateObject("Scripting.FileSystemObject")
Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt")
Set tst = opn.OpenAsTextStream(1, 0)
textfield = tst.ReadLine
tst.Close
End Sub

 

textf2.rar

[Moosak]

أستاذنا @ابوخليل .. لدي نفس الكود كنت سأضعه كجواب .. ولكن عندما جربته في ملفات مكتوبة بالعربية يلخبط .. 😅

وهكذا تظهر :

 

 

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

جزبل الشكر استاذنا ابو خليل

[ابوخليل]

2 ساعات مضت, Moosak said:

أستاذنا @ابوخليل .. لدي نفس الكود كنت سأضعه كجواب .. ولكن عندما جربته في ملفات مكتوبة بالعربية يلخبط .. 😅
 

الحل يقضي حاجة اخونا ازهر  .. لاني اتوقع الغرض منه

ولكن اذا جاءت الملاحظة من اخوي موسى هذا يعني ان في جعبته الحلول المناسبة

بحثت فوجدت طريقة اخرى للقراءة والكتابة توظف يونيكود

Private Sub textchange_Click()
FilePath = CurrentProject.Path & "\" & "textm.txt"
Set objx = CreateObject("ADODB.Stream")
objx.Open
objx.Type = 2
objx.Charset = "utf-8"
objx.WriteText textfield
objx.SaveToFile FilePath, 2
objx.Close
End Sub

Private Sub textimport_Click()
Dim objx
Set objx = CreateObject("ADODB.Stream")
objx.Charset = "utf-8"
objx.Open
objx.LoadFromFile (CurrentProject.Path & "\" & "textm.txt")
textfield = objx.ReadText()
objx.Close
Set objx = Nothing
End Sub

 

[Moosak]

12 ساعات مضت, ابوخليل said:

هذا يعني ان في جعبته الحلول المناسبة

يا ما أحلاها الحلول الجاهزة 👍🏼😅 

جزاك ربي الجنة 🌷

[Eng.Qassim]

في 28‏/4‏/2023 at 19:00, Moosak said:

ولكن عندما جربته في ملفات مكتوبة بالعربية يلخبط

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

[Ezril]

@Eng.Qassim امك داعيتلك 

فالبعض لديه عوائق من برامج الحمايه فيستخدم ترميز مذكور او ترمثز ios حتى عند استخدام ملفات XML