$p = "(^\d{1,3}(,\d{3})?)\s(\S{2,3}(都|道|府|県))\s+(\S{1,7}(市|区|町|村))\s+(.+)\s+(\S+)\s+(\S+)\s+([2|5]%)$"
Get-Content kameiten_touroku_list.txt -Encoding UTF8 | Select-String -Pattern $p | ForEach-Object { $data = @(); foreach ( $i in @(1, 3, 5, 7, 8, 9, 10)) { $data += ($_.Matches.Groups[$i].value) }; $data -join "`t" } | Out-File .\output.tsv
Get-Content kameiten_touroku_list.txt -Encoding UTF8 | Select-String -Pattern $p | ForEach-Object { $data = @(); foreach ( $i in @(1, 3, 5, 7, 8, 9, 10)) { $data += ($_.Matches.Groups[$i].value) }; $data -join "`t" } | ConvertFrom-CSV -header 'No.', '都道府県', '市区町村', '事業所名(屋号)', '業種', '区分','還元率' -Delimiter "`t" | Export-Csv .\output.csv -NoTypeInformation -Append -Encoding UTF8
説明
Get-Content kameiten_touroku_list.txt -Encoding UTF8 |
Select-String -Pattern "(^\d{1,3}(,\d{3})?)\s(\S{2,3}(都|道|府|県))\s+(\S{1,7}(市|区|町|村))\s+(.+)\s+(\S+)\s+(\S+)\s+([2|5]%)$" |
ForEach-Object { $data = @(); foreach ( $i in @(1, 3, 5, 7, 8, 9, 10)) { $data += ($_.Matches.Groups[$i].value) }; $data -join "`t" } |
ConvertFrom-CSV -header 'No.', '都道府県', '市区町村', '事業所名(屋号)', '業種', '区分','還元率' -Delimiter "`t" |
Export-Csv .\output.csv -NoTypeInformation -Append -Encoding UTF8