База ответов ИНТУИТ

Практикум прикладного программирования на C# в среде VS.NET 2008

<<- Назад к вопросам

Следующий пример:
Imports SystemImports System.IOModule VBDemoSub Main()    Dim Bytes As Byte()    Dim Reader As BinaryReader    Dim Writer As BinaryWriter    Reader = New BinaryReader(File.OpenRead (“c:\demo.exe”))    Writer = New BinaryWriter(File.Create (“c:\demo_copy.exe”))    While Reader.PeekChar() > -1        Bytes = Reader.ReadBytes(1024)        Writer.Write(Bytes)    End While    Reader.Close()    Writer.Flush()    Writer.Close()End SubEnd Module
демонстрирует:

(Ответ считается верным, если отмечены все правильные варианты ответов.)

Варианты ответа
объединение методов классов BinaryReader и BinaryWriter(Верный ответ)
использование класса BinaryWriter для записи данных примитивных типов в ассоциированный поток(Верный ответ)
выполнение операции копирования (Верный ответ)
Похожие вопросы
Следующий пример:
Imports SystemImports System.IOModule VBDemoSub Main()    Dim Bytes As Byte()    Dim I As Integer    Dim Reader As BinaryReader    Reader = New BinaryReader(File.OpenRead (“c:\demo.exe”))    While Reader.PeekChar() > -1        Bytes = Reader.ReadBytes(16)        For I = 0 To Bytes.GetUpperBound(0)            Console.Write(“0x{0:X2}|”, Bytes(I))        Next        Console.WriteLine()    End WhileEnd SubEnd Module 
показывает:
Следующий пример:
Imports SystemImports System.IOModule VBDemoSub Main()    Dim FileName As String = _         “C:\Program Files\Microsoft.NET\FrameworkSDK\include\corsym.h”    Dim Reader As TextReader    Dim I As Int32    Reader = New StreamReader(FileName)    While Reader.Peek() > -1        Console.WriteLine(Reader.ReadLine)        I += 1    End While    Console.WriteLine(“Read {0:G} lines”, I)    Reader.Close()End SubEnd Module
показано:
Пример кода:
Imports SystemImports System.IOModule VBDemoSub Main()Dim FileName As String = "c:\temp\mytext01.txt"Dim Writer As StreamWriterDim MyFile As New FileInfo(FileName)Writer = MyFile.CreateText()Writer.WriteLine("Created by"&MyFile.GetType.ToString)Writer.WriteLine("Written by"&Writer.ToString)Writer.Close()End Sub
демонстрирует:
Фрагмент кода:
using System;  using System.IO;  using System.IO.Compression; namespace Recipe05_23  {  class Recipe05_23  {  static void Main(string[] args)  {   GZipStream zipout = new GZipStream(  File.OpenWrite("compressed_data.gzip"),  CompressionMode.Compress);  StreamWriter writer = new StreamWriter(zipout);  writer.WriteLine("the quick brown fox");   writer.Close();  GZipStream zipin = new GZipStream(  File.OpenRead("compressed_data.gzip"),  CompressionMode.Decompress);  StreamReader reader = new StreamReader(zipin);  a line from the stream and print it out.  Console.WriteLine(reader.ReadLine());  Console.WriteLine(Environment.NewLine);  Console.WriteLine("Main method complete. Press Enter."); Console.ReadLine(); } } }
демонстрирует пример:
Фрагмент кода:
Imports System Imports System.IO Imports System.Security.Cryptography Module VBDemo Sub Main()     Dim Bytes() As Byte = {65, 66, 67, 68, 69, 70, 71, 72, 73, 74}     Dim EncBytes() As Byte = New Byte(15) {}     Dim DecBytes() As Byte = New Byte(10) {}     Dim FileName As String = "c:\temp\text.enc"     Dim EncFile As New FileStream(FileName, FileMode.Create, _         FileAccess.Write)     Dim DES As New DESCryptoServiceProvider()     Dim DESEncrypt As ICryptoTransform = DES.CreateEncryptor()     Dim CryptoStreamEnc As New CryptoStream(EncFile, DESEncrypt, _         CryptoStreamMode.Write)     Console.WriteLine("Original Data")     ToHexArray(Bytes)     CryptoStreamEnc.Write(Bytes, 0, Bytes.Length)     CryptoStreamEnc.Close()     EncFile.Close()     EncFile = New FileStream(FileName, FileMode.Open, FileAccess.Read)     EncFile.Read(EncBytes, 0, EncFile.Length)     EncFile.Close()     Console.WriteLine("Encrypted Data")     ToHexArray(EncBytes)     Console.WriteLine()     Dim DecFile As New FileStream(FileName, FileMode.Open, _         FileAccess.Read)     Dim DESDecrypt As ICryptoTransform = DES.CreateDecryptor()     Dim CryptoStreamDec As New CryptoStream(DecFile, DESDecrypt, _         CryptoStreamMode.Read)     Dim Reader As New BinaryReader(CryptoStreamDec)     Console.WriteLine("Decrypted Data")     DecBytes = Reader.ReadBytes(10)     ToHexArray(DecBytes) End Sub Sub ToHexArray(ByVal A As Byte())     Dim I As Integer     For I = 0 To A.GetUpperBound(0)         Console.Write("0x{0:x2} ", A(I))         If I = 7 Then             Console.WriteLine()         End If     Next End Sub End Module
показано:
Следующий код:Imports SystemImports System.IOModule VBDemo Sub Main() Dim Bytes() As Byte = New Byte(10) {} Dim I As Integer Dim MemStr As New MemoryStream()Dim FileStr As New FileStream(“c:\temp\bytes.bin”, _ FileMode.CreateNew) Dim Rand As System.Random = New System.Random() For I = 0 To 9 Bytes(I) = Rand.Next(0, 100) Next MemStr.Write(Bytes, 0, I) MemStr.WriteTo(FileStr) MemStr.Close() FileStr.Close() End SubEnd Moduleдемонстрирует:
В следующем фрагменте кода: using System.Xml.Serialization;...XmlSerializer serializer = new XmlSerializer(typeof(OrderEntity));TextWriter writer = new StreamWriter("MyXmlOrderEntity.xml");serializer.Serialize(writer, order);writer.Close();показывается:
Рассмотрим следующий фрагмент кода:private void button1_Click(object sender, System.EventArgs e){ string path = @"C:\a.txt";using(FileStream filestream=File.Open(path, FileMode.OpenOrCreate)) { BinaryWriter binarywriter = new BinaryWriter(filestream); decimal dNum=20.3m; binarywriter.Write(dNum); dNum=723.05m; binarywriter.Write(dNum); dNum=3000.105m; binarywriter.Write(dNum); }using(FileStream filestream=File.Open(path, FileMode.Open)) { BinaryReader binaryreader = new BinaryReader(filestream); decimal dNum; filestream.Seek(16,SeekOrigin.Begin); textBox1.Text+=binaryreader.ReadDecimal().ToString()+" "; filestream.Seek(32,SeekOrigin.Begin); textBox1.Text+=binaryreader.ReadDecimal().ToString()+" "; filestream.Seek(0,SeekOrigin.Begin); textBox1.Text+=binaryreader.ReadDecimal().ToString()+" "; }}Результат в TextBox:
Пример кода:
Imports SystemImports System.IOModule VBDemoSub Main()Dim Path As String = "c:\"Dim DirInfo As New DirectoryInfo(Path)Dim Dirs() As DirectoryInfoDim I As IntegerConsole.WriteLine("Initial Directory:"&DirInfo.FullName);Dirs=DirInfo.GetDirectoriesFor I=0 To Dirs.GetUpperBound(0)Console.WriteLine(Dirs(I).FullName)NextEnd SubEnd Module
демонстрирует:
Пример кода:
Imports SystemImports System.IOModule VBDemoSub Main()Dim Path As String = GetPersonalFolder()&"\MyText"Dim DirInfo As New DirectoryInfo(Path)Dim Parent As StringConsole.WriteLine("Initial Directory : "&DirInfo.FullName)Parent = DirInfo.Parent.FullNameWhile Parent DirInfo.Root.FullNameConsole.WriteLine("Parent Directory : " & _DirInfo.Parent.FullName)Parent = DirInfo.Parent.FullNameDirInfo = New DirectoryInfo(Parent)End WhileEnd SubFunction GetPersonalFolder() As StringDim E As EnvironmentReturn E.GetFolderPath(Environment.SpecialFolder.Personal)End FunctionEnd Module
демонстрирует: