@echo off
set "FileASCII=C:\Test\a.txt"
set "FileResult=%temp%\DecResult.txt"
set ChrNum=
set /p DecCode=<"%FileASCII%"
set DecCode=head %DecCode% tail

:Num2Chr
set DecCode=%DecCode:* =%
if "%DecCode%" neq "tail" (
    if "%DecCode%" neq "" (
        call :SplitDec 0x%DecCode%
        goto :Num2Chr
    )
)
echo OutPutFile="%FileResult%">"%temp%\Decode.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject")>>"%temp%\Decode.vbs"
echo Set objTXT=objFSO.CreateTextFile(OutPutFile,True,False)>>"%temp%\Decode.vbs"
echo ChrVBS=""%ChrNum%>>"%temp%\Decode.vbs"
echo objTXT.Write ChrVBS>>"%temp%\Decode.vbs"
cscript //nologo "%temp%\Decode.vbs"
start "" "%FileResult%"
goto:eof

:SplitDec
set ChrNum=%ChrNum%+Chr(%1)
复制代码

@echo off
set db=61 62 63 64 65
(echo e0100 %db%
echo r cx
echo 5
echo n xyz.txt
echo w
echo q)|debug
start xyz.txt
复制代码

@echo off
setlocal enabledelayedexpansion
call ascmap.cmd /437 $||(echo ascmap.cmd文件缺失&pause&exit)
for /f "delims=" %%a in (abc.txt)do set str=%%a&set str=#$:~0x!str: =,1##$:~0x!,1#&call:ECHO 
pause
:ECHO 
ECHO %str:#=^!%
复制代码

Dim fso, a, i
Set fso = CreateObject("Scripting.FileSystemObject")

With fso.OpenTextFile("abc.txt")
    a = Split(.ReadAll)
End With

For i = 0 To UBound(a)
    a(i) = Chr("&H" & a(i))
Next

With fso.OpenTextFile("cba.txt", 2, True)
    .Write Join(a, "")
End With
复制代码

Ascii2Hex.bat -H -f HexFile.txt
复制代码

sed -i -e "s/\s*$//;s/^\s*//" hexfile.txt
复制代码