[网络连接] 求助批处理将多个txt文件合并为一个txt文件并转换编码为ANSI？

@echo off
set SrcFolder=C:\test\BatHome
set DstFolder=C:\test\Batcher
set ResultFile="%DstFolder%\Merge.txt"
for %%a in ("%SrcFolder%\*.txt") do (
  UTF82ANSI.vbs "%%a" "%DstFolder%\%%~nxa"
)
(for %%a in ("%DstFolder%\*.txt") do (
  type "%%a"
  echo.
))>"%ResultFile%"
start "" "%ResultFile%"
复制代码

'UTF82ANSI
aCode = "UTF-8"
bCode = "GB2312"
Set objArgs = WScript.Arguments

FileUrlSrc = objArgs(0)
FileUrlDst = objArgs(1)
Call WriteToFile(FileUrlDst, ReadFile(FileUrlSrc, aCode), bCode)

Function ReadFile(FileUrlSrc, CharSet)
    Dim Str
    Set stm = CreateObject("Adodb.Stream")
    stm.Type = 2
    stm.mode = 3
    stm.charset = CharSet
    stm.Open
    stm.loadfromfile FileUrlSrc
    Str = stm.readtext
    stm.Close
    Set stm = Nothing
    ReadFile = Str
End Function

Function WriteToFile (FileUrlDst, Str, CharSet)
    Set stm = CreateObject("Adodb.Stream")
    stm.Type = 2
    stm.mode = 3
    stm.charset = CharSet
    stm.Open
    stm.WriteText Str
    stm.SaveToFile FileUrlDst, 2
    stm.flush
    stm.Close
    Set stm = Nothing
End Function
复制代码