1~10の画像ファイルを作成します。
スクリプト
ファイル名:Create-PNG.ps1
<#
.SYNOPSIS
連番のPNG形式のファイルを作成する。
#>
using namespace System.Drawing
# アセンブリのロード
Add-Type -AssemblyName System.Drawing
# フォント
$fnt = [Font]::new("MS UI GOTHIC", 32)
# ブラシ
$brush = [SolidBrush]::New([Color]::Black)
function Create-PNG
{
param(
$path,
$str
)
# 100x100のビットマップを作成
$bitmap = [Bitmap]::New(100, 100)
$g = [Graphics]::FromImage($bitmap)
# 白色で塗潰し
$g.Clear([Color]::White)
# 文字を描画
$g.DrawString($str, $fnt, $brush, 10, 30)
$g.Dispose()
# ビットマップをPNGファイルとして保存
$bitmap.Save($path, [Imaging.ImageFormat]::Png)
$bitmap.Dispose()
}
$OutDir = "C:\"
for ($i=1; $i -le 10; $i++) {
$str = "{0:000}" -f $i
Create-PNG (Join-Path $OutDir ($str+".png")) $str
}
$fnt.Dispose()
$brush.Dispose()
実行
001.png~010.pngのファイルが出来上がりました。
コメント