ASP.Net/File Directory/Binary File — различия между версиями

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

Версия 15:30, 26 мая 2010

Read/write binary file (C#)

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



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>
Источник — «http://nfex.ru/index.php?title=ASP.Net/File_Directory/Binary_File&oldid=1902»