在 Windows XP 上使用国际字符批量重命名文件

Question

我有一大堆文件，文件名使用可爱的瑞典字母 å å 和 ö。 由于各种原因，我现在需要将它们转换为 [a-zA-Z] 范围。 只需删除该范围之外的任何内容就相当容易。 给我带来麻烦的是我想用 a 替换 å，用 o 替换 ö ，很快。

这是最糟糕的字符集问题。

我有一组测试文件：

files\Copy of New Text Documen åäö t.txt
files\fofo.txt
files\New Text Document.txt
files\worstcase åäöÅÄÖéÉ.txt

我将我的脚本基于这一行，将其结果通过管道传输到各种命令中

for %%X in (files\*.txt) do (echo %%X) 

奇怪的是，如果我将其结果（即普通的 for 循环）打印到我得到的文件中这个输出：

files\Copy of New Text Documen †„” t.txt
files\fofo.txt
files\New Text Document.txt
files\worstcase †„”Ž™‚.txt

所以在我的文件名到达其他工具之前就发生了一些奇怪的事情（我一直在尝试使用来自名为 GnuWin32 的 Windows 的 sed 端口来执行此操作，但到目前为止还没有运气）并对这些字符进行替换也没有帮助。

你会如何解决这个问题？ 我对任何类型的工具、命令行或其他工具持开放态度......

编辑：这是一个一次性问题，所以我正在寻找一种快速且丑陋的修复方法

Answer 1

我会在 C++、C# 或 Java 环境中编写此代码，在这些环境中我确信您可以正确地从路径中获取 Unicode 字符。 命令行工具总是不确定的，尤其是在 Cygwin 之外。

那么代码就是简单的查找/替换或正则表达式/替换。 如果你能命名一种语言，那么编写代码就会很容易。

Answer 2

我会编写一个 vbscript (WSH) 来扫描目录，然后将文件名发送到一个函数，该函数将文件名分解为单独的字母，然后对瑞典文件名执行 SELECT CASE 并将其替换为您想要的文件名。 或者，该函数可以不这样做，而是通过一堆 REPLACE() 函数将其删除，将输出重新分配给输入字符串。 最后，它会使用新值重命名该文件。

Answer 3

您可以使用此代码（Python）

重命名国际文件

# -*- coding: cp1252 -*-

import os, shutil

base_dir = "g:\\awk\\"    # Base Directory (includes subdirectories)
char_table_1 = "áéíóúñ"
char_table_2 = "aeioun"

adirs = os.walk (base_dir)

for adir in adirs:
    dir = adir[0] + "\\"          # Directory
    # print "\nDir : " + dir

    for file in adir[2]:    # List of files
        if os.access(dir + file, os.R_OK):
            file2 = file
            for i in range (0, len(char_table_1)):
                file2 = file2.replace (char_table_1[i], char_table_2[i])

            if file2 <> file:
                # Different, rename
                print dir + file, " => ", file2
                shutil.move (dir + file, dir + file2)

###

您必须更改编码和字符表（我使用西班牙语文件测试了此脚本并且工作正常）。 您可以注释“移动”行来检查它是否正常工作，并稍后删除注释以进行重命名。

Answer 4

如果您以 UNICODE 模式打开 cmd.exe，您可能会更幸运。 使用“cmd /U”。

其他人建议使用真正的编程语言。 没关系，特别是如果您有一种非常熟悉的语言。 我 C# 团队的朋友说 C# 3.0（使用 Linq）非常适合创建像这样的快速小程序。 他大部分时间已经停止编写批处理文件。

就我个人而言，我会选择 PowerShell。 这个问题可以在命令行上用一行代码解决。 我将

编辑：这不是一行，但也不是很多代码。 另外，StackOverflow 似乎不喜欢语法“$_.Name”，并将 _ 呈现为 _。

$mapping = @{ 
    "å" = "a"
    "ä" = "a"
    "ö" = "o"
}

Get-ChildItem -Recurse . *.txt | Foreach-Object { 
    $newname = $_.Name      
    foreach  ($l in $mapping.Keys) {
        $newname = $newname.Replace( $l, $mapping[$l] )
        $newname = $newname.Replace( $l.ToUpper(), $mapping[$l].ToUpper() )
    }
    Rename-Item -WhatIf $_.FullName $newname    # remove the -WhatIf when you're ready to do it for real.
}