[其他] 求一个自动批量把txt从unicode转成ASCII的工具

posted by wap, platform: iOS

授人与渔
windows 自带脚本宿主


DOS下文本编码批量转换代码

摘自：黑客笔记
TXT编码批量转换代码
VBS: 红色处替换成编码格式 gb2312 UTF-8 Unicode
Set objArgs = WScript.Arguments
        For I = 0 To objArgs.Count - 1
            FileUrl = objArgs(I)
            Call WriteToFile(FileUrl, ReadFile(FileUrl, "gb2312", "Unicode"
        Next
Function ReadFile(FileUrl, CharSet)
    Dim Str
    Set stm = CreateObject("Adodb.Stream"
    stm.Type = 2
    stm.mode = 3
    stm.charset = CharSet
    stm.Open
    stm.loadfromfile FileUrl
    Str = stm.readtext
    stm.Close
    Set stm = Nothing
    ReadFile = Str
End Function
Function WriteToFile (FileUrl, Str, CharSet)
    Set stm = CreateObject("Adodb.Stream"
    stm.Type = 2
    stm.mode = 3
    stm.charset = CharSet
    stm.Open
    stm.WriteText Str
    stm.SaveToFile FileUrl, 2
    stm.flush
    stm.Close
    Set stm = Nothing
End Function
CMD：
@echo off
for /f "delims=" %%a in ('dir /s /b /a-d D:\test\*.txt') do hacknote.vbs "%%a"
pause