资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net压缩算法的简单介绍

vb.net 如何压缩、解压缩文件

1、你先搞懂 winrar.exe 的解压参数格式,然后把winrar.exe和相关文件加入到资源文件中,然后调用 资源文件中的winrar.exe

在兰溪等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供网站建设、做网站 网站设计制作按需定制设计,公司网站建设,企业网站建设,成都品牌网站建设,全网整合营销推广,外贸营销网站建设,兰溪网站建设费用合理。

2、弄明白rar/zip文件解压/压缩方法和格式,自己写程序 (可能会比较麻烦)

VB.net环境下 不接压直接读取GZ压缩文件内容?能实现吗?

直接读取 一个gz压缩文件:

我直接创建了一个内容:"asdfasdfasfd" 的 1.txt文件并用gzip 压缩。

读取:

$ zcat 1.txt.gz

asdfasdfasfd

如果内容过长可以接 less 查看:

$ zcat 1.txt.gz | less

vb.net进行文件压缩

如果机器安装有winRar软件,就可以通过shell来借用他的功能达到压缩文件的效果;

参考代码如下:

Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls") '原始文件 (压缩前)

Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")

Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")

'用shell命令调用winrar.exe创建压缩文件()

Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 执行文件的位置

Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip" '目地文件 (压缩后)

Dim command As String = winRarexe " a " wtarget " " DeliveryF " " TruckInfo " " QDetail

'这个命令你可以查看winrar的命令集

Dim retval As Double 'Shell 指令传回值

retval = Shell(command, AppWinStyle.MinimizedFocus)

VB.net 如何将TXT文件转换压缩成.gz文件

手机敲很累的!一定要给分啊!格式是:tar 选项 文件.选项有 -c:产生打包文件 -v:显示详细信息 -f:指定压缩后的文件名 -z:打包同时压缩!举个例子吧!将目录my打包并压缩成my.tar.gz就这样tar -zcvf my.tar.gz my

加密解密高手进!VB.NET 谁能给一个MD5或其他的加密算法

这个是我之前写的。在需要时调用即可。

Public Shared Function Encrypt(ByVal Text As String, ByVal sKey As String) As String

Dim provider As New DESCryptoServiceProvider()

Dim bytes As Byte() = Encoding.[Default].GetBytes(Text)

provider.Key = Encoding.ASCII.GetBytes(FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

provider.IV = Encoding.ASCII.GetBytes(FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

Dim stream As New MemoryStream()

Dim stream2 As New CryptoStream(stream, provider.CreateEncryptor(), CryptoStreamMode.Write)

stream2.Write(bytes, 0, bytes.Length)

stream2.FlushFinalBlock()

Dim builder As New StringBuilder()

For Each num As Byte In stream.ToArray()

builder.AppendFormat("{0:X2}", num)

Next

Return builder.ToString()

End Function

希望能帮到你

简单VB.NET加密与解密

Private Function myEncrypt(ByVal Code As String) As String

Dim Result As String = ""

Dim CurrentChar As Char

For i As Integer = 0 To Code.Length - 1

CurrentChar = Code.Substring(i, 1)

Select Case Code.Substring(i, 1)

Case "Z"

Result = "a"

Case "z"

Result = "A"

Case Else

Result = Chr(Asc(CurrentChar) + 1)

End Select

Next

Return Result

End Function

'vb.net 2005 调试通过


标题名称:vb.net压缩算法的简单介绍
网站地址:http://www.cdkjz.cn/article/hsopjs.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220