安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

vb.net在内存中解压文件

2017-09-08 21:52:00
网络摘录
转贴
853

vb.net在内存中解压文件

Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        '保存压缩文件
        Dim fso As New SaveFileDialog
        If fso.ShowDialog = Windows.Forms.DialogResult.OK Then
            GzipFile(fso.FileName)
        End If
 
    End Sub
    Private Sub GzipFile(ByVal FileName As String)
        Try
            '定义文件流,用于写入压缩流
            Dim fs As FileStream = New FileStream(FileName, FileMode.Create, FileAccess.Write)
            '定义压缩流,用于压缩数据
            Dim compressStream = New GZipStream(fs, CompressionMode.Compress, False)
            '定义写入操作流,用于向压缩流写入数据
            Dim sw As StreamWriter = New StreamWriter(compressStream, System.Text.Encoding.GetEncoding("GB2312"))
            sw.WriteLine(Me.RichTextBox1.Text)
            sw.Close()
            MsgBox("压缩文件成功")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Private Function Decompress(ByVal FileName As String)
        Dim DeCompressStr As String = ""
        '定义文件流,用于读取数据
        Dim fs As New FileStream(FileName, FileMode.Open, FileAccess.Read)
        '定义压缩流,用于解压缩,生成解压流
        Dim DecomprssStream As New GZipStream(fs, CompressionMode.Decompress, False)
        '定义读取操作流,用于从压缩流读取数据
        Dim sr As New StreamReader(DecomprssStream, System.Text.Encoding.GetEncoding("GB2312"))
        '返回读取出的内容()
        DeCompressStr = sr.ReadToEnd
        sr.Close()
        Return DeCompressStr
    End Function
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        '打开压缩的文件,以读取其内容
        Dim fso As New OpenFileDialog
        If fso.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.RichTextBox1.Text = Decompress(fso.FileName)
            MsgBox("解压内容完成")
        End If
    End Sub
End Class

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:7.75MB
PHP 执行时间:0.17
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
疯狂之七注册 尼克斯vs公牛 cf手游跳跳乐 22选5开奖结果今天走势图 水晶裂谷客服 我找个亚洲风情 开心假期送彩金 神秘飞碟玩具 北京pk10全天一期计划 忍者法宝走势图