[代码合集] BAT调用rar解压及里面txt文本处理连同运行为何出错？

@echo off
:install
cls

for /f "delims=" %%I in ('dir /b/s/on *.rar') do (
  "%RarPath%" x -y -ibck "%%I" *.txt "%%~nI\PAKS\"
  "%RarPath%" x -y -ibck "%%I" *.man "%%~nI\PAKS\"
  "%RarPath%" x -y -ibck "%%I" *.pak "%%~nI\PAKS\"
  "%RarPath%" x -y -ibck "%%I" *.bin "%%~nI\PAKS\"
  pushd "%%~nI\PAKS\"

  If exist "ALI213.txt" (
    call :MakeVBS
    (for /f "skip=60 delims=" %%a in (ALI213.txt.ansi.txt) do (
      echo;%%a
    ))>$
    del /q "ALI213.txt" "ALI213.txt.ansi.txt"
  )
  for /f "delims=" %%a in ('dir /b/s/on *.txt') do (
    (echo;&echo;)>>$
    (for /f "usebackq delims=" %%b in ("%%a") do (
      echo;%%b
    ))>>$
    del /q "%%a"
  )
  move $ "%%~nI_说明.txt"
  popd
)
pause
rem goto Menu

:MakeVBS
>"utf8ansi.vbs"  (
echo.set fso = CreateObject^("Scripting.FileSystemObject"^)  
echo.'U8ToU8Bom "ALI213.txt" '如果要生成一个有BOM的文件，启用此行 
echo. U8ToAnsi "ALI213.txt"
echo.function U8ToU8Bom^(strFile^) 
echo.dim ADOStrm 
echo.Set ADOStrm = CreateObject^("ADODB.Stream"^) 
echo.ADOStrm.Type = 2 
echo.ADOStrm.Mode = 3 
echo.ADOStrm.CharSet = "utf-8" 
echo.ADOStrm.Open 
echo.ADOStrm.LoadFromFile strFile 
echo.ADOStrm.SaveToFile strFile ^& ^".u8.txt^", 2 
echo.ADOStrm.Close 
echo.Set ADOStrm = Nothing 
echo.end function 
echo.function U8ToAnsi^(strFile^) 
echo.dim ADOStrm 
echo.dim s 
echo.Set ADOStrm = CreateObject^("ADODB.Stream"^) 
echo.ADOStrm.Type = 2 
echo.ADOStrm.Mode = 3 
echo.ADOStrm.CharSet = "utf-8" 
echo.ADOStrm.Open 
echo.ADOStrm.LoadFromFile strFile 
echo.s = ADOStrm.ReadText 
echo.ADOStrm.Position = 0 
echo.ADOStrm.CharSet = "gbk" 
echo.ADOStrm.WriteText s 
echo.ADOStrm.SetEOS 
echo.ADOStrm.SaveToFile strFile ^& ^".ansi.txt^", 2 
echo.ADOStrm.Close 
echo.Set ADOStrm = Nothing 
echo.end function
)
cscript /NoLogo "utf8ansi.vbs"&del /q "utf8ansi.vbs"
复制代码

@echo off
set "RarPath=C:\Program Files\WinRAR\WinRAR.exe"
:install
for /f "delims="  %%I in ('dir /b/s/on "%~dp0*.rar"') do (
    del "%tmp%\ALI213*.txt" >nul 2>nul
    "%RarPath%" x -y -ibck "%%I" *.txt *.man  *.pak *.bin "%%~dpnI\PAKS\"
    PUSHD "%%~dpnI\PAKS\"
    If exist "ALI213.txt" (
       rem 这里的+20自己去调整
       more /s +20 "%~s0" > "U82A.vbs"
       U82A.vbs "ALI213.txt" "ALI213.txt.ansi.t"&del U82A.vbs
       >"%%~nI_说明.txt.ansi.t" more +60 "ALI213.txt.ansi.t"
       del "ALI213.txt" "ALI213.txt.ansi.t"
    )
       type *.txt >>"%%~nI_说明.txt.ansi.t" 2>nul
       move "%%~nI_说明.txt.ansi.t" "%%~nI_说明.txt"
       popd
 )
PAUSE&goto :eof





Set objArgs = WScript.Arguments
FUS = objArgs(0)
FUD = objArgs(1)
Call WriteToFile(FUD, ReadFile(FUS, "UTF-8"), "gbk")

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

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