[数值计算] [已解决]批处理怎样把文件大小如1K、2M转换成字节？

On Error Resume Next
Dim strInput,strOutput,sngNum,strRes,strLast
Do
  strInput=InputBox("请输入:")
  strLast=Right(Trim(strInput),1)
  sngNum=Left(Trim(strInput),Len(strInput)-1)
  Select Case LCase(strLast)
    Case "k"
      strOutput=sngNum*1024
    Case "m"
      strOutput=sngNum*1024*1024
    Case "g"
      strOutput=sngNum*1024*1024*1024
    Case "t"
      strOutput=sngNum*1024*1024*1024*1024
  End Select
  strRes=MsgBox("结果为: "&strOutput&" 字节"&vbCrLf &_
    vbCrLf & "继续？",vbYesNo+vbInformation,"提示")
Loop Until strRes=vbNo
复制代码

@echo off
set size=1024M
set K=%size:M=*1024K%
set /a B=%K:K=*1024%
echo %B%
pause
复制代码

@echo off
set size=909T
set G=%size:T=*1024G%
set M=%G:G=*1024M%
set K=%M:M=*1024K%
set B=%K:K=*1024%
mshta vbscript:msgbox("%size%="^&eval("%B%")^&"字节")(window.close)
pause
复制代码

@echo off
set size=909T
set G=%size:T=*1024G%
set M=%G:G=*1024M%
set K=%M:M=*1024K%
set B=%K:K=*1024%
%1 mshta vbscript:createobject("wscript.shell").run("%~s0 ::"^&"%size%="^&eval("%B%")^&"字节")(window.close)&&exit 
echo;%2
pause
复制代码

set K=%size:M=*1024K%
set /a B=%size:K=*1024%
复制代码

@echo off
set size=909T
set G=%size:T=*1024G%
set M=%G:G=*1024M%
set K=%M:M=*1024K%
set B=%K:K=*1024%
mshta vbscript:createobject("wscript.shell").run("xxxx.exe -b "^&"%size%="^&eval("%B%")^&"字节")(window.close)
复制代码

 
'//保存我为1.vbs
On Error Resume Next
Dim objArgs,strInput,strOutput,sngNum,strRes,strLast
Set objArgs=WScript.Arguments
If objArgs.Count=0 Then WScript.Quit
  strInput=objArgs.Item(0)
  strLast=Right(Trim(strInput),1)
  sngNum=Left(Trim(strInput),Len(strInput)-1)
  Select Case LCase(strLast)
    Case "k"
      strOutput=sngNum*1024
    Case "m"
      strOutput=sngNum*1024*1024
    Case "g"
      strOutput=sngNum*1024*1024*1024
    Case "t"
      strOutput=sngNum*1024*1024*1024*1024
  End Select
WScript.Echo strInput&" = "&strOutput&" 字节"
复制代码

cscript /nologo 1.vbs 一个参数如1M
复制代码

@echo off
for /f "delims=" %%i in ('more +7 "%~f0"') do (
  cscript /nologo 1.vbs %%i
)
pause&exit

1m
4k
76g
456k
8567m
45g
复制代码

@echo off
call:s 1234t
echo %size%
pause&exit
:s
setlocal enableDelayedExpansion
set p=%1&set q=%1&set p1=!p:~0,-1!&set p2=!p:~-1!
if /i %p2%==k set/a q=p1*1024
if /i %p2%==m set/a q=p1*1048576
if /i %p2%==g set n=1073741824&call:e
if /i %p2%==t set n=1099511627776&call:e
endlocal&set size=%q%&goto:eof
:e
set q=&set/a q1=p1*%n:~0,-6%,q2=p1*%n:~-6%
set q1=0000000000%q1%000000&set q1=!q1:~-16!
set q2=0000000000%q2%&set q2=!q2:~-16!
for /l %%a in (-1,-1,-16) do (
        set/a n=!q1:~%%a,1!+!q2:~%%a,1!+m,m=0&set q=!n:~-1!!q!
        if !n! geq 10 set m=1
)
for /l %%a in (1,1,10) do if !q:~0^,1!==0 (set q=!q:~1!) else goto:eof
复制代码