Remove string tiếng Nhật

[Bee 154]

Mình có file tiếng Nhật lẫn với Tiếng anh, giờ muốn remove phần tiếng nhật. Ai có code phần này share mình với or chỉ cách remove nhanh hàng loạt file nhé.

 

Thanks.

[dinhvantrang 151]

cho cái file làm ví dụ được không bác?

 

[Bee 154]

1 giờ} trướ}c, dinhvantrang đã nói:

cho cái file làm ví dụ được không bác?

 

File thì cũng không có gì.! ^_^

 

20180220_APARTMENT TYPE 1_アパート1_Block A.dwg

[dinhvantrang 151]

Ý bác là giống như Rename file thôi đó uh?

[Bee 154]

15 phút trước, dinhvantrang đã nói:

Ý bác là giống như Rename file thôi đó uh?

Yep, nhưng do có tên khác nhau độ dài khác nhau và ko biết đọc tiếng nhật nên remove nó đi là đẹp, ^_^

[dinhvantrang 151]

Cho em hỏi, cái chữ tiếng Nhật đó nó có nằm giữa 2 cái "_" không? Nếu có thì dễ mà

[Bee 154]

Cái "_" thì có trong tên. Vấn đề là làm thế nào read and write cái unicode cho tên file để rename vậy bạn ?

[gia_bach 1.549]

16 giờ trước, Bee đã nói:

File thì cũng không có gì.! ^_^

 

20180220_APARTMENT TYPE 1_アパート1_Block A.dwg

Nghĩa là: 

20180220_APARTMENT TYPE 1_アパート1_Block A.dwg

-> 20180220_APARTMENT TYPE 1Block A.dwg

or

APARTMENT アパート.dwg

-> APARTMENT.dwg

or

20180220_APARTMENT 数量.dwg

-> 20180220_APARTMENT.dwg

 

[Bee 154]

Hi Gia_bach,

 

Nghĩa là: 

20180220_APARTMENT TYPE 1_アパート1_Block A.dwg

-> 20180220_APARTMENT TYPE 1_Block A.dwg

-> date_name E1_name E2.dwg

[quocmanh04tt 635]

Tạm thế này rồi có thể dựa vào đó nghiên cứu tiếp:

(vl-list->string (vl-remove 63 (vl-string->list (car (vl-directory-files "C:\\TEMP" "*.dwg" 1)))))

[dinhvantrang 151]

1 giờ trước, Bee đã nói:

Hi Gia_bach,

 

Nghĩa là: 

20180220_APARTMENT TYPE 1_アパート1_Block A.dwg

-> 20180220_APARTMENT TYPE 1_Block A.dwg

-> date_name E1_name E2.dwg

okie bạn, để mình code thử

[Bee 154]

3 giờ trước, quocmanh04tt đã nói:

Tạm thế này rồi có thể dựa vào đó nghiên cứu tiếp:

(vl-list->string (vl-remove 63 (vl-string->list (car (vl-directory-files "C:\\TEMP" "*.dwg" 1)))))

Quả này em thử roài.! Nhưng mà lúc rename ko được: 

("20180220_APARTMENT TYPE 1_????1_Block A.dwg")

 

????? thế sao rename được. ^_^

 

 

[Bee 154]

3 giờ trước, dinhvantrang đã nói:

okie bạn, để mình code thử

Thanks. ^_^

[dinhvantrang 151]

Gửi mr Bee kiểm tra thử nhé.Mình viết bằng vbscripting

Cách chạy:

Giải  nén và bỏ file giải nén đó vào trong Folder chứa các file cần Rename >>Run.

MrBee.rar

[Bee 154]

Ok chạy vậy là ngon roài.! Thank nhé. ^_^ 

[quocmanh04tt 635]

Thử chạy bằng LISP coi sao!

