18-08-13, 11:05 PM
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 ويكون في موضوع منفصل ..
السلام عليكم
جارى العمل على ذلك والتوفيق من عند الله
