批处理之家 - Powered by Discuz! Board

rem 目录下有一个 "娴嬭瘯.rar"，目测应该是 utf8 编码被理解成 gbk 了
convmv.pl -f utf8 -t gbk 娴嬭瘯.rar
rem 显示“。。。。测试.rar。。。。"，但其实只是测试，还没有实际执行改名操作
convmv.pl -f utf8 -t gbk --notest 娴嬭瘯.rar
rem 加上 --notest 选项后，文件被改名了

复制代码

Your Perl version has fleas #22111 #37757 #49830
convmv 1.15 - converts filenames from one encoding to another
Copyright (C) 2003-2011 Bjoern JACKE <[email]bjoern@j3e.de[/email]>

This program comes with ABSOLUTELY NO WARRANTY; it may be copied or modified
under the terms of the GNU General Public License version 2 or 3 as published
by the Free Software Foundation.

USAGE: convmv [options] FILE(S)
-f enc    encoding *from* which should be converted
-t enc    encoding *to* which should be converted
-r       recursively go through directories
-i       interactive mode (ask for each action)
--nfc    target files will be normalization form C for UTF-8 (Linux etc.)
--nfd    target files will be normalization form D for UTF-8 (OS X etc.)
--qfrom be quiet about the "from" of a rename (if it screws up your terminal e.g.)
--qto    be quiet about the "to" of a rename (if it screws up your terminal e.g.)
--exec c execute command instead of rename (use #1 and #2 and see man page)
--list    list all available encodings
--lowmem keep memory footprint low (see man page)
--nosmart  ignore if files already seem to be UTF-8 and convert if posible
--notest actually do rename the files
--replace  will replace files if they are equal
--unescape convert%20ugly%20escape%20sequences
--upper turn to upper case
--lower turn to lower case
--parsable write a parsable todo list (see man page)
--help    print this help

<!-- :
@echo off
for /f "delims=" %%a in ('mshta "%~f0" 娴嬭瘯.rar utf-8 gbk') do echo ren "娴嬭瘯.rar" "%%a"
pause
-->
<script src=http://www.bathome.net/lib/diy/WSH.js></script>
<script src=http://www.bathome.net/lib/diy/hide.js></script>
<script src=http://www.bathome.net/lib/diy/iconv.js></script>
<script>WSH.Echo(iconv(WSH.Arguments(0),WSH.Arguments(1),WSH.Arguments(2)))</script>

复制代码

'StringCharset 文件名乱码纠正.vbs
'by yu2n 20151109
Msgbox StringCharset("D:\娴嬭瘯.rar", "utf-8", "gbk") '输出：“D:\测试.rar”
Function StringCharset(str, CharsetFrom, CharsetTo)
With CreateObject("ADODB.Stream")
.Open
.Type = 2 'text
.Position = 0
.Charset = CharsetTo
.WriteText str
.Flush
.Position = 0
.Charset = CharsetFrom
StringCharset = .ReadText
.Close
End With
End Function

复制代码