Structured textというほどではないが単にタグをつけたようなテキストデータは結構あるのではないだろうか。
そういったデータをCSV化するスクリプトである。

set.txt

Name: Convert-StructuredTextToCsv.ps1
Length: 1749
Mode: -a----
LastWriteTime: 2023/07/29 11:04:51
 
Name: output.csv
Length: 0
Mode: -a----
LastWriteTime: 2023/07/28 21:11:24
 
Name: st.txt
Length: 33
Mode: -a----
LastWriteTime: 2023/07/28 21:11:19

• オプション
  • -StructuredText 構造化テキストファイル
  • -ExportCSV 出力CSVファイル

PS > .\Convert-StructuredTextToCsv.ps1 -StructuredText .\st.txt -ExportCSV .\output.csv

output.csv

"Name","Length","Mode","LastWriteTime"
"Convert-StructuredTextToCsv.ps1","1749","-a----","2023/07/29 11:04:51"
"output.csv","0","-a----","2023/07/28 21:11:24"

Convert-StructuredTextToCsv.ps1

# 2023/07/26 Structured-TextからCSVへの変換スクリプト
param (
    [string]$StructuredText, [string]$ExportCSV
)
if (($StructuredText.Length -eq 0) -or -not (Test-Path -Path $StructuredText)) {
    Write-Host "File not found: $StructuredText"
    exit
}
$header = @()
$name2num = @{}
$data = @()
Get-Content -Path $StructuredText | ForEach-Object {
    $line = $_
    # 拡張タグ処理
    if ($line -match "^#:([\w\$]+)\s*(\w+)") {
        $tag = $Matches[1]
        $key = $Matches[2]
        # Key定義
        if (($tag -eq "define") -and -not ($name2num.ContainsKey(($key)))) {
            $name2num.Add($key,($header.Length))
            $header += $key
        }
    # コメントアウト処理
    } elseif ($line -match "^#") {
        continue
    # レコード区切り処理
    } elseif (($line -match "^$") -or ($line -match "^\.$")) {
        if ($data.Length -gt 0) {
            (($data -join ',') | ConvertFrom-Csv -Header $header)
            $data.Clear()
        }
    }
    # Structured-Textの解析
    if ($line -match "^([\w\$]+): *(.*)$") {
        $key = $Matches[1]
        $value = $Matches[2]
        if ($value -match ",") {
            $value = (-join ('"', $value, '"'))
        }
        if ($name2num.ContainsKey($key)) {
            $data[($name2num.$key)] = $value
        } else {
            $name2num.Add($key, ($header.Length))
            if ($data.Length -le $header.Length) {
                $data += $value
            } else {
                $data[($name2num.$key)] = $value
            }
            $header += $key
        }
    }
} | Export-Csv -Path $ExportCSV -Encoding Default -NoTypeInformation
Get-Item -Path $ExportCSV