كود حفظ النص الموجود داخل Textbox داخل ملف Text

في هذه الحالة يجب عليك دراسة كيفية التعامل مع ملفات البيانات !!!

علي كلٍ ، حتي تتموكن من إجراء حفظ لقيمة معينة موجودة بملف البيانات مثل برنامج Notepad الشهير يمكنك كما يلي :

Open "C:\Data.txt" For Output As #1
Print#1,Text1.Text
Close#1

وفي حالة الرغبة في قرائة ما هو موجود بملف البيانات الي مربع النص كما يلي :

Open "C:\Data.txt" For Input As #1
Text1.Text = Input(LOF(1),1)
Close#1

ملحوظة ، ستجد في المنتدي أمثلة ومواضيع كثيرة تفيد بكيفية التعامل مع ملفات البيانات

رجاء البحث

( رابط لبنت اليمن )

كما أنني أرفقت كتاب بإحدي مشاركاتي أشرح فية مثال عملي يساعدك علي كيفية التعامل مع ملفات البيانات

شكراً

شكرراااا علي ردك واهتمامك شفت موضوع بنت اليمن الشرح الممتاز للتعامل مع ملفات البينات بس المشكلة دلوقتي ده الكود اليه بستخدمه وموجود ..

Dim z As String
z = List1.ListIndex + 0

List1.ListIndex = z + 1

Text1.Text = List1.Text

Open "C:\Data.txt" For Output As #1

Print #1, Text1.Text
Close #1

دلوقتي انا عندي ليست بوكس فيها عناصر كل لمه اضغط علي المفتاح يضاف العنصر اليه محدد عليه في List جوه ملف نص لكن دلوقتي اليه بيحصل اني بلاقي الملف فضي وما يكتبش فيه غير الكلمة اليه متحدد عليها انا ايز ينزل علي سطر جديد ويضيف الكلمة اليه وراه وهكذا ما يمسحش المكتوب ويضيف مكانه...

اقتباس

Open "C:\Data.txt" For Output As #1
Print#1,Text1.Text
Close#1

لا لا , المفروض يكون :

Open "C:\Data.txt" For Output As 1
Print#1,Text1.Text
Close 1

والكود الثاني نفس الحكاية

بالنسبة لـ

اقتباس

ايز ينزل علي سطر جديد ويضيف الكلمة اليه وراه وهكذا ما يمسحش المكتوب ويضيف مكانه

جرب المشروع المرفق :

Ala2_VB___Save_From_List.rar

اقتباس

ايز ينزل علي سطر جديد ويضيف الكلمة اليه وراه وهكذا ما يمسحش المكتوب ويضيف مكانه

الأخ الغالي ، لو نظرت جيداً لكتاب بنت اليمن ستجد أنها تتحدث عن أكثر ثلاثة أنواع لكيفية التعامل مع ملفات البيانات ، منها الطريقة الثنائية !!!

والطريقة الثنائية يمكنك التعامل معها في حدود

Append
Or
Input 
Or
Output

الـ Output الذي أرفقتة لك في الكود مسؤول عن تفريغ محتويات الملف ومن ثم إدراج البيانات الجديدة ( كما يفعل برنامج Notepad ) !!!

أما إذا كنت ترغب في إدراج سطور جديدة من علي الـ ListBox فيمكنك ما يلي :

Open App.Path & "\Data.dat" For Append As #1
Print#1,List1.Text & vbCrLf
Close#1

أما لقراءة سطور الملف كما يلي :

Open App.Path & "\Data.dat" For Input As #1
Line Input #1,strLine
Close#1

ياريت تقرأ الكتاب جيداً ، وتبحث عن أمثلة بالمنتدي

شكراً

مشكور أخي