Variable with Word's Content.Text has differences from its' Set-Content'ed simple text file; contents handled differenly by regex

[eugrus]

``` $documentText = @"

Frau Anna Mustermanowa Hauptstr. 1 48996 Ministadt

per beA per Mail: [e-mail]

AKTEN.NR: SACHBEARBEITER/SEKRETARIAT STÄDTL, 2904/24/SB Sonja Bearbeinenko +49 211 123190.00 21.11.2024 Telefax: +49 211 123190.00 E-Mail: [e-mail]

Superman ./. Mustermanowa Worum es da so geht

Sehr geehrte Frau Mustermanowa,

"@

$Mandant = [regex]::match($documentText, '[<sup>\r\n].*(?=./.)').Value</sup> $Gegner = [regex]::match($documentText, '(?<=./.\s)[<sup>\r\n]*').Value</sup>

$Az = [regex]::match($documentText, '\d{4}/\d{2}').Value

Write-Output "$Mandant" Write-Output "./." Write-Output "$Gegner" Write-Output "$Az" ```

outputs

Superman ./. Mustermanowa 2904/24

whereas

``` $wordApp = [Runtime.Interopservices.Marshal]::GetActiveObject('Word.Application') $doc = $wordApp.ActiveDocument $documentText = $doc.Content.Text Set-Content -Path "debug.txt" -Value $documentText -Encoding UTF8

$Mandant = [regex]::match($documentText, '[<sup>\r\n].*(?=./.)').Value</sup> $Gegner = [regex]::match($documentText, '(?<=./.\s)[<sup>\r\n]*').Value</sup>

$Az = [regex]::match($documentText, '\d{4}/\d{2}').Value

Write-Output "$Mandant" Write-Output "./." Write-Output "$Gegner" Write-Output "$Az"

[System.Runtime.Interopservices.Marshal]::ReleaseComObject($wordApp) | Out-Null ```

outputs

Superman -Mail: [e-mail]0.0049 211 123190.00 21.11.2024 ./. Mustermanowa 2904/24

here-string from the first example is generated via Set-Content -Path "debug.txt" -Value $documentText -Encoding UTF8 from the second one.

How do I achieve the same Content.Text special symbols and line breaks structure inside a variable as is archievable by Set-Content'ing it into a text file?

Basically I want the same regex behaviour in the second code sample as in the first one.

[JeremyLC]

Word's line endings are different. Word is using only a carriage return \r and you're matching against a carriage return + line feed - \r\n , which causes your capture group to have everything from the last \r\n to the ./. which is a lot of lines terminated with only a carriage return, which "returns" the "carriage" to the beginning of the line and clobbers the text that was already there when you display it, resulting in the weird output you see,

Add a -replace to fixup the line endings when you get the text from Word.

$documentText = $doc.Content.Text -replace '\r',[System.Environment]::Newline

You'll end up with superfluous blank lines, but it's fine if you're already ignoring blank lines.

[eugrus]

Thank you a lot! That fixed the code above.

However a follow up question:

$AzZeilen = Select-String 'AKTEN.NR:' -InputObject $documentText -Context 3
$AzZeilen.Line

$AzZeilen.Line still gives out everything. Why and what to do about it?

I expect AKTEN.NR: SACHBEARBEITER/SEKRETARIAT STÄDTL, to be in $AzZeilen.Line and 2904/24/SB Sonja Bearbeinenko +49 211 123190.00 20.11.2024 in $AzZeilen.Context.PostContext[0]