Powershell script that evaluates ubundle

[abstinent]

UniGetui can perform a regular package backup. See settings>save packages?>local>without timestamp.
This ubundle file contains information about ALL installed apps. The script evaluates this and creates two text files in the same directory. You only need to edit the first three lines:

$Pfad="D:\Dokumente\UniGetUI"
$Rechner="IT13"
$Erweiterung="installierte Pakete"
$Abfrage="n"      # "n" oder beliebig

$LName=60
$LSource=18
$LVersion=20
$LManagerName=12
$LId=70


if ($Abfrage -ne 'n') {
    $Eingabe = Read-Host "Name des Rechners (Standardwert: $Rechner)"
    if ($Eingabe -ne "") { $Rechner = $Eingabe }
}

$Ubundle="$Pfad\$Rechner $Erweiterung.ubundle"
$Datei1="$Pfad\$Rechner.Apps nach Name.txt"
$Datei2="$Pfad\$Rechner.Apps nach Source.txt"

function Truncate {
    param ($Text, $MaxLength)
    $Ausgabe = $Text
    if ($Text.Length -eq 0) { $Ausgabe = "..." }
    if ($Text.Length -gt $MaxLength) { $Ausgabe=$Text.Substring(0, $MaxLength - 3) + "..." }
    if ($Ausgabe.Length -lt $MaxLength) { $Ausgabe= $Ausgabe.Padright($Maxlength) }
    return $Ausgabe
}


$jsonObject = Get-Content -Path $Ubundle | ConvertFrom-JSON
$alle = $jsonObject.packages + $jsonObject.incompatible_packages

$Sort1 = $alle | Sort-Object -Property Name 
if (Test-Path $Datei1) {Clear-Content -Path $Datei1}
 
Foreach ($entry in $Sort1) {
    $Name= Truncate $entry.Name $LName
    $Source= Truncate $entry.Source $LSource
    $Version= Truncate $entry.Version $LVersion
    $ManagerName= Truncate $entry.ManagerName $LManagerName
    $Id= Truncate $entry.Id $LId

    $Ausgabe = "$Name $Source $Version $ManagerName $Id" 
    Add-Content -Path $Datei1 -Value $Ausgabe
}

$Sort2 = $alle | Sort-Object `
    @{ Expression = { $_.Source }; Descending = $false }, `
    @{ Expression = { $_.Name }; Descending = $false }
if (Test-Path $Datei2) {Clear-Content -Path $Datei2}

Foreach ($entry in $Sort2) {
    $Name= Truncate $entry.Name $LName
    $Source= Truncate $entry.Source $LSource
    $Version= Truncate $entry.Version $LVersion
    $ManagerName= Truncate $entry.ManagerName $LManagerName
    $Id= Truncate $entry.Id $LId

    $Ausgabe = "$Name $Source $Version $ManagerName $Id" 
    Add-Content -Path $Datei2 -Value $Ausgabe
}