무아 2021-09

vbs 에서 pad 함수를 쓰면 되지않을까요?

https://www.google.com/search?q=vbscript+pad+string&client=firefox-b-d&sxsrf=AOaemvKRfz34ZbmaHBX9kFq3BgyNi-Oqnw%3A1632966154217&ei=ChZVYeHfDIeK0ASLl6vQCA&oq=vbscript+pad+string&gs_lcp=Cgxnd3Mtd2l6LXNlcnAQAxgCMgUIABDLATIFCAAQywEyBAgAEB4yBAgAEB4yBAgAEB4yBAgAEB4yBAgAEB4yBggAEAgQHjoHCAAQRxCwAzoFCAAQgAQ6CAgAEIAEEIsDOggIABDLARCLA0oECEEYAFCuCljxHGDEQ2gCcAJ4AIABfogB4gSSAQMwLjWYAQCgAQHIAQO4AQLAAQE&sclient=gws-wiz-serp

제온프로 2021-09

멋진데요..
제 컴퓨터에서 한번 돌려 볼게요...ㅎ

dateno1 2021-09

cmd로 저장후 젤 위의 :DiskStatus를 삭제하고 젤 밑에 Pause 추가하면 어떤식인지 나와요

무아 2021-09

예를 들어
스크립트 내에
FormatNumber(%3/%GB%, 2)
로 된 부분을
Right("        " & FormatNumber(%3/%GB%, 2), 10)
요런 식으로 앞에 스페이스를 적당히 넣은 다음에 Right 함수로 원하는 길이(위에선 10칸이라 했고) 만큼 잘라서 쓰면...
Right(String(10," ") & FormatNumber(%3/%GB%, 2), 10)  요렇게 했더니 뭔가 에러가 나서 잘안되네요. vbs는 안써봐서...

dateno1 2021-09

저도 vbs는 1~20년쯤에나 다루다가 아에 버려놔서 잘 기억이 안 나요

무아 2021-09

맨 아래쪽 코드를 다음과 같이 고치니 되네요.

) do (
  set "label=                  %5"
  set "size=                  %%i"
  set "used=                  %%j"
  set "free=                  %%k"
  set /a "nUsed=%%l, nFree=50-%%l"
)
echo %1    / %label:~-10% / %size:~-10% GB / %used:~-10% GB / %free:~-10% GB / %2

위쪽에 컬럼명은 알아서 맞추시면 되고..

dateno1 2021-09

컥;

실컷 코드 짜다가 지금 들어와보니 정답이 있네요 (감사합니다)

echo Letter /          Label/ Total Space /  Used Space /  Free Space / Filesystem
set "GB=1073741824"
for /f "skip=1 delims=" %%i in ('wmic logicaldisk get DeviceID^,FreeSpace^,Size^,VolumeName^,Filesystem') do (
  for /f "tokens=1-5" %%j in ("%%i") do call :Diskoutput %%j %%k %%l %%m %%n
)
:Diskoutput
if "%4"=="" (
  goto :eof
)
for /f "tokens=1-6" %%i in (
  'mshta vbscript:Execute("CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(FormatNumber(%4/%GB%, 2) & "" "" & FormatNumber((%4-%3)/%GB%, 2) & "" "" & FormatNumber(%3/%GB%, 2) & "" "" & Round((%4-%2)*50/%4)):Close"^)'
) do (
  set "size=%%i"
  set "used=%%j"
  set "free=%%k"
  set /a "nUsed=%%l, nFree=50-%%l"
)

set varLetter=%1
rem -------------------------------------------------------------------
set varLabel=%5
set PadLabel1=%varLabel:~%
call :padLabel
set varLabel=%PadLabel2:~%

set varTotalSpace=%size:~-10%
set PadTotalSpace1=%varTotalSpace:~%
call :padTotalSpace
set varTotalSpace=%PadTotalSpace2:~%

set varUsedSpace=%used:~-10%
set PadUsedSpace1=%varUsedSpace:~%
call :padUsedSpace
set varUsedSpace=%PadUsedSpace2:~%

set varFreeSpace=%free:~-10%
set PadFreeSpace1=%varFreeSpace:~%
call :padFreeSpace
set varFreeSpace=%PadFreeSpace2:~%

set varFilesystem=%2
set PadFilesystem1=%varFilesystem:~%
call :padFilesystem
set varFilesystem=%PadFilesystem2:~%

goto :EOF
rem -------------------------------------------------------------------
:padLabel
set PadLabel1=%PadLabel1:~% **********
set PadLabel1=%PadLabel1:~0,14%
for /f "tokens=1,2" %%a in ("%PadLabel1%") do set PadLabel1=%%b%%a