((lambda (/ name new_filename)
   (defun new_filename  (filename / LM:str->lst lst)
     (defun LM:str->lst  (str del / pos)
       (if (setq pos (vl-string-search del str))
         (cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
         (list str)))
     (setq lst (vl-remove-if '(lambda (x) (vl-string-search (chr 63) x))
                             (LM:str->lst filename (chr 95))))
     (strcat (car lst) (apply 'strcat (mapcar '(lambda (x) (strcat (chr 95) x)) (cdr lst)))))
   (vlax-for f  (vlax-get (vlax-invoke-method
                            (vlax-create-object "Scripting.FilesystemObject")
                            'GetFolder
                            "D:\\TEMP")
                          'Files)
     (if (and (vl-string-search (chr 63) (setq name (vlax-get f 'name)))
              (eq (strcase (vl-filename-extension name)) ".DWG"))
       (vlax-put f 'name (new_filename name))))))

P/s:

+ Nếu thêm Browse Folder thì "Pờ - rồ" hơn, nhằm thay thế  "D:\\TEMP".

+ Chưa bắt, bẫy lỗi trùng tên file sau khi rename...

[Bee 154]

32 phút trước, quocmanh04tt đã nói:

Thử chạy bằng LISP coi sao!

((lambda (/ name new_filename)
   (defun new_filename  (filename / LM:str->lst lst)
     (defun LM:str->lst  (str del / pos)
       (if (setq pos (vl-string-search del str))
         (cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
         (list str)))
     (setq lst (vl-remove-if '(lambda (x) (vl-string-search (chr 63) x))
                             (LM:str->lst filename (chr 95))))
     (strcat (car lst) (apply 'strcat (mapcar '(lambda (x) (strcat (chr 95) x)) (cdr lst)))))
   (vlax-for f  (vlax-get (vlax-invoke-method
                            (vlax-create-object "Scripting.FilesystemObject")
                            'GetFolder
                            "D:\\TEMP")
                          'Files)
     (if (and (vl-string-search (chr 63) (setq name (vlax-get f 'name)))
              (eq (strcase (vl-filename-extension name)) ".DWG"))
       (vlax-put f 'name (new_filename name))))))

P/s:

+ Nếu thêm Browse Folder thì "Pờ - rồ" hơn, nhằm thay thế  "D:\\TEMP".

+ Chưa bắt, bẫy lỗi trùng tên file sau khi rename...

Ok thanks Mr quocmanh. Để em chạy thử.

Browse Folder thì dùng thằng này cũng nhanh gọn: (acet-ui-pickdir "Select Directory")) 

[Bee 154]

19 giờ trước, dinhvantrang đã nói:

Gửi mr Bee kiểm tra thử nhé.Mình viết bằng vbscripting

Cách chạy:

Giải  nén và bỏ file giải nén đó vào trong Folder chứa các file cần Rename >>Run.

MrBee.rar

Mr Trang cho hỏi mở rộng hơn tí. ^_^

 

Trường hợp mà ko có "_" mà chỉ space (thường có trong các file có tiếng việt) thì code VBS thế nào ?

 

[dinhvantrang 151]

17 phút trước, Bee đã nói:

Mr Trang cho hỏi mở rộng hơn tí. ^_^

 

Trường hợp mà ko có "_" mà chỉ space (thường có trong các file có tiếng việt) thì code VBS thế nào ?

 

 

Hi Bee. bạn mở bằng Notepad và thay thế cái như hình dưới nhé.

Chú ý: Do các file của bạn mình đoán là cái chữ Tiếng Nhật nó nằm ở Vị trí Thứ 3 (tương ứng với IntCount = 2), còn nếu nằm sai vị trí thì e rằng nó chạy không đúng.

 

 

[Bee 154]

7 phút trước, dinhvantrang đã nói:

 

Hi Bee. bạn mở bằng Notepad và thay thế cái như hình dưới nhé.

Chú ý: Do các file của bạn mình đoán là cái chữ Tiếng Nhật nó nằm ở Vị trí Thứ 3 (tương ứng với IntCount = 2), còn nếu nằm sai vị trí thì e rằng nó chạy không đúng.

 

 

Hì Ok. Thế trường hợp thay file thành Folder thì thế nào vậy Mr Trang.?

[dinhvantrang 151]

Vừa xong, Bee đã nói:

Hì Ok. Thế trường hợp thay file thành Folder thì thế nào vậy Mr Trang.?

 

ý bạn là Rename Folder uh?

Nếu thế thì sẽ thế này:

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Dim objFolder,objSubFolder
Dim strFolderPath
strFolderPath  = Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))

Set objFolder =fso.GetFolder(strFolderPath)
Dim strNewName
Dim varList,intCount
If objFolder.SubFolders.Count>0 Then
	For Each objSubFolder In objFolder.SubFolders
		strNewName=vbNullString
		
			strOldName = objSubFolder.Name
			
			varList= Split(strOldName,"_")
			
			For intCount= 0 To UBound(varList)
				
				If strNewName=vbNullString Then
					strNewName = varList(intCount)
				Else
					If intCount <> 2 Then
						strNewName = strNewName & "_" & varList(intCount)
					End If
				End If
				
			Next
			
			objSubFolder.Name = strNewName
	
	Next
	
	MsgBox "Done",vbInformation,"TrangMeo_0986370918"
End If

 

[Bee 154]

14 phút trước, dinhvantrang đã nói:

 

ý bạn là Rename Folder uh?

Nếu thế thì sẽ thế này:

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Dim objFolder,objSubFolder
Dim strFolderPath
strFolderPath  = Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))

Set objFolder =fso.GetFolder(strFolderPath)
Dim strNewName
Dim varList,intCount
If objFolder.SubFolders.Count>0 Then
	For Each objSubFolder In objFolder.SubFolders
		strNewName=vbNullString
		
			strOldName = objSubFolder.Name
			
			varList= Split(strOldName,"_")
			
			For intCount= 0 To UBound(varList)
				
				If strNewName=vbNullString Then
					strNewName = varList(intCount)
				Else
					If intCount <> 2 Then
						strNewName = strNewName & "_" & varList(intCount)
					End If
				End If
				
			Next
			
			objSubFolder.Name = strNewName
	
	Next
	
	MsgBox "Done",vbInformation,"TrangMeo_0986370918"
End If

 

OK bạn.

Có funtion nào check in ParentFolder mà các SubFolder trong SubFolder không bạn.? Nghĩa là không cần biết folder trong folder mà cứ check all hết trong đó cả file và folder có thì nó xử lý hết, Chỉ cần browse folder ngoài cũng thôi.

[dinhvantrang 151]

10 phút trước, Bee đã nói:

OK bạn.

Có funtion nào check in ParentFolder mà các SubFolder trong SubFolder không bạn.? Nghĩa là không cần biết folder trong folder mà cứ check all hết trong đó cả file và folder có thì nó xử lý hết, Chỉ cần browse folder ngoài cũng thôi.

 

Chắc được. :D

[gia_bach 1.549]

Thử cái này nhé (y/cầu NetFramework 3.5).

- hiển thị các file có kí tự tàu, nhật, hàn (ảrập ...) trong folder đã chọn.

- click Remove : copy các file có kí tự lạ ở bước trên và đổi thành tên mới (sau khi đã remove các kí tự lạ đó, file gốc giữ nguyên)

RemoveJapanese.zip

[Bee 154]

5 giờ trước, gia_bach đã nói:

Thử cái này nhé (y/cầu NetFramework 3.5).

- hiển thị các file có kí tự tàu, nhật, hàn (ảrập ...) trong folder đã chọn.

- click Remove : copy các file có kí tự lạ ở bước trên và đổi thành tên mới (sau khi đã remove các kí tự lạ đó, file gốc giữ nguyên)

RemoveJapanese.zip

Ý tưởng tool này ngon quá, like bác gia_bạch đã ^_^

Phát triển hoàn thiện thêm thì thành tool sài các chức năng khác liên quan thì ngon quá.

 

Nhưng sao em chạy nó báokhông thấy cái folder name ở đâu nhỉ ? Bác đặt cái folder đấy ở đâu vậy :)