[Easy4ever]

حسب بحثي لهذا الملف تم العثور على كود الكتابه والقرآءه

استخدم أداة Textbox1 لكتابة النص المراد إذافته في الملف
استخدم أداة Label1 لعرض النص من الملف
أستخدم Button1 أمر الإضافة البيانات
استخدم Button2 أمر عرض البيانات

الأن نذهب للكود

في زر Button1 في حدث Click أكتب الكود التالي

كود :

[align=left]
[SIZE=4][b][COLOR=#008000]' تعريف متغير لحفظ مسار الملف
[/COLOR]
[color=#0000ff]Dim [/color]file_name [color=#0000ff]As String[/color] = [color=#add8e6]Application[/color].StartupPath() & [color=#a52a2a]"/info.ini"[/color]

[COLOR=#008000]' تعريف متغير من نوع كتابة
[/COLOR]
[color=#0000ff]Dim [/color]stream_writer [color=#0000ff]As New[/color] IO.[color=#add8e6]StreamWriter[/color](file_name, [color=#0000ff]False[/color])

[COLOR=#008000]' اخذ القيمة الموجودة في التيكس لنقلها إلى الملف
[/COLOR]
stream_writer.Write(TextBox1.Text)

stream_writer.Close()

MsgBox([color=#a52a2a]"تمت عملية الكتابة بنجاح "[/color], [color=#a52a2a]"نجاح"[/color])

[/b][/SIZE][/align]

* ملاحظة : في نهاية الكود التالي :-

كود :

[align=left][SIZE=4][b][COLOR=#0000ff]
Dim [/COLOR]stream_writer [color=#0000ff]As New[/color] IO.[color=#add8e6]StreamWriter[/color](file_name, [color=#0000ff]False[/color])[/b][/SIZE][/align]

في نهاية الكود تم تعيين الخاصية False تعني أن سيتم كتابة فوق النص السابقة وفي حالة تريد الاضافة إلى الملف دون التأثير بالنص الموجود سابقا يجب تحويل الخاصية من False إلى True


في زر Button2 في حدث Click أكتب الكود التالي

كود :

[align=left][SIZE=4][b][COLOR=#0000ff]
Dim [/COLOR]file_name [color=#0000ff]As String [/color]= [color=#add8e6]Application[/color].StartupPath() & "/info.ini"[/b][/SIZE]
[SIZE=4][b]
[COLOR=#008000]' تعريف متغير من نوع قراءة
[/COLOR]
[color=#0000ff]Dim [/color]stream_reader [color=#0000ff]As New[/color] IO.[color=#add8e6]StreamReader[/color](file_name)

[COLOR=#008000]' عرض ما تم كتابته في الملف داخل Label1
[/COLOR]
Label1.Text = stream_reader.ReadToEnd()

stream_reader.Close()[/b][/SIZE][/align]

الأكواد منقوله من موقع آخر وتم تعديل الطفيف لتناسب الموضوع