السلام عليكم :
كيف تقرأ وتكتب ؟؟؟.....من ملف نصي طبعا لأننا نعرف القراءة والكتابه علي الورق ولكن كيف نقرأ ونكتب الي ملف , هذه الفكره نحتاج اليها في كثير من البرامج لكي نسجل بيانات كبيره مثلا لا يمكن تسجيلها في الريجستري وهي من المهارات التي لا يستغني عنها أي مبرمج..... ولكن كيف ذلك ؟
يجب أن يكون هناك حلقة وصل أو bridge بين البرنامج وبين الملف سواء للقراءه أو الكتابه هذا الـ bridge يسمي في بيئة الدوت نت بالـ stream والمعني اللغوي لهذه الكلمه هي (مجري) أي أن البيانات ستنساب عبره سواء الي خارجه للقراءه أو الي داخله للكتابه ولكي تقرأ من هذا المجري يجب وجود ما يسمي بالـ stream reader للقراءه أو stream writer للكتابه , وكل هذه الفصائل توجد مجمعه داخل namespace واحد هو system.io اختصارا لـ input,output , دعنا من الكلام ولنتجه الي الأمثله :
أولا نعرف المتغيرات اللازمه لذلك :
Dim fs As IO.FileStream Dim sw As IO.StreamWriter Dim sr As IO.StreamReader
في الكود السابق قمنا بتعريف filestream لنقل البيانات عبره و stream reader للقراءه و stream writer للكتابه ,
ولكن كيف نستعملهم ؟
للكتابه الي ملف :
fs = New IO.FileStream(Application.StartupPath & "/files.txt", IO.FileMode.Create)
sw = New IO.StreamWriter(fs)
sw.WriteLine("Wow,I did it")
sw.Close()
fs.Close()في السطر الأول قمنا بتحديد الملف المراد التعامل معه وطريقة التعامل معه وفي السطر الثاني قمنا بتمرير اسم الـ filestream الي الـ stream writer حتي يتعامل معه ,في السطرالثالث قمنا بكتابه سطر واحد داخل الملف , وبعد ذلك لابد من غلق الـ file stream والـ stream writer,,,
هذه كانت طريقة الكتابه أما للقراءه من ملف :
fs = New IO.FileStream(Application.StartupPath & "/files.txt", IO.FileMode.Open) sr = New IO.StreamReader(fs) MsgBox(sr.ReadToEnd()) sr.Close() fs.Close()
أعتقد أنكم فهمتوا الفكره ولكن في حالة القراءه نستخدم الوظيفه readtoend حتي نقرأ كل الملف , وتوجد طرق أخري أترك لك اكتشافها ,,,
أرجو أن يكون الدرس قد أعجبكم واستفدتم منه ,,,
