Tìm và thay thế ký tự đặc biệt để đặt tên file

Liên hệ QC

nokia6230ivn

Thành viên chính thức
Tham gia
16/5/07
Bài viết
54
Được thích
8
Dear các bác,
Trong các loại văn bản thì có phần trích yếu ngay ban đầu. Em muốn sử dụng phần này làm tên file. Tuy nhiên, một số câu lại có ký tự đặc biệt không rename được. Các bác có biết hàm nào hoặc đoạn code VBA nào để tìm và thay thế các ký tự đặc biệt này không chỉ em với.
Cảm ơn các bác.
 
Dear các bác,
Trong các loại văn bản thì có phần trích yếu ngay ban đầu. Em muốn sử dụng phần này làm tên file. Tuy nhiên, một số câu lại có ký tự đặc biệt không rename được. Các bác có biết hàm nào hoặc đoạn code VBA nào để tìm và thay thế các ký tự đặc biệt này không chỉ em với.
Cảm ơn các bác.
Bạn nên đưa số câu có ký tự đặc biệt và kết quả mong muốn lên diễn đàn, để các thành viên khác dễ dàng trợ giúp.
 
Bạn nên đưa số câu có ký tự đặc biệt và kết quả mong muốn lên diễn đàn, để các thành viên khác dễ dàng trợ giúp.
Bạn cần hỏi thớt định nghĩa rõ "văn bản" (document?) và "phần trích yếu" (abstract or synopsis?).
Những người hay dùng tiếng Tây chưa chắc họ đã dùng tiếng Việt dễ hiểu cho người Việt.
 
Bạn cần hỏi thớt định nghĩa rõ "văn bản" (document?) và "phần trích yếu" (abstract or synopsis?).
Những người hay dùng tiếng Tây chưa chắc họ đã dùng tiếng Việt dễ hiểu cho người Việt.
Bác oi, Bác oi
"Dear các bác,"
Là gì cơ hở Bác?
 
Ví dụ văn bản này em mới lấy trên net:

Download file về thì có tên là 183-TTg.pdf (https://www.mic.gov.vn/Upload/Store//VanBan/7016/183-TTg-QHQT.pdf)

Em muốn đổi tên file thành: “183-TTg-QHQT Du an vien thong-cong nghe thong tin dau tu tai Lao.pdf” để dễ tìm kiếm về sau. Như vậy phải có 2 bước: (i) đổi ký tự “/” thành “-”!; (ii) Bỏ toàn bộ dấu, chuyển unicode.

Đây chỉ là 1 ví dụ cụ thể thôi. Nhiều khi ở phần “v/v… ” còn có các ký tự đặc biệt khác: < > ?... Và nhu cầu của em là đổi một loạt nhiều file khác nhau (dữ liệu của em hiện có khoảng hơn 10.000 file).

Phần đổi unicode nếu các bác có hàm, VBA thì giúp em luôn, không thì em làm thủ công ở unikey cũng được.

Thanks all!
 

File đính kèm

  • Untitled.png
    Untitled.png
    272.7 KB · Đọc: 17
Ví dụ văn bản này em mới lấy trên net:

Download file về thì có tên là 183-TTg.pdf (https://www.mic.gov.vn/Upload/Store//VanBan/7016/183-TTg-QHQT.pdf)

Em muốn đổi tên file thành: “183-TTg-QHQT Du an vien thong-cong nghe thong tin dau tu tai Lao.pdf” để dễ tìm kiếm về sau. Như vậy phải có 2 bước: (i) đổi ký tự “/” thành “-”!; (ii) Bỏ toàn bộ dấu, chuyển unicode.

Đây chỉ là 1 ví dụ cụ thể thôi. Nhiều khi ở phần “v/v… ” còn có các ký tự đặc biệt khác: < > ?... Và nhu cầu của em là đổi một loạt nhiều file khác nhau (dữ liệu của em hiện có khoảng hơn 10.000 file).

Phần đổi unicode nếu các bác có hàm, VBA thì giúp em luôn, không thì em làm thủ công ở unikey cũng được.

Thanks all!
Viết đại cái UDF này, bạn coi dùng được thì dùng nha
Mã:
Option Explicit
Function ChuyenChuoi(sChuoi As String) As String
Const sChar As String = "\/:*?""<>"
Dim i As Long, tmp As String
tmp = sChuoi
For i = 1 To Len(sChar)
    tmp = Replace(tmp, Mid(sChar, i, 1), "-")
Next
ChuyenChuoi = tmp
End Function
 
Cái khó là lam sao để lấy được phần "trích yếu" và quy luật đặt tên văn bản để đặt tên mới
 
Ví dụ văn bản này em mới lấy trên net:

Download file về thì có tên là 183-TTg.pdf (https://www.mic.gov.vn/Upload/Store//VanBan/7016/183-TTg-QHQT.pdf)

Em muốn đổi tên file thành: “183-TTg-QHQT Du an vien thong-cong nghe thong tin dau tu tai Lao.pdf” để dễ tìm kiếm về sau. Như vậy phải có 2 bước: (i) đổi ký tự “/” thành “-”!; (ii) Bỏ toàn bộ dấu, chuyển unicode.

Đây chỉ là 1 ví dụ cụ thể thôi. Nhiều khi ở phần “v/v… ” còn có các ký tự đặc biệt khác: < > ?... Và nhu cầu của em là đổi một loạt nhiều file khác nhau (dữ liệu của em hiện có khoảng hơn 10.000 file).

Phần đổi unicode nếu các bác có hàm, VBA thì giúp em luôn, không thì em làm thủ công ở unikey cũng được.

Thanks all!
Bạn làm sao lấy được kí tự từ các file PDF đó ra vậy, lấy được ký tự ra thì quá dễ rồi
 
Web KT
Back
Top Bottom