BAT 字符编码格式转换

chunyu.wu

于 2024-07-08 13:25:30 发布

阅读量177

点赞数 3

分类专栏： BAT 文章标签： BAT

本文链接：https://blog.csdn.net/wuchunyu002/article/details/140265946

版权

BAT 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

1. SJIS转成无BOM头UTF-8

@echo off
::Auto_UTF-8_Convert_SJIS No BOM
:::::::::::::::::::::::::::::
(echo aCode = "SJIS"
echo bCode = "UTF-8"
echo Set objArgs = WScript.Arguments
echo.
echo FileUrlSrc = objArgs^(0^)
echo FileUrlDst = objArgs^(1^)
echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)
echo.
echo Function ReadFile^(FileUrlSrc, CharSet^)
echo Dim Str
echo Set stm = CreateObject^("Adodb.Stream"^)
echo stm.Type = 2
echo stm.mode = 3
echo stm.charset = CharSet
echo stm.Open
echo stm.loadfromfile FileUrlSrc
echo Str = stm.readtext
echo stm.Close
echo Set stm = Nothing
echo ReadFile = Str
echo End Function
echo.
echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)
echo Set stm = CreateObject^("Adodb.Stream"^)
echo Set newStm = CreateObject^("Adodb.Stream"^)
echo stm.Type = 2
echo stm.mode = 3
echo stm.charset = CharSet
echo stm.Open
echo stm.WriteText Str
echo stm.Position = 3
echo newStm.Type = 1
echo newStm.Mode = 3
echo newStm.Open
echo stm.CopyTo newStm
echo stm.Flush
echo stm.Close
echo newStm.SaveToFile FileUrlDst, 2
echo newStm.flush
echo newStm.Close
echo Set stm = Nothing
echo Set newStm = Nothing
echo End Function)>U82ANI.vbs
for /r %%a in (*.sql) do (
U82ANI.vbs "%%~a" "%%~a.ansi"
move /y "%%~a.ansi" "%%~a">nul
)
del U82ANI.vbs
pause

2. SJIS转成带BOM头UTF-8

@echo off
::Auto_SJIS_Convert_UTF-8 With BOM
:::::::::::::::::::::::::::::
(echo aCode = "SJIS"
echo bCode = "UTF-8"
echo Set objArgs = WScript.Arguments
echo.
echo FileUrlSrc = objArgs^(0^)
echo FileUrlDst = objArgs^(1^)
echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)
echo.
echo Function ReadFile^(FileUrlSrc, CharSet^)
echo Dim Str
echo Set stm = CreateObject^("Adodb.Stream"^)
echo stm.Type = 2
echo stm.mode = 3
echo stm.charset = CharSet
echo stm.Open
echo stm.loadfromfile FileUrlSrc
echo Str = stm.readtext
echo stm.Close
echo Set stm = Nothing
echo ReadFile = Str
echo End Function
echo.
echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)
echo Set stm = CreateObject^("Adodb.Stream"^)
echo stm.Type = 2
echo stm.mode = 3
echo stm.charset = CharSet
echo stm.Open
echo stm.WriteText Str
echo stm.SaveToFile FileUrlDst, 2
echo stm.flush
echo stm.Close
echo Set stm = Nothing
echo End Function)>U82ANI.vbs
for /r %%a in (*.sql) do (
U82ANI.vbs "%%~a" "%%~a.ansi"
move /y "%%~a.ansi" "%%~a">nul
)
del U82ANI.vbs
pause

3. UTF-8转SJIS

@echo off
::Auto_UTF-8_Convert_SJIS
:::::::::::::::::::::::::::::
(echo aCode = "UTF-8"
echo bCode = "SJIS"
echo Set objArgs = WScript.Arguments
echo.
echo FileUrlSrc = objArgs^(0^)
echo FileUrlDst = objArgs^(1^)
echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)
echo.
echo Function ReadFile^(FileUrlSrc, CharSet^)
echo Dim Str
echo Set stm = CreateObject^("Adodb.Stream"^)
echo stm.Type = 2
echo stm.mode = 3
echo stm.charset = CharSet
echo stm.Open
echo stm.loadfromfile FileUrlSrc
echo Str = stm.readtext
echo stm.Close
echo Set stm = Nothing
echo ReadFile = Str
echo End Function
echo.
echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)
echo Set stm = CreateObject^("Adodb.Stream"^)
echo stm.Type = 2
echo stm.mode = 3
echo stm.charset = CharSet
echo stm.Open
echo stm.WriteText Str
echo stm.SaveToFile FileUrlDst, 2
echo stm.flush
echo stm.Close
echo Set stm = Nothing
echo End Function)>U82ANI.vbs
for /r %%a in (*.pkb,*.pks) do (
U82ANI.vbs "%%~a" "%%~a.ansi"
move /y "%%~a.ansi" "%%~a">nul
)
del U82ANI.vbs
pause