管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

Linuxでディスク使用量の多いフォルダ、ファイルを探す

定期的に調べるので記録

確認環境

[root@localhost hoge]# cat /etc/redhat-release 
CentOS Linux release 7.9.2009 (Core)

コマンド

# du -ah → 結果にファイルを含める、サイズをKやGで表示
# sort -hr → サイズをKやGで比較、降順ソート
[root@localhost hoge]# du -ah | sort -hr

実行例

# 件数が多いので上位20件で絞り込み
[root@localhost hoge]# du -ah | sort -hr | head -20
1.6G    .
1.1G    ./.vscode-server
874M    ./.vscode-server/bin
289M    ./postgres
288M    ./postgres/9.6/postgres-with-data.tar
288M    ./postgres/9.6
191M    ./.vscode-server/extensions

参考にしました

zenn.dev

DOSバッチの個人的テンプレート

たまーにDOSバッチを作成することがあるんですが、いつもググってしまうので、よく使う処理をここに記録します。

@ECHO OFF
CLS

REM yyyymmddhhmmssを作る
SET DATE_STR=%DATE:~-10,4%%DATE:~-5,2%%DATE:~-2,2%
SET TIME_STR=%TIME: =0%
SET TIME_STR=%TIME_STR:~0,2%%TIME_STR:~3,2%%TIME_STR:~6,2%

SET FILE_NAME=result_%DATE_STR%%TIME_STR%.txt

REM ユーザ入力、IF文
:CONFIRM
SET /P INPUT_STR="実行しますか?(y/n):"

IF "%INPUT_STR%" == "y" (
    ECHO 処理を実行します。
) ELSE IF "%INPUT_STR%" == "n" (
    ECHO 処理を中止します
    EXIT
) ELSE (
    GOTO :CONFIRM
)

REM ループ処理
FOR /L %%i IN (1,1,10) DO (
  ECHO %%i >> %FILE_NAME%
)

PAUSE

グラフの横軸ラベルを90度回転させる(ExcelVBA)

Excelのグラフの横軸ラベルを回転させたかった。応用が効きそう。

コード

Option Explicit

Sub 表の横軸ラベルを90度回転させる()
    Dim chartCount As Integer
    Dim i As Integer
    
    chartCount = ActiveSheet.ChartObjects.Count

    For i = 1 To chartCount
        ' 90で左90度、-90で右90度回転
        ActiveSheet.ChartObjects(i).Chart.Axes(xlCategory).TickLabels.Orientation = 90
    Next

End Sub

実行例

回転前
f:id:ksk1130:20220216012206p:plain
回転後
f:id:ksk1130:20220216012210p:plain

参考にしました

daitaideit.com