feat: HttpListenerRequest.get_File(s) ( Fixes #1115 )

Author: StartAutomating

PipeScript.types.ps1xml

@@ -7777,6 +7777,10 @@ $this.'.Topics'
   <Type>
     <Name>System.Net.HttpListenerRequest</Name>
     <Members>
+      <AliasProperty>
+        <Name>Files</Name>
+        <ReferencedMemberName>File</ReferencedMemberName>
+      </AliasProperty>
       <AliasProperty>
         <Name>Form</Name>
         <ReferencedMemberName>FormData</ReferencedMemberName>
@@ -7881,6 +7885,63 @@ if ($this.ContentType -match 'multipart.+?;') {
 
                     </GetScriptBlock>
       </ScriptProperty>
+      <ScriptProperty>
+        <Name>File</Name>
+        <GetScriptBlock>
+                        $boundary = $this.Boundary
+if (-not $boundary) { return }
+if ($this.'.CachedFiles') {
+    return $this.'.CachedFiles'
+}
+if (-not $this.'.CachedRequestBody') {
+    $body = $this.Body
+    $rawData = $this.'.CachedRequestBody'
+}
+if (-not $rawData) { return}
+
+$uploadedFiles = [Ordered]@{}
+
+$boundaries = [Regex]::Matches($rawData, $boundary)
+for ($i = 0; $i -lt ($boundaries.Count - 1); $i++) {
+    $startBoundary, $endBoundary = $boundaries[$i], $boundaries[$i + 1]
+    $realStart = $startBoundary.Index + $startBoundary.Length
+    $realEnd=  $endBoundary.Index - 2
+    $boundryContent = $rawData.Substring($realStart, $realEnd - $realStart)
+    $s = $boundryContent.IndexOf("`r`n`r`n")
+    if ($s -ne -1) {
+        $preamble = $boundryContent.Substring(0, $s)
+        $s+=4
+        $name =
+            foreach ($_ in $preamble -split ';') {
+                $_ = $_.Trim()
+                if ($_.StartsWith('name=')) {
+                    $_.Substring(5).Trim('"').Trim("'")
+                    break
+                }
+            }
+
+        $null= $ms.Seek($realStart + $s, 0)
+        $buffer = [byte[]]::new($realEnd - ($realStart + $s))
+        $bytesRead = $ms.Read($buffer,0, $buffer.Length)
+        if ($preamble.IndexOf('Content-Type', [StringComparison]::OrdinalIgnoreCase) -eq -1) {
+            $ms2 = [io.memorystream]::new($buffer)
+            $sr2 = [io.StreamReader]::new($ms2, $this.ContentEncoding)
+            $uploadedFiles[$name] = $sr2.ReadToEnd().TrimEnd()
+            $sr2.Dispose()
+            $ms2.Dispose()
+        } else {
+            $uploadedFiles[$name] = $buffer
+        }
+    }
+}
+
+$this.psobject.properties.add((
+    [psnoteproperty]::new('.CachedFiles', $uploadedFiles)
+))
+
+return $uploadedFiles
+                    </GetScriptBlock>
+      </ScriptProperty>
       <ScriptProperty>
         <Name>FormData</Name>
         <GetScriptBlock>