将文件另存为 unicode 的脚本

Question

您知道我可以通过编程方式或脚本将一组以 ansi 字符编码保存的文本文件转换为 unicode 编码吗？

我想像我用记事本打开文件并选择将其另存为 unicode 文件时所做的那样。

Answer 1

这可能对您有用，但请注意，它会抓取当前文件夹中的每个文件：

Get-ChildItem | Foreach-Object { $c = (Get-Content $_); `
Set-Content -Encoding UTF8 $c -Path ($_.name + "u") }

为简洁起见，使用别名也是如此：

gci | %{ $c = (gc $_); sc -Encoding UTF8 $c -Path ($_.name + "u") }

Steven Murawski 建议使用 Out-File 代替。 这两个 cmdlet 之间的差异如下：

• Out-File 将尝试格式化它接收到的输入。
• Out-File 的默认编码是基于 Unicode 的，而 Set-Content 使用系统的默认编码。

下面是一个假设文件 test.txt 在这两种情况下都不存在的示例：

PS> [system.string] | Out-File test.txt
PS> Get-Content test.txt

IsPublic IsSerial Name                                     BaseType          
-------- -------- ----                                     --------          
True     True     String                                   System.Object     

# test.txt encoding is Unicode-based with BOM

PS> [system.string] | Set-Content test.txt
PS> Get-Content test.txt

System.String

# test.txt encoding is "ANSI" (Windows character set)

事实上，如果您不需要任何特定的 Unicode 编码，您也可以执行以下操作来转换文本文件到 Unicode：

PS> Get-Content sourceASCII.txt > targetUnicode.txt

Out-File 是一种“带有可选参数的重定向运算符”。

Answer 2

最简单的方法是 Get-Content 'path/to/text/file' | 输出文件“名称/文件/文件”。

Out-File 有一个 -encoding 参数，默认值为统一码。

如果你想编写一批脚本，你可以这样做

$files = get-childitem 'directory/of/text/files' 
foreach ($file in $files) 
{
  get-content $file | out-file $file.fullname
}

Answer 3

将 System.IO.StreamReader（读取文件内容）类与 System.Text.Encoding.Encoding（创建执行编码的 Encoder 对象）基类一起使用。

Answer 4

您可以创建一个新的文本文件，并将原始文件中的字节写入新文件，并在每个原始字节之前放置“\0”（假设原始文本文件是英文的）。

Answer 5

您可以使用 iconv。 在 Windows 上，您可以在 Cygwin 下使用它。

iconv -f from_encoding -t to_encoding file

Answer 6

伪代码...

Dim 系统、文件、内容、newFile、oldFile

Const ForReading = 1、ForWriting = 2、ForAppending = 3
Const AnsiFile = -2, UnicodeFile = -1

设置系统 = CreateObject("Scripting.FileSystemObject...

设置文件 = system.GetFile("text1.txt")

设置oldFile = file.OpenAsTextStream(ForReading, AnsiFile)

内容 = oldFile. ReadAll()

oldFile.Close

system.CreateTextFile "text1.txt"

Set file = system.GetFile("text1.txt")

Set newFile = file.OpenAsTextStream(ForWriting, UnicodeFile)

newFile.Write 内容

newFile.Close

希望这种方法能够工作..