Parse unique stacks from WinDBG output generated with !uniqstack

parse-dump-uniqstack.ps1

# Parse WinDBG !uniqstack output
$file = 'SQLDump0008.uniqstack.txt';
$SearchLog = [regex] '\.\s{0,2}(?<thread>\d{1,4}).*?\r\n.*?\r\n.*?\r\n.*?\r\n.{8}`.{8} .{8}`.{8} (?<topstack>.*)\r\n';

$log = [io.file]::ReadAllText($file);
$match = $SearchLog.Match($log);

$logentries = @();

while ($match.Success) {
	$logentry = new-object System.Object;
	$logentry | add-member -membertype noteproperty -name thread -value $match.Groups['thread'].Value;
	$logentry | add-member -membertype noteproperty -name topstack -value $match.Groups['topstack'].Value;
	$logentries += $logentry
	$match = $match.NextMatch();
};

$logentries | Export-Csv 'SQLDump0008.uniqstack.csv' -Delimiter ";" -NoTypeInformation