PDA

View Full Version : سوال: rename کردن فایل های pdf


ashkaseman
شنبه 30 مهر 1390, 10:21 صبح
سلام
من یکسری فایل pdf دارم که اسم این فایل های pdf شابک کتاب هست که بین شون کاراکتر اضافی خورده حالا من میخوام این کاراکتر های اضافی رو با برنامه ای بردارم چون تعدادشون زیاده نمیشه دستی اینکار رو کرد از دوستان خواهش میکنم کمکم کنند
با تشکر
sina_saravi1
شنبه 30 مهر 1390, 12:45 عصر
سلام

فایل ها رو تو یه پوشه بریزید .
آدرس پوشه رو به نرم افزار بدید
نرم افزار تک تک فایل ها رو میگیره و با یه تابع جایگزینی متن ، متن مورد نظر رو به دست میارین و با نام جدید فایل رو ذخیره میکنید
ashkaseman
شنبه 30 مهر 1390, 12:49 عصر
ممنونم از پاسخ شما دوست عزیز
ولی من خودم می خوام برنامه رو بنویسم مشکل من اینه که نمیدونم از چه تابع ای استفاده کنم لطفا در خصوص برنامه نویسیش کمکم کنید.
خیلی ممنون
sina_saravi1
شنبه 30 مهر 1390, 12:56 عصر
ممنونم از پاسخ شما دوست عزیز
ولی من خودم می خوام برنامه رو بنویسم مشکل من اینه که نمیدونم از چه تابع ای استفاده کنم لطفا در خصوص برنامه نویسیش کمکم کنید.
خیلی ممنون
برای انتخاب پوشه از کنترل FolderBrowserDialog استفاده کنید
برای گرفتن فایل ها از کلاس IO استفاده کنید
توش توابع زیادی هست که کار شما رو ساده میکنه

یه نگاه بندازید اگه باز هم نتونستید بگید کد بزارم
ashkaseman
یک شنبه 01 آبان 1390, 08:00 صبح
ازتون ممنون میشم اگر کدش رو بگذارید
خیلی ممنون
sina_saravi1
یک شنبه 01 آبان 1390, 11:09 صبح
ازتون ممنون میشم اگر کدش رو بگذارید
خیلی ممنون

یه دکمه تو فرمت اضافه کن
Imports System.IO

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FolderPath As String = "D:\test" ' "Adrese pusheye havie file haye pdf"
Dim DI As New DirectoryInfo(FolderPath)
For Each Fl As FileInfo In DI.GetFiles
If Fl.Extension = ".pdf" Then
FileSystem.Rename(Fl.FullName, Fl.FullName.Replace("-", ""))
End If
Next
End Sub
End Class