[文件操作] 批处理如何实现ANSI编码转化为UTF-8无BOM编码？

alpha

我有一个记事本文件，现在的编码是ASCII的，运用什么命令，能够使其转化为UTF-8无BOM的编码？

如果实在不行的话，可以借助第三方的命令型工具。

请不要说Notpad手动转换为UTF-8无BOM的编码！

我需要的是命令行！

hanyeguxing

http://www.cn-dos.net/forum/view ... =%E7%BC%96%E7%A0%81

alpha

有没有cmd的语句？我要使用cmd批处理完成。

alpha

大家来帮帮忙啊！看看谁会

Batcher

为什么不能用VBS呢？

alpha

用VBS如何实现？？

powerbat

什么是VBS？汗。。。
2楼的链接你看了吗？

alpha

可是不能转化为无BOM的UTF-8啊！而且还需要手动拖拽

SunTB

@echo off
set "file=D:\test.txt"
powershell ^
    $txt = gc -LiteralPath '%file%';^
    $Utf8NoBomEncoding = New-Object System.Text.UTF8Encoding $False;^
    [System.IO.File]::WriteAllLines('%file%', $txt, $Utf8NoBomEncoding);
pause
复制代码

Batcher

以前有位朋友说他的用一个软件生成了一些无BOM的UTF8文件，不知道用的啥软件。
http://bbs.bathome.net/thread-8299-1-1.html

zqz0012005

VBS完全能够搞定啊，干吗还要麻烦别的软件？
把编码格式转换函数稍微改进一下即可。（这个函数如果你们没见过，那可能是我以前自己写的）

Const adTypeBinary = 1
Const adTypeText = 2
Const adSaveCreateOverWrite = 2

ConvCharSet "C:\boot.ini", "gbk", "utf-8"

Function ConvCharSet(sFileName, srcCharSet, dstCharSet)
    Dim ADOStrm
    Dim text
    Dim binData
    Set ADOStrm = CreateObject("ADODB.Stream")

    ADOStrm.CharSet = srcCharSet
    ADOStrm.Type = adTypeText
    ADOStrm.Open
    ADOStrm.LoadFromFile sFileName
    text = ADOStrm.ReadText(-1)

    ADOStrm.Position = 0
    ADOStrm.CharSet = dstCharSet
    ADOStrm.WriteText text
    ADOStrm.SetEOS

  if 1 then
    ADOStrm.Position = 0
    ADOStrm.Type = adTypeBinary
    ADOStrm.Position = 3
    binData = ADOStrm.Read(-1)

    ADOStrm.Position = 0
    ADOStrm.Write binData
    ADOStrm.SetEOS
  end if

    ADOStrm.SaveToFile sFileName & "_" & dstCharSet, adSaveCreateOverWrite
    ADOStrm.Close
    Set ADOStrm = Nothing
ConvCharSet = text
End Function
复制代码

powerbat

伟大的VBS又立功了！不要给其他软件任何机会！