Excelの見出しとデータをCSVデータに取り込んで、データ項目からファイル名を編集して、ファイル出力する。
スクリプト)
#図書ファイルを作成する
#
# 家計簿の図書明細行を読み込む
cd N:\CMD\図書ファイル
$otpath="./tosyo"
Write-Host -ForegroundColor yellow "↓家計簿の見出し、図書明細を入力してください↓"
$csvData = ConvertFrom-Csv -InputObject (read-host) -Delimiter `t
$csvData | ForEach-Object -process {
if($csvDataCount -eq 0){
# 出力ディレクトリを作成する
New-Item -Path $otpath -Force -ItemType directory | Out-Null
# "著者『タイトル』.txt"見出しを出力する
Write-Host -ForegroundColor green "$otpath/著者『タイトル』.txt:"
}
# 著者『タイトル』.txtファイルを出力する(内容に" 著者『タイトル』"を含む)
$csvDataCount ++
$basenm = $_.備考+"『"+$_.項目+"』"
$otfile = $otpath+"/"+$basenm+".txt"
Out-File -FilePath $otfile -InputObject $basenm -Encoding Default
write-host $otfile
} -Begin{
Set-Variable -Name csvDataCount -Value 0
}