گرفتن فایل زیپ در برنامه و اکسترکت کردن آن

[bahonar19 23]

سلام دوستان .

من میخام : (تو کامپیوتر) یه چند تا فایل رو زیپ کنم ، بعد فرمتشو (.zip) رو بردارم ، اسمشو یک عدد بدون فرمت بزارم .

بعد از طریق برنامه ، بیایم یه بخش انتخاب فایل بذارم (آپدیت) بعد بیاد اسم برنامه رو بگیره 1.چک کنه آیا عدد 3 رقمیه یا نه .

بعد بیاد اسم فایل رو تو یه تکست ذخیره کنه . بعد (در صورت نیاز) فایل رو رینیم کنه و بعد فایل رو اکسترکت کنه و از طریق دیتابیس اطلاعات رو بخونه .

بعد تو آپدیت بعدی ، بیاد اون اسمی که تو فایل تکست نوشتیم رو با نام فایل مقایسه کنه کمتره یا بیشتر اگر بیشتر بود فایل های قبلی رو حذف کنه و فایل های جدید رو اکسترکت کنه .

کل کار همین بود .

ممنون از دوستان .

در صورت نیاز سورس و کتابخانه رو قرار دهید .

با تشکر.

 

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

دوست عزیز الان دقیقا مشکل شما کدوم قسمت هست ؟

پروژه سفارش میدید ؟

دقیقا مشکل خودتون رو بیان کنید تا پاسخ داده بشه

توی تغییر نام فایل مشکل دارید ؟

توی گرفتن اسمش مشکل دارید؟

توی زیپ مشکل دارید ؟

توی اینکه بقهمید سه رقمی هست یا نه مشکل دارید ؟

سوال خودتون رو خیلی کلی پرسیدید

[bahonar19 23]

دوباره شروع شد .

 

 

آپ

[مجید آرتا 5,874]

سلام

والا غیرتا زدی گیجمون کردی

آقا بنده بر این فرض میگیرم که شما اسم فایلو میگیری حالا چه با Content CHooser  یا File Dialog

بریم سر وقت چک کردن اسم و اینا ( توجه کنید ما اینجا فقط میتونیم سر نخ رو بدیم دستتون دیگه خودتون تا تهش برید ):

Dim fn As String

If fn.Length = 3 Then
 If IsNumber(fn) Then
   File.WriteString(File.DirInternal,"filename.txt",fn)
 End If
End If

این کد اول میاد چک میکنه که 3 حرفی باشه بعد از نوع عدد باشه

و در نهایت همون اسمو میاد توی فایل تکست ذخیره می کنه

 

حالا شما یه توضیح ساده و روونتر بده تا بهتر راهنمایی بشید.

[bahonar19 23]

دستت درد نکنه ، حالا چجوری اسمشو از مثلا "123" به "123.zip" یا "123.rar" تبدیل و اکسترکت کنم و بریزم تو استس ؟

میتونم روش رمز بزارم و با رمز فایل رو اکسترکت کنم ؟

ممنون بابت پاسخگوییتون .

[مجید آرتا 5,874]

سلام

دوستان پروگرمر سایت اصلی این تابع رو جهت تغییر نام فایل قرار دادند :

Sub RenameFile(OriginalFileName As String, NewFileName As String) As Boolean
   Dim Result As Int
   Dim StdOut, StdErr As StringBuilder
   StdOut.Initialize
   StdErr.Initialize
   Dim Ph As Phone
   Result = Ph.Shell("mv " & OriginalFileName & " " & NewFileName, Null,  StdOut, StdErr)
   If Result = 0 Then
      Return True
   Else
      Return False
   End If
End Sub

مثال از نوه استفادع تابع :

RenameFile("/mnt/sdcard/Movies/Monsters_HQ.mp4", "/mnt/sdcard/Movies/M_HQ.mp4")

و در ضمن شما نمی تونید فایلی رو به پوشه Assets  در زمان Runtime  اضافه کنید.

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

[bahonar19 23]

یعنی واقعا کسی پیدا نمیشه جواب بده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :morning1:

عجب انجمن فعالی

آپ

[bahonar19 23]

Up ↑

[bahonar19 23]

Up

[bahonar19 23]

UP

[mamalliii 214]

منظورتو نفهمیدم

واضح تر توضیح بده و لطفا اسپم نده

[bahonar19 23]

دوست عزیز الان دقیقا مشکل شما کدوم قسمت هست ؟

پروژه سفارش میدید ؟

دقیقا مشکل خودتون رو بیان کنید تا پاسخ داده بشه

توی تغییر نام فایل مشکل دارید ؟

توی گرفتن اسمش مشکل دارید؟

توی زیپ مشکل دارید ؟

توی اینکه بقهمید سه رقمی هست یا نه مشکل دارید ؟

سوال خودتون رو خیلی کلی پرسیدید

 

عزیزم ُ اینا یک هزارم یک \روژه خیلی بزرگه که من تو این قسمت آ‍‍‍\دیتش مشکل دارم و دقیقا با گرفتن نام فایل و ذخیره اون تویه تکست . سه رقمی بودنش و کار با زی\ مشکل دارم

توجه داشته باشید که کیبرد من پ رو \ مینویسه .

این \روژه خیلی عظیم هست و کاملا رایگان . البته برای اماکن زیارتی هست .

[bahonar19 23]

منظورتو نفهمیدم

واضح تر توضیح بده و لطفا اسپم نده

عزیزم کامل توضیح دادم

درضمن ، با موبایل بودم ، اولی رو که فرستادم فکر کردم ارسال نشده دوباره فرستادم

[bahonar19 23]

آپ

 

 

ماشالله

 

عجب جواب گویی

[parhamahmadi78 93]

دوست عزیز

کسایی که اینجا هستن هیچ وظیفه ای ندارن ک به شما کمک کنن

اگه کسی هم کمک کرده و پاسخ میده نشان دهنده لطفش هست

اگه کسی بخواد کمک میکنه

پس الکی اسپم ندید

فرستاده شده از H30-U10ِ من با Tapatalk

[bahonar19 23]

دوستان کسی نیست جواب بده ؟

لطفا تاپیک رو به علت آپ کردن قفل نکنید .

 

آپ

 

آپ

 

آپ

 

آپ

 

آپ

 

آپ

 

آپ

 

آپ