PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : [VB.NET]Datei in die RAM Laden



inmate
14.07.2009, 15:44
Private Sub Unzip(ByVal filename As String)
Dim inputStream As New ZipInputStream(File.OpenRead(filename))
Dim entry As ZipEntry = Nothing
Dim nBytes As Integer = 2048
Dim data As Byte() = New Byte(2047) {}

While (entry = inputStream.GetNextEntry()) IsNot Nothing
If entry.Name.ToUpperInvariant().EndsWith("ZIP") Then
Dim ms As New MemoryStream()
While (nBytes = inputStream.Read(data, 0, data.Length)) > 0
ms.Write(data, 0, nBytes)
End While
ms.Position = 0

Dim tempStream As New ZipInputStream(ms)
Dim tempEntry As ZipEntry = Nothing

While (tempEntry = tempStream.GetNextEntry()) IsNot Nothing
Dim nBytes2 As Integer = 2048
Dim data2 As Byte() = New Byte(2047) {}
While (nBytes2 = tempStream.Read(data2, 0, data2.Length)) > 0
ResultBox.AppendText(New ASCIIEncoding().GetString(data2, 0, nBytes2))
End While
End While
End If
End While
inputStream.Close()
End Sub

habe diesen Code grade dank google gefunden.
Ich weis nicht ob es geht aber dem ein oder anderen hilft es bestimmt.

mfG

staebche
14.07.2009, 15:53
ist echt sau nett von dir, aber sollen wir die imports erraten?

Easysurfer
14.07.2009, 20:48
Kannst Du einfach wennde über das rote Ausrufezeichen gehst -> Import Bla @TS: Danke für den Source

inmate
14.07.2009, 21:33
st echt sau nett von dir, aber sollen wir die imports erraten?Ja klar , wenn sie dabei gewären wären hätte ich sie nicht mit gepostet nein kla sollt ihr sie erraten -.-*

staebche
15.07.2009, 13:25
wennde über das rote Ausrufezeichen gehst -> Import Bla

ach und anstatt mal den import einfach reinzuschreiben ... !!

jedenfalls kommt bei mir keine korrektur sondern eine meldugn
mit "Keine Korrekturvorschläge"

Kolabi
15.07.2009, 13:39
Hier ist das SRC mit den nötigen Klassen, die man braucht :

http://www.icsharpcode.net/OpenSource/SharpZipLib/DownloadLatestVersion.asp?what=SourceSamples

Klassen, die benötigt werden : ZipInputStream + ZipEntry

inmate
15.07.2009, 14:15
ach und anstatt mal den import einfach reinzuschreiben ... !!

Sagmal checkst du es nicht ? :D
Da stand kein Import bei , sonst hätte ich es doch mit gepostet :/


mfG

hackerking
15.07.2009, 18:00
lol das geht nur mit ZIP datein...


If entry.Name.ToUpperInvariant().EndsWith("ZIP")