الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أقوم بحفظ الTextعلى ملف بصيغة txt وكيف أفتحه؟

مغلق
بدأه طالب الخبرة في 7 نوفمبر 2004 · 4 رد · 604 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

حياكم الله أخواني الكرام..

أنا عندي برنامج بسيط على فورم واحد.. فيه شغلتيني بسيطتين.. وهما:

مربع نص

كوماندور ( حفظ )

أود أن أعرف ما هو الكود المطلوب الذي علي كتابة في الزر ( حفظ )..

الذي عند الضغط عليه يقوم بحفظ المكتوب على الـ Text1 ( مربع النص ) على ملف بصيغة txt.. مثل الملفات التي يحفظها برنامج المفكرة!!

والأمر الآخر.. كيف أقوم بفتح ملف txt وعرض محتوياته على مربع نص Text ?

وننتظر ردودكم

أخوكم طالب الخبرة

#2

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

Open "c:\HnHn.txt" For Append As #1
Print #1, Text1.Text
Close 1

ولفتحة والقراءة منه نستخدم الشفرة التالية

Open "c:\HnHn.txt" For Input As #1
While Not EOF(1)
Input #1, Txt
Text2.Text = Txt
Wend
Close #1

لنقل ملف من مسار الى مسار اخر

MoveFile "c:\HnHn.txt", "c:\my documents\HnHn.txt"

لنسخ الملف في مكان آخر

FileCopy "C:\HnHn.txt", "D:\HnHn.txt"

تم تعديل هذه المشاركة بواسطة HnHn في 7 نوفمبر 2004 في 09:22

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#3

السلام عليكم

طريقة الأخ HNHN صحيحة 100 % و ليس عليها غبار .

************

و لكن

إذا لم تعجبك هذه الطريقة اخي الكريم أو انك لم تفهمها جيداً

و لتحكم اكبر

تستطيع إستعمال الأداة

rich text box

و فيها تجد خاصيتين جاهزتين هما

save , open

طبعاً بالقليل من الخبرة في microsoft common dialog control

تستطيع عمل حفظ إحترافي .....

#4

مشكوووور أخوي HnHn وأخوي مختار السيد صالح ألف ألف شكر على ردودكم

شاكرا لكم تعاونكم

وكل عام وأنتم بألف خير

أخوكم طالب الخبرة

#5

وانت بخير وينعاد عليك

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…