[VB.NET]Datei in die RAM Laden

[inmate]

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]

ist echt sau nett von dir, aber sollen wir die imports erraten?

[Easysurfer]

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

[inmate]

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]

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]

Hier ist das SRC mit den nötigen Klassen, die man braucht :

http://www.icsharpcode.net/OpenSourc...=SourceSamples

Klassen, die benötigt werden : ZipInputStream + ZipEntry

[inmate]

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

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


mfG

[hackerking]

lol das geht nur mit ZIP datein...

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