csv to Visio xml

to_xml.ps1

$f = Get-Content -Path D:\dat.txt
$data = ConvertFrom-Csv -Delimiter "`t" -InputObject $f
$data = $data | Sort-Object -Property "Тип заявки", "Объект", "Первичный идентификатор"
$groups = $data | Group-Object -Property "Тип заявки"

$xmlsettings = New-Object System.Xml.XmlWriterSettings
$xmlsettings.Indent = $true

foreach ($i in $groups) {
    $XmlWriter = [System.Xml.XmlWriter]::Create("D:\$($i.Name).xml", $xmlsettings)
    $XmlWriter.WriteStartDocument()

    Write-Host "#########", $i.Name, "#########"
    foreach ($r in $i.Group) {
	Write-Host $r."Объект", "|", $r."Первичный идентификатор", "|", $r."Процедура"
    }
    $XmlWriter.Close()
}