[数值计算] 批处理怎样在一个文本16进制字符转换成10进制字符？

option explicit
dim fso,m,n,i,a,b,c,stra,strb
set fso=createobject("scripting.filesystemobject")
set m=fso.opentextfile("a.txt",1)
set c=fso.createtextfile("1.txt",2,1)
while m.atendofstream <> true
     n=m.readline
     i=1
     while i<len(n)
     a=mid(n,i,2)
     stra=stra&a&"|"
     b="&H"&a
     strb=strb&cint(b)&","
     i=i+2
     wend
     c.writeline stra
     c.writeline strb
     stra=""
     strb=""
wend
set fso=nothing 
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (A.txt) do (
    set str=%%i
    set Ln=&set "Sn=!str!"
    for %%j in (4096 2048 1024 512 256 128 64 32 16)do if "!Sn:~%%j!" NEQ "" set/aLn+=%%j&set Sn=!Sn:~%%j!
    set Sn=!Sn!FEDCBA9876543210&set/aLn+=0x!Sn:~16,1!
    for /l %%j in (0 2 !Ln!) do (
        set /a "D=0x!str:~%%j,2!"
        set var=!var!!D!
    )
    echo !var!&set "var="
)
pause
复制代码