14-10-12, 04:48 PM
StreamWriter, StreamReader :
الفئات الأشهر والأكثر استخداماً من بين الفئات الثلاث السابقة ، تحتوي على الدوال الاساسية لعملية الكتابة والقراءة التالية :
StreamWriter :
Close() : اغلاق .
Flush() : مسح كافية محتويات ال buffer .
NewLine : سطر جديد .
Write() : كتابة عادية .
WriteLine() : كتابة مع سطر جديد .
StreamReader :
تحتوي بالاضافة إلى الدوال الثلاث الأولى في الفقرة السابقة :
Peek() قراءة الحرف التالي مباشرة للمكان الحالي دون تغيير مكان المؤشر.
Read() : القراءة .
ReadBlock() : قراءة مجموعة من الداتا ووضعها في ال buffer .
ReadLine() : قراءة سطر كامل .
ReadToEnd() : قراءة من مكان المؤشر حتى النهاية .
أمثلة :
مثال يجمع عمليتي القراءة والكتابة إلى ملف نصي :
C#:
ناتج عملية الكتابة في الملف :
[ATTACH=CONFIG]905[/ATTACH]
وناتج عملية القراءة على ال Console:
[ATTACH=CONFIG]906[/ATTACH]
الفئات الأشهر والأكثر استخداماً من بين الفئات الثلاث السابقة ، تحتوي على الدوال الاساسية لعملية الكتابة والقراءة التالية :
StreamWriter :
Close() : اغلاق .
Flush() : مسح كافية محتويات ال buffer .
NewLine : سطر جديد .
Write() : كتابة عادية .
WriteLine() : كتابة مع سطر جديد .
StreamReader :
تحتوي بالاضافة إلى الدوال الثلاث الأولى في الفقرة السابقة :
Peek() قراءة الحرف التالي مباشرة للمكان الحالي دون تغيير مكان المؤشر.
Read() : القراءة .
ReadBlock() : قراءة مجموعة من الداتا ووضعها في ال buffer .
ReadLine() : قراءة سطر كامل .
ReadToEnd() : قراءة من مكان المؤشر حتى النهاية .
أمثلة :
مثال يجمع عمليتي القراءة والكتابة إلى ملف نصي :
C#:
كود :
[align=left] private void write(string msg)
{
using(StreamWriter w1 = File.CreateText("test.txt"))
{
w1.Write("Start");
w1.Write(writer.NewLine);
w1.WriteLine(msg);
}
}
private string read()
{
using (StreamReader s1 = File.OpenText("test.txt"))
{
string input = null;
string msg="";
while ((input = sr.ReadLine()) != null)
{
Console.WriteLine(input);
msg+=input;
}
return msg;
}
}
vb.net:
Private Sub write(ByVal msg As String)
Using w1 As StreamWriter = File.CreateText("test.txt")
w1.Write("Start")
w1.Write(writer.NewLine)
w1.WriteLine(msg)
End Using
End Sub
Private Function read() As String
Using s1 As StreamReader = File.OpenText("test.txt")
Dim input As String = Nothing
Dim msg As String = ""
While (input = sr.ReadLine()) IsNot Nothing
Console.WriteLine(input)
msg += input
End While
Return msg
End Using
End Function
[/align]ناتج عملية الكتابة في الملف :
[ATTACH=CONFIG]905[/ATTACH]
وناتج عملية القراءة على ال Console:
[ATTACH=CONFIG]906[/ATTACH]
