ASP.Net/File Directory/Binary File

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Read/write binary file (C#)

   <source lang="csharp">

<%@ Page Language="C#" %> <%@ import Namespace="System.IO" %> <script runat="server"> 

   BinaryWriter objBinaryWriter;
   BinaryReader objBinaryReader;
   
   private void WriteButton_Click(object Sender, EventArgs e)
   {
      try
      {
          FileStream objFileStream;
   
          objFileStream = new FileStream("myFileCS.bin", FileMode.Create);
          objBinaryWriter = new BinaryWriter(objFileStream);
   
          string Name = NameTextBox.Text;
          int Age = Int32.Parse(AgeTextBox.Text);
          char Sex = Char.Parse(SexTextBox.Text);
   
          objBinaryWriter.Write(Name);
          objBinaryWriter.Write(Age);
          objBinaryWriter.Write(Sex);
      }
      catch (FileNotFoundException FileEx)
      {
          MessageLabel.Text = FileEx.Message;
          return;
      }
      catch (Exception Ex)
      {
          MessageLabel.Text = Ex.Message;
          return;
      }
      WriteBinaryPanel.Visible = false;
      ReadBinaryPanel.Visible = true;
   }
   
   private void ReadButton_Click(object Sender, EventArgs e)
   {
       FileStream objFileStream;
   
       try
       {
           objFileStream = new FileStream("myFileCS.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 (FileNotFoundException FileEx)
       {
           MessageLabel.Text = FileEx.Message;
           return;
       }
       catch (Exception Ex)
       {
           MessageLabel.Text = Ex.Message;
           return;
       }
   }

</script> <html> 

 <head>
 </head>
 <body>
   <form runat="server">

<asp:Panel id="WriteBinaryPanel" Runat="Server"> <p> Please enter your Name: <asp:TextBox id="NameTextBox" runat="server"></asp:TextBox>

Please enter your Age: <asp:TextBox id="AgeTextBox" runat="server"></asp:TextBox>

Please enter your Sex: <asp:TextBox id="SexTextBox" runat="Server" MaxLength="1" Columns="1"></asp:TextBox> (M/F)

<asp:Button id="WriteButton" onclick="WriteButton_Click" runat="server" Text="Write It!"></asp:Button> 

       </asp:Panel>
       <asp:Panel id="ReadBinaryPanel" Runat="Server" >

<asp:Button id="ReadButton" onclick="ReadButton_Click" runat="server" Text="Read It!"></asp:Button>

<asp:Label id="NameLabel" Runat="Server"></asp:Label>

<asp:Label id="AgeLabel" Runat="Server"></asp:Label>

<asp:Label id="SexLabel" Runat="Server"></asp:Label> 

       </asp:Panel>
     </p>

<asp:Label id="MessageLabel" runat="server" EnableViewState="False"></asp:Label> 

   </form>
 </body>

</html> 

</source>


Read/write binary file (VB)

   <source lang="csharp">

<%@ 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">

<asp:Panel id="WriteBinaryPanel" Runat="Server"> <p> Please enter your Name: <asp:TextBox id="NameTextBox" runat="server"></asp:TextBox>

Please enter your Age: <asp:TextBox id="AgeTextBox" runat="server"></asp:TextBox>

Please enter your Sex: <asp:TextBox id="SexTextBox" runat="Server" MaxLength="1" Columns="1"></asp:TextBox> (M/F)

<asp:Button id="WriteButton" onclick="WriteButton_Click" runat="server" Text="Write It!"></asp:Button> 

       </asp:Panel>
       <asp:Panel id="ReadBinaryPanel" Runat="Server">

<asp:Button id="ReadButton" onclick="ReadButton_Click" runat="server" Text="Read It!"></asp:Button>

<asp:Label id="NameLabel" Runat="Server"></asp:Label>

<asp:Label id="AgeLabel" Runat="Server"></asp:Label>

<asp:Label id="SexLabel" Runat="Server"></asp:Label> 

       </asp:Panel>
     </p>

<asp:Label id="MessageLabel" runat="server" EnableViewState="False"></asp:Label> 

   </form>
 </body>

</html> 

</source>
Источник — «http://nfex.ru/index.php?title=ASP.Net/File_Directory/Binary_File&oldid=1903»