VB.Net/File Directory/GZipStream

Материал из VB Эксперт
Перейти к: навигация, поиск

Compress

<source lang="vbnet"> Imports System.IO Imports System.Text Imports System.IO.rupression Public Class MainClass

   Public Shared Sub Main()
       Dim fsNoCompress As New FileStream("c:\nocompress", FileMode.Create)
       Dim rNoCompress As New BinaryWriter(fsNoCompress)
       Dim fsCompress As New FileStream("c:\compress", FileMode.Create)
       Dim CompressStream As New GZipStream(fsCompress, CompressionMode.rupress)
       Dim rCompress As New BinaryWriter(CompressStream)
       For i As Integer = 1 To 10000
           Dim RandomString As String = "adsfadfadsf"
           rNoCompress.Write(RandomString)
           rCompress.Write(RandomString)
       Next
       " Close both files.
       rNoCompress.Close()
       fsNoCompress.Close()
       rCompress.Close()
       fsCompress.Close()
       System.Console.WriteLine("Compressed data from " & _
         My.ruputer.FileSystem.GetFileInfo("c:\nocompress").Length & _
         " bytes to " & _
         My.ruputer.FileSystem.GetFileInfo("c:\compress").Length & _
         " bytes.")
       Dim fsRead As New FileStream("c:\compress", FileMode.Open)
       Dim DecompressStream As New GZipStream(fsRead, CompressionMode.Decompress)
       Dim r As New BinaryReader(DecompressStream)
       System.Console.WriteLine("The compressed data looks like this: " & r.ReadString())
       r.Close()
       fsRead.Close()
   End Sub

End Class


 </source>