ASP.NET Tutorial/File Directory/Binary

Материал из .Net Framework эксперт
Версия от 14:57, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Reading and writing binary data (C#)

   <source lang="csharp">

<%@ Page Language="C#" %> <%@ Import Namespace="System.IO" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server">

   protected void Page_Load(object sender, EventArgs e)
   {
       BinaryWriter binarywriter = new BinaryWriter(File.Create(@"Data.dat"));
       binarywriter.Write("a string");
       binarywriter.Write(0x12346789abcdef);
       binarywriter.Write(0x12345678);
       binarywriter.Write("c");
       binarywriter.Write(1.5f);
       binarywriter.Write(100.2m);
       binarywriter.Close();
       BinaryReader binaryreader = new BinaryReader(File.Open(@"Data.dat", FileMode.Open));
       string a = binaryreader.ReadString();
       long l = binaryreader.ReadInt64();
       int i = binaryreader.ReadInt32();
       char c = binaryreader.ReadChar();
       float f = binaryreader.ReadSingle();
       decimal d = binaryreader.ReadDecimal();
       binaryreader.Close();
   }

</script> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server">

   <title>Untitled Page</title>

</head> <body>

   <form id="form1" runat="server">
   </form>

</body> </html></source>


Reading and writing binary data (VB)

   <source lang="csharp">

<%@ Page Language="VB" %> <%@ Import Namespace="System.IO" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server">

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
       Dim binarywriter As New BinaryWriter(File.Create("Data.dat"))
       binarywriter.Write("a string")
       binarywriter.Write(&H12346789ABCDEF)
       binarywriter.Write(&H12345678)
       binarywriter.Write("c"c)
       binarywriter.Write(1.5F)
       binarywriter.Write(100.2D)
       binarywriter.Close()
       Dim binaryreader As New BinaryReader(File.Open("Data.dat", FileMode.Open))
       Dim a As String = binaryreader.ReadString()
       Dim l As Long = binaryreader.ReadInt64()
       Dim i As Integer = binaryreader.ReadInt32()
       Dim c As Char = binaryreader.ReadChar()
       Dim f As Double = binaryreader.ReadSingle()
       Dim d As Decimal = binaryreader.ReadDecimal()
       binaryreader.Close()
   End Sub

</script> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server">

   <title>Untitled Page</title>

</head> <body>

   <form id="form1" runat="server">
   </form>

</body> </html></source>