BinaryReader

السلام عليكم

للكتابة في ملف ثنائي القيمة Binary يتطلب علينا التالي:

أولاً إنشاء متغير من نوع BinaryWriter ونحدد من خلال الممرارت له اسم الملف و طريقة التعامل معه

مثلاُ فتح أو فتح ام إنشاء أو إنشاء ... إلخ.. بهذا الشكل :

 Dim bw As New BinaryWriter( _
				File.Open(.FileName, FileMode.Create))

الان تبقى علينا ما هي القيمة التي نود أن نكتبها في الملف ثنائي القيمة // على سبي المثال قيمة رقمية...

لانه لابد أن نقرء تلك القيمة بعد ذلك بخاصية تمكننا من عدم تضارب أنواع القيم عند القراءة. إليك ذلك.

المهم الكتابة تكون عن طريق الاجراء Write بهذا الشكل.

					bw.Write(IntegerValue)

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

 bw.Close()

و القراءة تكون على نفس المنطق ونستخدم الوظيفة ReadInt32 لقراءة القيم الرقمية.

لاننا في الكتابة كتبنا قيم رقمية , أليس كذلك.

الان شاهد النصوص البرمجية بالنسبةِ للكتابةِ و القراءة.

Imports System.IO


#Region " Write Binary Data "

	Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click
		Dim SFD As New SaveFileDialog
		With SFD
			.Title = "صندوق حفظ القيم الثنائية"
			.Filter = " Files(*.DATA;) |*.data;"
			.FileName = "NumBinary"
			If .ShowDialog = Windows.Forms.DialogResult.OK Then
				Dim bw As New BinaryWriter( _
				File.Open(.FileName, FileMode.Create))
				For i As Integer = 0 To 20 Step 2
					bw.Write(i)
				Next
				bw.Close()
				Me.Label1.Text = " File had been created.."
			End If
		End With
	End Sub

#End Region

#Region " Read Binary Data "

	Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
		Dim OFD As New OpenFileDialog
		With OFD
			.Title = "صندوق فتح القيم الثنائية"
			.Filter = " Files(*.DATA;) |*.data;"
			.FileName = String.Empty
			If .ShowDialog = Windows.Forms.DialogResult.OK Then
				Me.Label1.Text = String.Empty
				Dim br As New BinaryReader( _
				File.Open(.FileName, FileMode.Open))
				Do While br.PeekChar() <> -1
					Label1.Text &= br.ReadInt32 & " "
				Loop
				br.Close()
			End If
		End With
	End Sub

#End Region

ReadWrightBinaryData.rar