مشكلة في الحفظ والفتح

السلام عليكم

اختي يبدو لي انك مزجت بين OpenFileDialogوSaveFileDialog

وبين التعامل مع انواع الملفات

فـOpenFileDialogوSaveFileDialog انما هي نافذة تمكن المستخدم من تحديد مسار الملف المراد فتحه او حفظه

والباقي عيلك انت كمبرمجة

انت تأخذين مسار الملف بواسطة هذه الادوات من المستخدم

مسار الملف في الخاصية FileName

SaveFileDialog1.FileName

للكتابة داخل الملفات النصية او القراءة منها نستخدم الفئتين IO.StreamReadr , IO.StreamWriter

ابحثي عنها وستجدين الكثير

شكرا لك على الرد ولكنني لم أفهم شيئا

ما عرفته أن كل من سيف فايل وأوبن فيل يقومان بالفتح فقط أريد أن أعرف كيف أحفظ فعلا أو أفتح أي ما هي الخطوة التي أعملها بعد تحديد مسار الملف

السلام عليكم ..

آختي بجآوبك على حسب فهمي لمآ تريدين ..

علشآن تتعآملين مع ملـف نصي ..

آول شي حددي مسآر الملف ..

Dim F_name As String = Directory.GetCurrentDirectory & "\aaa.txt" 'لتحديد مسار الملف

وبعدين عرفي متغير من النوع علشآن تقدرين تكتبين ..

Dim ٍٍS_W  As New StreamWriter( F_name , True)

مثلاً آنتي تكتبين في text و ينحط في الملف ..

   S_W .WriteLine(textbox1.Text)

وبعدين تغلقين الملف

....

آتمنى يكون هذآ مرآدك

وبآلتوفيق :)

أختي جزاك الله خيرا لاهتم

أشكرك أختي ولكن أرجوك تحمليني قليلا واحتسبي الأجر

فعلت ما قلت لكننى لاحظت أنه يضع خطوط حمراء تحت كل من Directory و StreamWriter>>>>مع ملاحظة أننى نسختهما فى الأعلى أى فى

Public Class Form1

Dim F_name As String = Directory.GetCurrentDirectory & "\aaa.txt" 'لتحديد مسار الملف

Dim S_W As New StreamWriter(F_name, True)

أما الكود الثالث نسخته فى زر الحفظ

وعندما تجاهلت الأخطاء وحاولت أن أجرب البرنامج لم يسمح بذلك و ظهر لى كلام طويل لم أفهم معناه يحتوى على مسار لملف اسمه localsetting

مرحبا ..

المعذرهـ نسيت مآ أكتب لك المكتبه :P

Imports System.io

و أضيفي btn للأغلاق ..

وبدآخلـه الكود التآلـي ..

S_W.Close() 'نغلق الملف حتى نستطيع تحريره وإستخدامه (مهم جدا

..

بآلتوفيق :)

السلام عليكــم ورحمـة الله وبركاتــه ،،

شكرا لك عزيزتي على المساعدة سعدت كثيرا بما علمتني جعله الله فيميزان حسناتك

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

إن كان ذلك ممكنا ^^

جزاك الله خيرا

شكرا لك أخيتي إشراقة فجر

جعل الله ما قدمتيه من مساعدة في ميزان حسناتك اللهم آمين

طلب لعله الأخير في هذا الموضوع

انا عرفت الآن كيف أحفظ ولكن ما لم أعرفه وحاولت حقرقة بعدة طرق قبل ان أسأل هو كيف أفتح الملف الذي قمت بحفظه في نفس التكست

وجزاكم الله خيرا

اقتباس

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

يقصد بطريقه الفتح لعرض مآ تمت كتآبته بآلقـرآءهـ من الملف ..

لفعل ذلك ,,

آول شـي تعرفين أدآه القرآءهـ من النوع كآلتآلـي ..

Dim S_R  As StreamReader

و تعرفين متغير من النوع string بدورهـ تكون قيمته السطر الأول و آلثآني و آلثآلث إلى نهآيه الملف ..