set PadLabel1=%PadLabel1:~%
set PadLabel1=%PadLabel1: =`%
set PadLabel2=
set /a counter=-1

:Labelnxtchar
set /a counter+=1
call :EXEC set padchar=%%PadLabel1:~%counter%,1%%%
if not defined padchar goto :eof
if [%padchar%] EQU [*] set padchar=
set PadLabel2=%PadLabel2%%padchar%
goto :Labelnxtchar
rem -------------------------------------------------------------------
:padTotalSpace
set PadTotalSpace1=%PadTotalSpace1:~% **********
set PadTotalSpace1=%PadTotalSpace1:~0,9%
for /f "tokens=1,2" %%a in ("%PadTotalSpace1%") do set TotalSpace1=%%b%%a

set PadTotalSpace1=%PadTotalSpace1:~%
set PadTotalSpace1=%PadTotalSpace1: =%
set PadTotalSpace2=
set /a counter=-1

:TotalSpacenxtchar
set /a counter+=1
call :EXEC set padchar=%%PadTotalSpace1:~%counter%,1%%%
if not defined padchar goto :eof
if [%padchar%] EQU [*] set padchar=
set PadTotalSpace2=%padchar%%PadTotalSpace2%
goto :TotalSpacenxtchar
rem -------------------------------------------------------------------
:padUsedSpace
set PadUsedSpace1=%PadUsedSpace1:~% **********
set PadUsedSpace1=%PadUsedSpace1:~0,9%
for /f "tokens=1,2" %%a in ("%PadUsedSpace1%") do set UsedSpace1=%%b%%a

set PadUsedSpace1=%PadUsedSpace1:~%
set PadUsedSpace1=%PadUsedSpace1: =%
set PadUsedSpace2=
set /a counter=-1

:UsedSpacenxtchar
set /a counter+=1
call :EXEC set padchar=%%PadUsedSpace1:~%counter%,1%%%
if not defined padchar goto :eof
if [%padchar%] EQU [*] set padchar=
set PadUsedSpace2=%padchar%%PadUsedSpace2%
goto :UsedSpacenxtchar
rem -------------------------------------------------------------------
:padFreeSpace
set PadFreeSpace1=%PadFreeSpace1:~% **********
set PadFreeSpace1=%PadFreeSpace1:~0,9%
for /f "tokens=1,2" %%a in ("%PadFreeSpace1%") do set FreeSpace1=%%b%%a

set PadFreeSpace1=%PadFreeSpace1:~%
set PadFreeSpace1=%PadFreeSpace1: =%
set PadFreeSpace2=
set /a counter=-1

:FreeSpacenxtchar
set /a counter+=1
call :EXEC set padchar=%%PadFreeSpace1:~%counter%,1%%%
if not defined padchar goto :eof
if [%padchar%] EQU [*] set padchar=
set PadFreeSpace2=%padchar%%PadFreeSpace2%
goto :FreeSpacenxtchar
rem -------------------------------------------------------------------
:padFilesystem
set padFilesystem1=%padFilesystem1:~% **********
set padFilesystem1=%padFilesystem1:~0,11%
for /f "tokens=1,2" %%a in ("%padFilesystem1%") do set padFilesystem1=%%b%%a

set padFilesystem1=%padFilesystem1:~%
set padFilesystem1=%padFilesystem1: =`%
set padFilesystem2=
set /a counter=-1

:Filesystemnxtchar
set /a counter+=1
call :EXEC set padchar=%%PadFilesystem1:~%counter%,1%%%
if not defined padchar goto :done
if [%padchar%] EQU [*] set padchar=
set PadFilesystem2=%PadFilesystem2%%padchar%
goto :Filesystemnxtchar
rem -------------------------------------------------------------------
:done
echo %varLetter%    / %PadLabel2% / %PadTotalSpace2% GB / %PadUsedSpace2% GB / %PadFreeSpace2% GB / %PadFilesystem2%

goto :EOF

:EXEC
%*
goto :EOF

이런 쓰레기 코드를 작성후 디버그 하고 있었습니다 (...) (작동은 하는데, 용량 부분이 테라단위가 되어서 너무 길면 문제되는거랑 Label이 없는경우 ~로 나오는것 고칠려고 삽질중이었음)

역시 프로그래밍은 아무리 간단한거라도 아는게 힘이군요 (코드 분량도 문제지만, 루프를 넘 많이 써서 처리 성능도 나쁨)

dateno1 2021-09

최종적으로
@echo off

echo ^|------^|---------------^|-------------^|-------------^|-------------^|----------^|
echo ^|Letter^|          Label^| Total Space ^|  Used Space ^|  Free Space ^|Filesystem^|
echo ^|------^|---------------^|-------------^|-------------^|-------------^|----------^|
set "GB=1073741824"
for /f "skip=1 delims=" %%i in ('wmic logicaldisk get DeviceID^,FreeSpace^,Size^,VolumeName^,Filesystem') do (
  for /f "tokens=1-5" %%j in ("%%i") do call :Diskoutput %%j %%k %%l %%m %%n
)
:Diskoutput
if "%4"=="" (
  goto :eof
)
for /f "tokens=1-6" %%i in (
  'mshta vbscript:Execute("CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(FormatNumber(%4/%GB%, 2) & "" "" & FormatNumber((%4-%3)/%GB%, 2) & "" "" & FormatNumber(%3/%GB%, 2) & "" "" & Round((%4-%2)*50/%4)):Close"^)'
) do (
  set "label=                  %5"
  set "size=                  %%i"
  set "used=                  %%j"
  set "free=                  %%k"
  set "FileSystem=            %2"
  set /a "nUsed=%%l, nFree=50-%%l"
)
echo ^|%1    ^|%label:~-14% ^|%size:~-9% GB ^|%used:~-9% GB ^|%free:~-9% GB ^|  %Filesystem:~-6% ^|
echo ^|------^|---------------^|-------------^|-------------^|-------------^|----------^|
이렇게 레이아웃 조절되었습니다