اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

السلام عليكم 

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

textf.rar

تم تعديل بواسطه ازهر عبد العزيز
رابط هذا التعليق
شارك

  • أفضل إجابة

عليكم السلام

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

  • Thanks 1
رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information