رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


مجید آرتا

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

پست های پیشنهاد شده

مجید آرتا    5,700

مدیر کل سایت

سلام به انسر سنتریای عزیز

امیدوارم در این ماه مبارک رمضان طاعات و عباداتتون مورد مقبول درگاه حق قرار گرفته باشه

تابعی رو یکی از کاربران B4X  به اشتراک گذاشته بودن که تابع نسبتا بدرد بخوریه.

زمانیکه ما فایل هایی رو دانلود می کنیم، پیش میاد که اسم های یکسانی داشته باشند و خب در زمان ذخیره کردن فایل دانلود شده اگر فایل با اسم یکسان رو بخواییم ذخیره کنیم روی فایل قبلی باز نویسی میشه و فایل قبلی رو از دست میدیم.

از این رو این تابع رو معرفی میکنیم »

Sub getIncrementFileName( Dir As String, FileName As String) As String
    Dim Base As String = FileName.SubString2( 0, FileName.LastIndexOf( "."))
    Dim Ext  As String = FileName.SubString( FileName.LastIndexOf( "."))
    
    Dim newFile As String = FileName
    Dim count As Int = 1
    Do While File.Exists( Dir, newFile) = True
        newFile = $"${Base}(${count})${Ext}"$
        count = count +1
    Loop
    Return newFile
End Sub

 

خب نحوه ی استفاده هم به این شکل هستش »

Dim newFile As String = getIncrementFileName( File.DirInternal, "Test.txt")
File.WriteString(File.DirInternal, newFile,"Www.AnswerCenter.IR")

خب اگر فایل مشابه وجود داشته باشه به این صورت ذخیره میشه »

Test.txt
Test(1).txt
Test(2).txt

 

موفق و موید باشید :hi:

  • پسندیدن 1
  • تشکر 2

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...