تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
موضوع مهم جدا جدا ( فك ضغط ملف zip )
#34
3booody كتب :صراحة لم اجرب سابقآ قرائة نص من ملف مضغوط لكن اعتقد الفئة ZipEntry هي المختصة بها شوف هذا الكود لعرض جميع الملفات داخل ملف الـZip

كود :
Dim msg As String = ""
        Using zip As Ionic.Zip.ZipFile = Ionic.Zip.ZipFile.Read("مسار الملف")
            For Each ZE As Ionic.Zip.ZipEntry In zip
                msg &= ZE.FileName & vbNewLine
            Next
        End Using
        MsgBox(msg)


شوف كده التعاون الحمد لله رب العالمين

كود :
[color=#008000]' قرءاة المحتوا واستخراج ملف معين[/color]
    [color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Button4_Click(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color][color=#000000] Button4.Click[/color]
        [color=#0000FF]Using[/color][color=#000000] zip [/color][color=#0000FF]As[/color][color=#000000] Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000] = Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].Read([/color][color=#0000FF]Me[/color][color=#000000].TxtFile.Text)[/color]
            [color=#0000FF]For[/color] [color=#0000FF]Each[/color][color=#000000] ZE [/color][color=#0000FF]As[/color][color=#000000] Ionic.Zip.[/color][color=#2B91AF]ZipEntry[/color] [color=#0000FF]In[/color][color=#000000] zip[/color]
                [color=#0000FF]If[/color][color=#000000] ZE.FileName [/color][color=#0000FF]Like[/color] [color=#A31515]"*aaaa*"[/color] [color=#0000FF]Then[/color]
                    [color=#0000FF]Try[/color]
[color=#000000]                        ZE.ExtractWithPassword([/color][color=#0000FF]Me[/color][color=#000000].TxtSave.Text, 1, [/color][color=#A31515]"12345"[/color][color=#000000])[/color]
                    [color=#0000FF]Catch[/color][color=#000000] ex [/color][color=#0000FF]As[/color] [color=#2B91AF]Exception[/color]
[color=#000000]                        MsgBox(ex.Message)[/color]
                    [color=#0000FF]End[/color] [color=#0000FF]Try[/color]
                [color=#0000FF]End[/color] [color=#0000FF]If[/color]
            [color=#0000FF]Next[/color]
        [color=#0000FF]End[/color] [color=#0000FF]Using[/color]
    [color=#0000FF]End[/color] [color=#0000FF]Sub[/color]



hoob computer كتب :والله شرح روعة يا شباب ... جزاكم الله خيراً و يا ريت لو يتثبت الموضوع لفترة معينة أو يتم وضع الشرح في ملف pdf ويكون في موضوع منفصل ..



السلام عليكم


جارى العمل على ذلك والتوفيق من عند الله
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - بواسطة ali.alfoly - 18-08-13, 11:05 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] موضوع جد خطيرررر:بمجرد عمل exe للمشروع يراه برنامج الفيروسات على انه فيروس dr.programming 5 945 23-05-23, 01:50 PM
آخر رد: alfaiz678
  عن موضوع التفقيط،، احتاج مساعدتكم assuhimi 1 708 15-04-23, 02:32 AM
آخر رد: Taha Okla
  موضوع للنقاش عن تسعير المجهود حماده ممدوح البحيرى 10 1,075 24-12-22, 08:21 AM
آخر رد: حماده ممدوح البحيرى
  لدي سؤال من فضلكم في موضوع الاستاد الفضل shwehdi4pc في كيفية حماية البرنامج محمدعبدالسلام 2 884 01-11-22, 10:16 AM
آخر رد: محمدعبدالسلام
  لدي سؤال من فضلكم في موضوع الاستاد الفضل shwehdi4pc في كيفية حماية البرنامج محمدعبدالسلام 0 682 30-10-22, 10:56 PM
آخر رد: محمدعبدالسلام
Heart [VB.NET] بالله يا أخوتي نبي نفهم موضوع المزامنة الخاص بقواعد البيانات من نوع SQL SERVER 2016 RADOS 1 932 10-09-22, 01:10 PM
آخر رد: yassoo1985
  [كود] تصفح البيانات موضوع منقول سعود 0 970 13-11-21, 04:34 AM
آخر رد: سعود
  موضوع اعتقد انه بسيط خالد كامل1 2 1,421 21-08-21, 10:26 AM
آخر رد: abomo3ath
  [مشروع] موضوع اليوم الصفحة هد لزم تكون بدي لمفهوم Regular Expression Ali 2020 0 1,330 03-10-20, 09:16 PM
آخر رد: Ali 2020
  [سؤال] موضوع الازرار Abdullah alameery 4 1,715 29-09-20, 07:10 PM
آخر رد: kiki

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم