از حالت فشرده خارج كردن هر نوع فايل فشرده اي

[milad.biroonvand]

سلام دوستان


چطور مي تونم ، يك تابع رو استفاده كنم ، كه هر نوع فايلي فشرده اي رو ، از حالت فشرده خارج كنه ، مثلا ، zip ، rar،cab رو از حالت فشرده خارج كنه.

[BehzadBar]

دوست عزیز در .net برای zip و unzip کردن فایلها دو تا کلاس وجود دارد به نامهای
GZipStream
DeflateStream
طریقه استفاده



Dim sourceFile As FileStream = File.OpenRead(inFilename)
Dim destFile As FileStream = File.Create(outFilename)

Dim compStream As _
New GZipStream(destFile, CompressionMode.Compress)

Dim theByte As Integer = sourceFile.ReadByte()


While theByte <> -1


compStream .WriteByte(CType(theByte, Byte))


theByte = sourceFile.ReadByte()
End While


امیدوارم که مفید باشه

[Hossis]

نیاز به رفرنس یا ایمپورت نداره؟؟

[BehzadBar]

نیاز به رفرنس یا ایمپورت نداره؟؟
این کلاسها در System.IO پیاده سازی شده که نیاز به Import داره

[BehzadBar]

طریقه Unzip کردن



Dim sourceFile As FileStream = File.OpenRead(inFilename)
Dim destFile As FileStream = File.Create(outFilename)

Dim compStream As _
New GZipStream(sourceFile, CompressionMode.DeCompress)

Dim theByte As Integer =

compStream.ReadByte()

While theByte <> -1
destFile


.WriteByte(CType(theByte, Byte))

theByte =


compStream.ReadByte()
End While

[milad.biroonvand]

سلام با تشكر از پاسخ شما ، ببخشيد اگه مي شود يك مثال اينجا بزاريد كه اگر فايل zip بود ، آن را از حالت فشرده خارج كند ، اگر فايل rar يا cab هم بود آن را از حالت فشرده خارج كند ، بعد اين فايل ها توسط خود .net ساخته نمي شوند ، توسط برنامه winrar فشرده مي شوند .

حالا نظرتون در مورد اين كد چيه ؟



Module UnzipFile
Sub Main()
Dim archiver As New ZipForge()
Try
' The name of the ZIP file to unzip
archiver.FileName = "C:\test.zip"
' Open an existing archive
archiver.OpenArchive(System.IO.FileMode.Open)
' Default path for all operations
archiver.BaseDir = "C:\Temp"
' Extract all files from the archive to C:\Temp folder
archiver.ExtractFiles("*.*")
' Close archive
archiver.CloseArchive()
' Catch all exceptions of the ArchiverException type
Catch ae As ArchiverException
Console.WriteLine("Message: {0} Error code: {1}", ae.Message, ae.ErrorCode)
' Wait for keypress
Console.ReadLine()
End Try
End Sub
End Module



منبع سايت

http://www.componentace.com/unzip-in-vb.net.htm
:چشمک:

[BehzadBar]

میلاد جان این کلاس ZipForge در کدوم نیم اسپیس پیاده سازی شده ؟

[milad.biroonvand]

مي توني برا راحتي كار هم از پروژه زير استفاده كني. اين فايل هاي رار رو اكزتركت مي كنه ، كامپونتش هم رايگانه.

[milad.biroonvand]

میلاد جان این کلاس ZipForge در کدوم نیم اسپیس پیاده سازی شده ؟


بايد اول add refrence bekoni بعد بنويسي

imports zipforg

[ACorvinus]

اینم از ZipForge dll :

35581

[milad.biroonvand]

اینم از ZipForge dll :

35581


سوال ، اين ، نسخه آزمايشي اگه نسخه مجانيشو گير بياري بزاري عالي ميشه . موفق باشي

[Hossis]

این کلاسها در System.IO پیاده سازی شده که نیاز به Import داره



Imports System.IO
Imports System.IO.Compression

[milad.biroonvand]

با تشكر از پست هاتون ، اگه ميشه يك كد بذارين ، كه تمام اعمال فشرده سازي از حالت فشرده خارج كردن رو داشته باشه ؟

اين كتابخونه sysytem.io.comresion برا فايل هاي كب overflow مي شه .

[milad.biroonvand]

سلام ، اگه كسي دو تابع ساخته كه بتونيم با اونها ، يك فايل رو فشرده و از حالت فشرده خارج كنيم ، اينجا بذاره.

[milad.biroonvand]

با اين پروژه مي تونيد با استفاده از دو تابع فايل هاي زيپ رو از حالت فشرده خارج و دوباره فشرده كنيد ، هر كس تونست كامل ترش كنه ف اسمشو زيز اسم نفر بعدي بنويسه .


دانلود كنيد (http://www.ariagig.com/download.php?act=download&p=ziper.rar&dir=&sid=90e52587f229a1de546ae640bb098f49)

[Javad_raouf]

سلام با تشكر از پاسخ شما ، ببخشيد اگه مي شود يك مثال اينجا بزاريد كه اگر فايل zip بود ، آن را از حالت فشرده خارج كند ، اگر فايل rar يا cab هم بود آن را از حالت فشرده خارج كند ، بعد اين فايل ها توسط خود .net ساخته نمي شوند ، توسط برنامه winrar فشرده مي شوند .

حالا نظرتون در مورد اين كد چيه ؟



Module UnzipFile
Sub Main()
Dim archiver As New ZipForge()
Try
' The name of the ZIP file to unzip
archiver.FileName = "C:\test.zip"
' Open an existing archive
archiver.OpenArchive(System.IO.FileMode.Open)
' Default path for all operations
archiver.BaseDir = "C:\Temp"
' Extract all files from the archive to C:\Temp folder
archiver.ExtractFiles("*.*")
' Close archive
archiver.CloseArchive()
' Catch all exceptions of the ArchiverException type
Catch ae As ArchiverException
Console.WriteLine("Message: {0} Error code: {1}", ae.Message, ae.ErrorCode)
' Wait for keypress
Console.ReadLine()
End Try
End Sub
End Module



منبع سايت

http://www.componentace.com/unzip-in-vb.net.htm
:چشمک:

خیلی چیز توپیه دمت گرم
فقط یکی به من میگه از این Archiver میشه درصد کارت رو بگیری
من که هر کار کردم نشد
می خوام ازش percent بگیره و با یک نخ دیگه نشون بدم ولی نمی دونم گزینش چیه

[milad.biroonvand]

خیلی چیز توپیه دمت گرم
فقط یکی به من میگه از این Archiver میشه درصد کارت رو بگیری
من که هر کار کردم نشد
می خوام ازش percent بگیره و با یک نخ دیگه نشون بدم ولی نمی دونم گزینش چیه


منظورت از درصد مانند نرم افزار winrar که موقعی که از حالت فشرده خارج می کنه درصد میندازه یا چیزه دیگه ایه ؟

[Javad_raouf]

منظورت از درصد مانند نرم افزار winrar که موقعی که از حالت فشرده خارج می کنه درصد میندازه یا چیزه دیگه ایه ؟

می خوام یک Progress Bar درست کنم برای همین نیاز به درصد دارم