前回からの修正点
・インポート時に改行が認識されていないため改行コードを
で書き換えるように修正
・フォルダ内のすべてのテキストファイルを変換するよう修正
# 実行中のパス取得/移動 $path = Split-Path -Parent $MyInvocation.MyCommand.Path Set-Location $path # ファイル読み込み $folderName = $path + "\Enpitsu_data\" $tempData2 = gci $folderName #ループAスタート # #for ( $i2 = 0; $i2 -lt $tempData2.Length ; $i2++ ){ # for ( $i2 = 0; $i2 -lt $tempData2.Length ; $i2++ ){ if($tempData2.name.GetType().Fullname -eq "System.String"){ $fileName = $path + "\Enpitsu_data\" + $tempData2.Name $tempData2 = 1 } else { $fileName = $path + "\Enpitsu_data\" + $tempData2.Name[$i2] } $Export_Data = gc $fileName $Export_Data_FileName = $path + "\Enpitsu_Export.txt" #記事開始個所 $start = sls "\+\+\+" $fileName | ForEach-Object { $($_ -split":")[2]} #記事終了箇所 $end = sls "----" $fileName| ForEach-Object { $($_ -split":")[2]} #ループB開始 for ( $i = 0; $i -lt $start.Length ; $i++ ){ $Change_Data = "TITLE:" + ($Export_Data)[($start[$i]-2)] + "`r`n" $Change_Data += "STATUS: Draft" + "`r`n" + "CONVERT BREAKS: 1" + "`r`n" + "PRIMARY CATEGORY: 日記(非公開)" + "`r`n" $Year = ($Export_Data)[$start[$i]-3].Substring(0,4) $Month = ($Export_Data)[$start[$i]-3].Substring(4,2) $Day = ($Export_Data)[$start[$i]-3].Substring(6,2) $Change_Data += "DATE: " + $Month + "/" + $Day + "/" + $Year + " 00:00:00 PM" + "`r`n" $Change_Data += "-----" + "`r`n" + "BODY:" + "`r`n" $tempData = ($Export_Data)[$start[$i]..($end[$i]-2)] $tempData = $tempData -join "<br>" $Change_Data += $tempData $Change_Data += "`r`n" + "--------" Write-Output $Change_Data | Out-File -FilePath $Export_Data_FileName -Encoding Default -append } #ループB終了 } #ループA終了 # 終了 Write-Host("終了")