Print OneNote data items as CSV

onenote-makecsv.ps1

function makeCSV($hierarchy, $node_depth){
  $data = @()

  foreach ($item in $hierarchy.ChildNodes){
    $data += makeCSVitem $node_depth $item
  }
  
  return $data
}

function makeCSVitem([string]$node_depth, $items){
  $data = @()

  foreach($item in $items){
    $data_item = New-Object PSObject | Select-Object depth, name, ID

    $data_item.depth = $node_depth
    $data_item.name = $item.name
    $data_item.ID = $item.ID
    $data += $data_item

    if ($item.HasChildNodes){
      $node_depth = countNodeDepth $node_depth
      makeCSV $item $node_depth
    }
  }

  return $data
}

function countNodeDepth([int]$n){
  return $n + 1
}

function saveCSV($data){
  $output_path = './data.csv'

  $data | Export-Csv -Delimiter "`t" -Path $output_path -Encoding Default
}

$OneNote = New-Object -ComObject OneNote.Application
Add-Type -assembly Microsoft.Office.Interop.OneNote 

$OneNoteID = ""
[xml]$Hierarchy = ""

$OneNote.GetHierarchy(
  $OneNoteID,
  [Microsoft.Office.InterOp.OneNote.HierarchyScope]::hsPages,
  [ref]$Hierarchy,
  [Microsoft.Office.InterOp.OneNote.XMLSchema]::xsCurrent)

$csv_data = makeCSV($Hierarchy)
saveCSV $csv_data

[System.Runtime.InteropServices.Marshal]::ReleaseComObject($OneNote) | Out-Null