[文本处理] 求助批处理字符串(UTF-8)转换成十六进制(HEX), 找到一个vbs可以转换

akari

以下代码是我找到的一个 ascii 到 hex 的批处理, 但无法处理中文字符串.

set strLN=
set str=string
>str set /p=%str%<nul
for /f "tokens=3,*" %%i in ('dir str ^| findstr 个文件') do (
	set /a "nLen=%%i"
)
set "strCmp="
for /l %%i in (1 1 %nLen%) do (
	call set "strCmp=%%strCmp%%%%strLN%%"
)
>$ set /p=%strCmp%<nul
set "strASC="
for /f "skip=1 tokens=2 delims=: " %%i in ('fc /b str $') do (
	call set "strASC=%%strASC%%%%i "
)
echo %strASC%
pause
复制代码

或者是调用第三方程序处理后再设置为变量的方法也可以.

akari

找到一个vbs, 可以将中文转换成hex

str="中文"
Set ado=CreateObject("ADODB.Stream")
Set xmldom=CreateObject("msxml2.domdocument")
ado.Type=2
ado.Charset="GB2312"
ado.Open
ado.WriteText str
ado.Position=0
ado.Type=1
Set pic=xmldom.createElement("pic")
pic.dataType="bin.hex"
pic.nodeTypedValue=ado.Read(-1)
WScript.Echo UCase(pic.text)
ado.Close
复制代码

能不能用批处理设置一个变量让该vbs读取后再输出为批处理中的变量

akari

回复 4# aloha20200628


    感谢你的帮助, 但我还有一些疑惑.
    中文字符串 转换成16进制完整的应该是 D6 D0 CE C4 D7 D6 B7 FB B4 AE
    但是你这个批处理为什么只显示了绿色的部分?

    看了一下fc.exe的参数说明,又搜索了一下,UNICODE字符集,是这个问题吧

akari

总算是找到解决办法了. 调用powershell可以实现, 以下是

@echo off
setlocal enabledelayedexpansion
set "text=中文"

for /f "delims=" %%a in (
    'powershell -ExecutionPolicy Bypass -Command "$bytes=[System.Text.Encoding]::UTF8.GetBytes('%text%'); $hexStr=[System.BitConverter]::ToString($bytes); $hexStr.Replace('-', ' ')"'
) do (
    set "hex=%%a"
)

echo HEX: !hex!
endlocal
pause
复制代码

akari

回复 8# aloha20200628


    转换出来依旧不是 UTF-8 HEX, "中文" 转换 UTF-8 HEX 为 E4 B8 AD E6 96 87, 而不是 D6 D0 CE C4.
    能改改转换成UTF-8 HEX 么?

@echo off
chcp 65001 >nul
setlocal enabledelayedexpansion
set "str=中文"
call :text2hex
exit /b

:text2hex
rem 将 str 的值赋给 sc
set "sc=!str!"
rem 使用 `set /p` 避免换行符
<nul set /p=!sc! >$.1
rem 计算文件大小
for %%l in ($.1) do fsutil file createnew "$.0" %%~zl >nul 2>nul
set "sx="
rem 以二进制方式读取并转换为 HEX
for /f "skip=1 tokens=2 delims=: " %%a in ('fc /b $.1 $.0') do (
    call set "sx=%%sx%% %%a"
)
del /q "$.?" >nul 2>nul
echo HEX: %sx%
pause
复制代码

改成这样ok了.

akari

回复 10# aloha20200628


    没办法最终还是改成这个了

powershell -Command "[System.IO.File]::WriteAllBytes('$.1', [System.Text.Encoding]::UTF8.GetBytes('%str%'))"
复制代码