LIRE/EXTRAIRE UN ZIP 100% VB

Commentaire de GRAZNOK le 16/09/2006 19:33:12

J'avais déjà testé ton ancien code et ça marche du tonnerre.
Y aurait-il la possibilité de faire une source .NET2 (juste pour lire un ZIP, pas l'extraire) ?

Commentaire de EBArtSoft le 17/09/2006 13:57:58 administrateur CS

ce n'est rien juste un petit probleme de conversion ASCII->ANSI je m'en occupe

@+

Commentaire de jack le 17/09/2006 17:59:01 administrateur CS

P*@!£*n ! (pour être poli)
Ca fait des lustres que j'essaye de trouver une concordance entre ces jeux de caractères, persuadé qu'il fallait passer par le paramétrage de l'OS.
Et vlan, EBartSoft résoud ça en 32 minutes. Ca me dégoute !

EBartSoft : Tu es mon héros (avec RenField)

(la vache, je suis sur le cul. J'étais parti dans les méandres des structures des jeux de caractères : une horreur. D'ailleurs, à ce sujet, je vous conseille la lecture de ce superbe article de l'historique (et traduit en français, pour une fois) : http://french.joelonsoftware.com/Articles/Unicode.html )

Commentaire de GRAZNOK le 17/09/2006 21:53:57

EBArtSoft > t'es pas passé au .NET encore ? J'ai vu toutes tes sources et franchement chapeau bas. Moi quand j'ai vu .NET à l'horizon, j'ai bondit dessus... et qu'est-ce qu'on y est mieux :)

Commentaire de Renfield le 18/09/2006 09:33:45 administrateur CS

Conversion ANSI=>ASCII postée en Snippet sur www.codyx.org, si ca en interesse certains.

on aurait pu utiliser les APIs 'CharToOem' & Co... de mémoire, c'est ce que j'avais utilisé, il y a fort longtemps dans un de mes projets

Commentaire de Renfield le 18/09/2006 15:12:03 administrateur CS

une classe n'est pas un Type ^^

Commentaire de Scalpweb le 18/09/2006 15:29:48

Merci Renfield de me prendre pour un idiot... :-)

EBArtSoft, je ne comprends pas vraiment... Mais si tu le dis...

Commentaire de EBArtSoft le 18/09/2006 15:40:53 administrateur CS

Scalpweb> Ok voila un exemple :

    Private Class MONTYPE
        Public Membre1(20) As Byte
    End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t As New MONTYPE
        Dim i As Integer
        Dim f As Integer

        For i = 0 To 20
            t.Membre1(i) = i
        Next

        f = FreeFile()
        FileOpen(f, "c:\test.txt", OpenMode.Binary)
        'FilePut(f, i)      'Pas de probleme !
        FilePutObject(f, t) 'L'E/S de fichier de type 'MONTYPE' n'est pas valide.
        FileClose(f)

    End Sub

Pourquoi mon fichier "c:test.txt" ne contient pas les données de la classe ? et bien par ce que cela n'est pas prevu pour !

@+

Commentaire de Sechaud le 19/09/2006 12:07:13

Bonjour  EBArtSoft, comme toujours, ils sont super tes programmes.
Tu dis que toute amélioration est la bienvenue.
Pourquoi ne pas mettre un bouton qui permettrait d'extraire tous les fichiers d'un coup, plutôt que de s'en tenir à une mono extraction?
Un bouton pour fixer un lieu d'extraction et une boucle en utilisant le code du ListDoubleClick iraient très bien.

Commentaire de Scalpweb le 20/09/2006 11:37:34

Ok enfait je connaissais pas le FilePutObject.

Il doit bien y avoir un moyen de le remplacer, du moins j'imagine...

Enfin bref, merci pour ce cours.

Cependant je reste convaincu que cet inconvéniant et minim par rapport à tout les avantages de .Net2

Mais c'est un avis personnel qui n'engage que moi :-D

Commentaire de jack le 20/09/2006 23:02:13 administrateur CS

... pis un mars

Commentaire de EBArtSoft le 21/09/2006 08:11:05 administrateur CS

GRAZNOK>

http://www.vbfrance.com/codes/LISTER-CONTENU-FICHIER-RAR-SANS-DLL_17165.aspx

Commentaire de FREMYCOMPANY le 30/09/2006 12:11:09

Et ca ???

Public Structure MyType
   Private sT(20) as Byte
End Structure