Create a new console application project. You can use the solution and project name as shown in the following Figure.
Add the following code.
Imports System Imports System.IO
Module Module1 'The main entry point for the application. Sub Main() Dim MyStreamWriter As StreamWriter = Nothing
' Let's write a string to a file named Jim.txt Try Try MyStreamWriter = New StreamWriter(".\\Jim.txt") Console.WriteLine("StreamWriter() is OK and ready for writing...") Catch e As Exception Throw New Exception("Failed to create a stream writer with error: " + e.Message) End Try
Try Console.WriteLine("Writing some text into a file...") MyStreamWriter.WriteLine("Using stream writers is easy!") MyStreamWriter.WriteLine("Using stream readers is also easy!") MyStreamWriter.WriteLine("Yes it is true!") Catch e As Exception Throw New Exception("Failed to write using a stream writer with error: " + e.Message) End Try Console.WriteLine("Finished writing text to a file") Catch e As Exception Console.WriteLine(e.Message) Exit Sub Finally MyStreamWriter.Close() Console.WriteLine("Closing the StreamWriter()...") End Try
Dim MyStreamReader As StreamReader = Nothing
Try Try MyStreamReader = New StreamReader(".\\Jim.txt") Console.WriteLine("StreamReader() is OK and ready for reading...") Catch e As Exception Throw New Exception("Failed to open stream reader with error: " + e.Message) End Try
Dim FileData As String = Nothing
Console.WriteLine("Reading file content using ReadLine()") Do Try FileData = MyStreamReader.ReadLine() Catch e As Exception Throw New Exception("Failed to read from stream with error: " + e.Message) End Try
If Not IsNothing(FileData) Then Console.WriteLine("We read -> " + FileData) End If
Loop While Not IsNothing(FileData) Console.WriteLine("Finished reading text from a file.") Catch e As Exception Console.WriteLine(e.Message) Exit Sub Finally MyStreamReader.Close() Console.WriteLine("Closing the StreamReader()...") End Try End Sub End Module |
An output sample:
You can try opening the generated file as shown below.
Create a new CLR console application project and you might want to use BinaryIOCP as the project and solution names.
Add the following code.
// BinaryIOCP.cpp : main project file.
#include "stdafx.h"
using namespace System; using namespace System::IO;
[STAThread] int main(array<System::String ^> ^args) { FileStream^ MyFileStream = nullptr;
try { String^ FileName = "C:\\Temp\\crappy.dat"; try { MyFileStream = gcnew FileStream(FileName, FileMode::Create, FileAccess::ReadWrite); Console::WriteLine("{0} file created/opened successfully...", FileName); } catch (Exception^ e) { throw gcnew Exception("Failed to create/open filestream with error: " + e->Message); }
BinaryWriter^ MyBinaryWriter = nullptr;
try { MyBinaryWriter = gcnew BinaryWriter(MyFileStream); Console::WriteLine("Instantiate BinaryWriter object is OK..."); } catch (Exception^ e) { throw gcnew Exception("Failed to create binary writer with error: " + e->Message); }
// Now let's write 4 integers to a file. try { Console::WriteLine("Writing 4 integers using binary writer..."); MyBinaryWriter->Write(456); MyBinaryWriter->Write(457); MyBinaryWriter->Write(458); MyBinaryWriter->Write(459); MyBinaryWriter->Flush(); } catch (Exception^ e) { throw gcnew Exception("Write failed with error: " + e->Message); }
// Now let's prepare to read the integers that we have just written. To // do so requires seeking back to the beginning of the file and reading the bytes. Console::WriteLine(); try { MyFileStream->Seek(0, SeekOrigin::Begin); Console::WriteLine("Seek() is OK..."); } catch (Exception^ e) { throw gcnew Exception("Seek() failed with error: " + e->Message); }
BinaryReader^ MyBinaryReader = nullptr;
try { MyBinaryReader = gcnew BinaryReader(MyFileStream); Console::WriteLine("Instantiate new BinaryReader object is OK..."); } catch (Exception^ e) { throw gcnew Exception("Failed to create binary reader with error " + e->Message); } Console::WriteLine("Reading binary using ReadInt32()...");
while (true) { int Number;
try { Number = MyBinaryReader->ReadInt32(); Console::WriteLine("We read number -> " + Number.ToString()); } catch (EndOfStreamException^) { break; } catch (Exception^ e) { throw gcnew Exception("Failed to read using binary reader with error: " + e->Message); } } } catch (Exception^ e) { Console::WriteLine(e->Message); } finally { Console::WriteLine("Closing FileStream..."); MyFileStream->Close(); } return 0; } |
Build and run the project. The following is the output example when run at the Windows console/command prompt.
|
![]() |
Create a new console application project. You can use the solution and project name as shown in the following Figure.
Add the following code.
using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.IO;
// <summary> // This sample demonstrates how to use the binary stream readers and // writers to write and read integers to a file. // </summary> namespace BinaryIOCS { class Program { // <summary> // The main entry point for the application. // </summary> [STAThread] static void Main(string[ ] args) { FileStream MyFileStream = null;
try { try { MyFileStream = new FileStream(".\\Jim.dat", FileMode.Create, FileAccess.ReadWrite); Console.WriteLine("Jim.dat file created/opened successfully"); } catch (Exception e) { throw new Exception("Failed to create/open filestream with error: " + e.Message); }
BinaryWriter MyBinaryWriter = null;
try { MyBinaryWriter = new BinaryWriter(MyFileStream); Console.WriteLine("Instantiate BinaryWriter object...");
} catch (Exception e) { throw new Exception("Failed to create binary writer with error: " + e.Message); }
// Now let's write 4 integers to a file. try { Console.WriteLine("Writing 4 integers using Write()..."); MyBinaryWriter.Write(456); MyBinaryWriter.Write(457); MyBinaryWriter.Write(458); MyBinaryWriter.Write(459); MyBinaryWriter.Flush(); } catch (Exception e) { throw new Exception("Write failed with error: " + e.Message); }
// Now let's prepare to read the integers that we have just written. To // do so requires seeking back to the beginning of the file and reading the bytes. Console.WriteLine(); try { MyFileStream.Seek(0, SeekOrigin.Begin); Console.WriteLine("Seek() is OK..."); } catch (Exception e) { throw new Exception("Seek failed with error: " + e.Message); } BinaryReader MyBinaryReader = null;
try { MyBinaryReader = new BinaryReader(MyFileStream); Console.WriteLine("Instantiate new BinaryReader object..."); } catch (Exception e) { throw new Exception("Failed to create binary reader with error " + e.Message); } Console.WriteLine("Reading binary using ReadInt32()..."); while (true) { int Number;
try { Number = MyBinaryReader.ReadInt32(); Console.WriteLine("We read number -> " + Number.ToString()); } catch (EndOfStreamException) { break; } catch (Exception e) { throw new Exception("Failed to read using binary reader with error: " + e.Message); } } } catch (Exception e) { Console.WriteLine(e.Message); } finally { MyFileStream.Close(); Console.WriteLine("Closing FileStream..."); } } } } |
An output sample:
Create a new console application project. You can use the solution and project name as shown in the following Figure.
Add the following code.
Imports System Imports System.IO
' This sample demonstrates how to use the binary stream readers and ' writers to write and read integers to a file. Module Module1 ' The main entry point for the application. Sub Main() Dim MyFileStream As FileStream = Nothing
Try Try MyFileStream = New FileStream(".\\Jim.dat", FileMode.Create, FileAccess.ReadWrite) Console.WriteLine("Jim.dat file created/opened successfully") Catch e As Exception Throw New Exception("Failed to create/open filestream with error: " + e.Message) End Try
Dim MyBinaryWriter As BinaryWriter = Nothing
Try Console.WriteLine("Instantiate BinaryWriter object for writing a binary...") MyBinaryWriter = New BinaryWriter(MyFileStream) Catch e As Exception Throw New Exception("Failed to create binary writer with error: " + e.Message) End Try
' Now let's write 4 integers to a file. Console.WriteLine("Writing 4 integers...") Try MyBinaryWriter.Write(456) MyBinaryWriter.Write(457) MyBinaryWriter.Write(458) MyBinaryWriter.Write(459) MyBinaryWriter.Flush() Catch e As Exception Throw New Exception("Write failed with error: " + e.Message) End Try
' Now let's prepare to read the integers that we have just written. To ' do so requires seeking back to the beginning of the file and reading the bytes. Console.WriteLine() Try MyFileStream.Seek(0, SeekOrigin.Begin) Console.WriteLine("Seek() is OK...") Catch e As Exception Throw New Exception("Seek failed with error: " + e.Message) End Try
Dim MyBinaryReader As BinaryReader = Nothing
Try Console.WriteLine("Instantiate BinaryReader object for reading a binary...") MyBinaryReader = New BinaryReader(MyFileStream) Catch e As Exception Throw New Exception("Failed to create binary reader with error " + e.Message) End Try
Do While True Dim Number As Integer Try Console.WriteLine("Reading using ReadInt32()...") Number = MyBinaryReader.ReadInt32() Console.WriteLine("We read number -> " + Number.ToString()) Catch e As EndOfStreamException Exit Do Catch e As Exception Throw New Exception("Failed to read using binary reader with error: " + e.Message) End Try Loop Catch e As Exception Console.WriteLine(e.Message) Finally Console.WriteLine("Closing a FileStream...") MyFileStream.Close() End Try End Sub End Module |
An output sample: