کم حجک کردن دیتابیس با زیپ

[amiro72 17]

سلام  من یه دیتابیس دارم 35 مگ هست مثلا وقتی که خودم زیپش میکنم  تقریبا نصف کمتر میشه حجمش میخاستم بدونم چجوری میشه من فایل زیپ رو بریزم توی پوشه ی فایل برنامه و اونو به محض ورود به برنامه از حالت زیپ خارج کنم و فایل اصلی دیتابیس رو بریزم توی پوشه فایل ؟؟؟؟

[مهدی ایزدی 9,203]

بفرمایید یک آموزش تصویری خیلی سریع در حد سه چهار دقیقه ای در این ضمینه براتون آماده کردم :

http://answercenter.ir/topic/14588-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%D8%B3%D8%A7%D8%AF%D9%87-unzip-%DA%A9%D8%B1%D8%AF%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-abzipunzip/

 

موفق باشید

[amiro72 17]

سلام

برای اکسترکت کردن فایل Zip می تونید از کتابخانه AriaZip که در فروشگاه قرار داره استفاده کنید یا هم از کتابخانه ABZipUnZip یا هم از Archiver ...

اگر فایل zip تون پسورد نداره از گزینه دوم یا سوم استفاده کنید در غیر اینصورت از کتابخانه اولی.

کار با کتابخانه ها ساده هست.

می تونید دیتابیستون رو در DirInternal اکسترکت کنید و بعد استفاده کنید.

موفق باشید

 

سلام دوباره  من این کد رو قرار دادم ارور میده فک میکنم که انزیپ نمیکنه

من با این کد میخام به محض ورود به برنامه فایل زیپ  توی پوشه فایل که حاوی دیتابیسم هس انزیپ بشه 

File.Copy(File.DirAssets,"db.zip",File.DirInternal,"db.zip")

	Dim sdRoot As String
	sdRoot = File.DirInternal & "/"
	
	
	If File.Exists(sdRoot & "db.db", "test4.txt") Then
		StartActivity(Menu)
		Activity.Finish
	End If
	
	
		' unzip
	File.MakeDir(sdRoot, "db.db")
	zzz.ABUnzip(sdRoot & "db.zip", sdRoot & "db.db")

	File.WriteString(sdRoot & "db.db", "test4.txt", "test4 is a seperate file")
		StartActivity(Menu)
		Activity.Finish

ممنون میشم راهنمایی کنید

[مهدی ایزدی 9,203]

درود

1- چه اروری میده؟ همیشه حتما ارور رو هم    ذکر کنید

2- توی خط ABUnzip به حای sdRoot db.db از RootExternal db.db استفاده کنید

3- خط WriteString اتون کلا اشتباهه. مسیر رو دادید sdRoot db.db ؟؟؟ این چه آدرسیه ؟؟

[amiro72 17]

درود

1- چه اروری میده؟ همیشه حتما ارور رو هم    ذکر کنید

2- توی خط ABUnzip به حای sdRoot db.db از RootExternal db.db استفاده کنید

3- خط WriteString اتون کلا اشتباهه. مسیر رو دادید sdRoot db.db ؟؟؟ این چه آدرسیه ؟؟

 

درود

1- چه اروری میده؟ همیشه حتما ارور رو هم    ذکر کنید

2- توی خط ABUnzip به حای sdRoot db.db از RootExternal db.db استفاده کنید

3- خط WriteString اتون کلا اشتباهه. مسیر رو دادید sdRoot db.db ؟؟؟ این چه آدرسیه ؟؟

طبق سورس نمونه توی انجمن جلو رفتم 

الان تغییر دادم یه چیزایی رو 

File.Copy(File.DirAssets,"db.zip",File.DirInternal,"db.zip")

	Dim sdRoot As String
	sdRoot = File.DirRootExternal & "/"
	
	
	If File.Exists(sdRoot & "db.db", "test4.txt") Then
		StartActivity(Menu)
		Activity.Finish
	End If
	
	
		' unzip
	File.MakeDir(sdRoot, "db.db")
	zzz.ABUnzip(sdRoot & "db.zip", sdRoot & "db.db")

	File.WriteString(File.DirRootExternal & "db.db", "test4.txt", "test4 is a seperate file")
	
		StartActivity(Menu)
		Activity.Finish

  اینم عکس از ارور توی گوشی

 

http://8pic.ir/images/tgyr3vlkt4cfnjuoyz8w.jpg

[amiro72 17]

کسی نیس  کمک کنه ؟

خیلی لازممه

[محمدرضا شاهپیری 5,561]

دوست عزیز آدرس دهیتون اشتباهه

[محمدرضا شاهپیری 5,561]

اولا فایل zip رو توی مموری کپی کنید و اون رو توی dirinternal اکسترکت کنید

اینجوری میشه

File.Copy(File.DirAssets,"yorzip.zip",File.DirRootExternal,"yourzip.zip")
	zip.ABUnzip(File.DirRootExternal&"/yourzip.zip",File.DirInternal)
	

[amiro72 17]

بفرمایید یک آموزش تصویری خیلی سریع در حد سه چهار دقیقه ای در این ضمینه براتون آماده کردم :

http://answercenter.ir/topic/14588-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%D8%B3%D8%A7%D8%AF%D9%87-unzip-%DA%A9%D8%B1%D8%AF%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-abzipunzip/

 

موفق باشید

 

 

مرسی واقعا  سریع و کوتاه و کاربردی  مشکلم حل شد 

 

 

 

فقط یه چیزی من دیتابیسم 11 مگ هست الان زیپش کردم شد 3 مگ و گذاشتم توی پوشه فایل برنامه و با انزیپ  دیتابیس رو اوردم حجم برنامه به صورت عادی که فایل db بود و 11 مگ حجمش بود  شد 6 مگ ولی من انتظار داشتم با زیپ کردن حجم برنامه هم خیلی بیاد پایین  ولی همون 6 مگ هست چرا ؟

[amiro72 17]

مرسی واقعا  سریع و کوتاه و کاربردی  مشکلم حل شد 

 

 

 

فقط یه چیزی من دیتابیسم 11 مگ هست الان زیپش کردم شد 3 مگ و گذاشتم توی پوشه فایل برنامه و با انزیپ  دیتابیس رو اوردم حجم برنامه به صورت عادی که فایل db بود و 11 مگ حجمش بود  شد 6 مگ ولی من انتظار داشتم با زیپ کردن حجم برنامه هم خیلی بیاد پایین  ولی همون 6 مگ هست چرا ؟

 

ببخشید بروز میکنم  تایپک رو  ولی   جواب سوال بالا رو میخام

[amiro72 17]

ببخشید بروز میکنم  تایپک رو  ولی   جواب سوال بالا رو میخام

 

کسی نیس ؟

[Kazem Forghani 2,927]

سلام

برای اکسترکت کردن فایل Zip می تونید از کتابخانه AriaZip که در فروشگاه قرار داره استفاده کنید یا هم از کتابخانه ABZipUnZip یا هم از Archiver ...

اگر فایل zip تون پسورد نداره از گزینه دوم یا سوم استفاده کنید در غیر اینصورت از کتابخانه اولی.

کار با کتابخانه ها ساده هست.

می تونید دیتابیستون رو در DirInternal اکسترکت کنید و بعد استفاده کنید.

موفق باشید