يستفآد من هالمتغير ..

تشيكين هل توجد سطور في الملف أو لا .. !!

Dim Line  As String

ومثلاً في btn الـ read .. آكتبي التآلـي ..

  S_R= File.OpenText(aaa)

آول شـي نفتح الملف علشآن تتم عمليه القرآءه ..

  Do
			Line= S_R.ReadLine()
			If Line<> "" Then listbox1.Items.Add(line)
		Loop Until lineIs Nothing

وبعدين تسوين loop لانتقال من سطر لآخر ..

آول شي يضع في المتغير line قيمه السطر الأول .. و بعدين آشيـك إذآ مو فآضـي ..

ضع في list هآلسطر ..

آتمنى تكونين فهمتي :)

بآلتوفيق يآرب ..

//

....................................................

يآلغـلآ أنآ شرحت لك كيف تقرين و تضعينه في list إذآ فهمتي بتعرفين كيف تضعينه في txt

إذآ صعب عليك آمر لاتترددين بآلـسؤآل :)

//

اي مساعدة انا جاهز

شكرا لك

Eitd_NotPad.rar

شكرا لك أخيتي إشراقة فجر

الحقيقة أنني تصارعت مع البرنامج صراعا داميا حتى نجحت في عرض التص في اللست

واجهت مشكلة أن (aaa) يضع تحتها خطا وحتى أبعد هذا الخط عملت قصصا طويلة عريضة إلى أن قررت أن أستبدله ب (F_name)

مع ملاحظة أن القراءة لا تنفذ إلا بعد أن أكتب شيئا جديدا وأضغط على الحفظ وبعدها أضغط على الإغلاق ثم أضغط زر الريد ليعرضه في اللست بوك س وإذا لم أعمل ذلك قبل الريد يعطيني إشارة خطأ مفادها

The process cannot access the file 'D:\barmajiat\WindowsApplication5\WindowsApplication5\bin\Debug\aaa.txt' because it is being used by another process.

ولكنيي حقيقا لم أفلح في جعله يعرضه في التكست بوكس

كما أنني أتمنى أن يكون حلا ليقرأ الملف دون الضغط على زر الحفظ والإغلاق وأكون لكم من الشاكرين

أخي blackangel

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

عندما جربت أن أفتح فيها ملف نصي يعرضه برموز وكذلك عندما كتبت في البرنامج زحفظت ما كتبته يعرض الكلام برموز ...لا أعرف ما السبب؟

>>الحقيقة انني سعيدة لأنني أجد من يساعدني جزاكم الله خيرا

السلام عليكم

اقتباس

The process cannot access the file 'D:\barmajiat\WindowsApplication5\WindowsApplication5\bin\Debug\aaa.txt' because it is being used by another process

ربما لم تقومي باغلاق stream حيث يجب اغلاق اي stream بعد استخدامه .

أشكركم جميعا لقد حلت بعض المشاكل أما بقية المشاكل فستحل بإذن الله مع تقدم تعلمي في الفيجوال بيسك ^^

اختي الكريمة يمكن ان تعريف اللغة في جهازك غير مظبوطة بشكل صحيح

او انك نسيتي عند الحفظ ان تحددي نوع الملف وهو من نوع

txt

يعني مثال : Note.txt

وسوف يحفظ إن شاء الله

انا جربته للتاكد ويعمل بشكل جيد

شكرا لك اختي

السلام عليكم

طريقة الفتح بنفس الطريقة السابقة ولكن سوف نعرف متغير اخر وهو

dim re as new streamreader

وتحت زرار الفتح

re=file.opentext(fname)

علي فكرة طبعا لازم نعرف

fname

علي انها سترينج

يعني نقول في بداية الكود

dim fname as string

ويفضل تقولي بعد ماتعرفي ال

fname

تقولي انها تساوي انبوت بوكس

fname=inputbox("ادخل اسم الملف")

نكمل بقي الكود

textbox1.text=re.readtoend

انا ارفقت مثال هيوضحلك شرحي اكتر

iostream.rar