Read/write binary file (VB) : Binary File « File Directory « ASP.Net

Read/write binary file (VB)
<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<script runat="server">
    Dim objBinaryWriter As BinaryWriter
    Dim objBinaryReader As BinaryReader
    
    Sub WriteButton_Click(sender As Object, e As EventArgs)
        Dim objFileStream As FileStream
        Try
               objFileStream = New FileStream("myFileVB.bin", FileMode.Create)
               objBinaryWriter = New BinaryWriter(objFileStream)
    
               Dim Name As String = NameTextBox.Text
               Dim Age As Integer = Int32.Parse(AgeTextBox.Text)
               Dim Sex As Char = Char.Parse(SexTextBox.Text)
    
               objBinaryWriter.Write(Name)
               objBinaryWriter.Write(Age)
               objBinaryWriter.Write(Sex)
    
        Catch FileEx As FileNotFoundException
            MessageLabel.Text = FileEx.Message()
            Exit Sub
        Catch Ex As Exception
            MessageLabel.Text = Ex.Message()
            Exit Sub
        End Try
    
        WriteBinaryPanel.Visible = False
        ReadBinaryPanel.Visible = True
    
    End Sub
    
  Sub ReadButton_Click(Sender As Object, e As EventArgs)

    Dim objFileStream As FileStream

    Try
        objFileStream = New FileStream("C:\myFileVB.bin", FileMode.Open)
        objBinaryReader = New BinaryReader(objFileStream)

        NameLabel.Text = "Your Name: " & objBinaryReader.ReadString()
        AgeLabel.Text = "Your Age: " & objBinaryReader.ReadInt32()
        SexLabel.Text = "Your Sex: " & objBinaryReader.ReadChar()
    Catch FileEx As FileNotFoundException
      MessageLabel.Text = FileEx.Message()
      Exit Sub
    Catch Ex As Exception
      MessageLabel.Text = Ex.Message()
      Exit Sub
    End Try

  End Sub

</script>
<html>
  <head>
  </head>
  <body>
    <form runat="server">
      <p>
        <asp:Panel id="WriteBinaryPanel" Runat="Server">
          <p>
            Please enter your Name:
            <asp:TextBox id="NameTextBox" runat="server"></asp:TextBox>
          </p>
          <p>
            Please enter your Age:
            <asp:TextBox id="AgeTextBox" runat="server"></asp:TextBox>
          </p>
          <p>
            Please enter your Sex:
            <asp:TextBox id="SexTextBox" 
                         runat="Server" 
                         MaxLength="1" 
                         Columns="1"></asp:TextBox>
            (M/F)
          </p>
          <p>
            <asp:Button id="WriteButton" 
                        onclick="WriteButton_Click" 
                        runat="server" 
                        Text="Write It!"></asp:Button>
          </p>
        </asp:Panel>
        <asp:Panel id="ReadBinaryPanel" Runat="Server">
          <p>
            <asp:Button id="ReadButton" 
                        onclick="ReadButton_Click" 
                        runat="server" 
                        Text="Read It!"></asp:Button>
          </p>
          <p>
            <asp:Label id="NameLabel" Runat="Server"></asp:Label>
          </p>
          <p>
            <asp:Label id="AgeLabel" Runat="Server"></asp:Label>
          </p>
          <p>
            <asp:Label id="SexLabel" Runat="Server"></asp:Label>
          </p>
        </asp:Panel>
      </p>
      <p>
        <asp:Label id="MessageLabel" 
                   runat="server" 
                   EnableViewState="False"></asp:Label>
      </p>
    </form>
  </body>
</html>
Related examples in the same category

Read/write binary file (C#)