ConvertTo-DelimiterSeparatedValues

ConvertTo-DelimiterSeparatedValues.ps1

function ConvertTo-DelimiterSeparatedValues {
<#
  This function is like ConverTo-CSV but with
  support for multi-character delimiters. The
  function will return noteproperty names as
  a header row.
#>
param(
  [Parameter(Mandatory=$True,ValueFromPipeLine=$True,Position=0)]
    [pscustomobject[]]$arrObject,
  [Parameter(Mandatory=$False,Position=1)]
        [String]$strDelimiter=":|"
)
  # Create a header row from the names of NoteProperties
  $header = @()
  $header += ($arrObject | Get-Member -Type NoteProperty | Select-Object -ExpandProperty Name)

  # return the delimited header
  $header -join $strDelimiter
  # return delimited rows of data
  (
    $arrObject | ForEach-Object {
      $arrObject_ = $_              # Name the automatic variable, we need it in the inner loop
      ( $header | ForEach-Object {
        $arrObject_.$_
      } ) -join $strDelimiter
    }
  )
}