Powershell regex followup

An expert previously helped me on devising this function that locates certain key/value pairs from a passed email body.
I ran across a snag today and would like to sort it.
The ID field should be presented as
ID:BD123456 (where 1-6 are alphanumeric characters).
However, some users provide an unnecessary suffix (BD123456-7) which is irrelevant, so it can safely be ignored.
I believe that is how it is currently designed in the function code below.
However, today's issue arose when an errant trailing colon was placed at the end of this string (ID:BD12346:).
Can this be redesigned to simply locate the ID field and then take anything starting with BD and the trailing 6 characters, ignoring anything afterwards?
This is how that field is currently referenced:

'ID' =			"$($Prefix)\S{6}(-.)?"

Select allOpen in new window

And here's the function code:
           

 $TS = (Get-Culture).NumberFormat.NumberGroupSeparator
	    $DS = (Get-Culture).NumberFormat.NumberDecimalSeparator
	    $reTS = [regex]::Escape($TS)
	    $reDS = [regex]::Escape($DS)
	    $AcceptedSizeUnits = 'kb', 'mb'
	    $DefaultSizeUnit = 'kb'
	    $AcceptedTrue = 'y', 't', '1', 'yes', 'true'
	    $AcceptedFalse = 'n', 'f', '0', 'no', 'false'
	    ## Define all accepted fields here.
	    ## Format: "<Field TYPE>" = "Field Name 1[|Alias 1[|Alias 2[...]]]"[, "Field Name 2[|Alias 1[|Alias 2[...]]]"]
	    $AcceptedFields = New-Object -TypeName PSObject -Property @{
		    'Bool' =		'Hide|Hidden|Members Hidden|Hide Members'
		    'ByteSize' =	'Size|MaxSize|Max Size'
		    'Date' =		'EndDate|End Date|Expiration|Expiration Date|DeletionDate|Deletion Date'
		    'EmpID' =		'Owner|PrimaryOwner|Primary Owner',
						    'Backup|BackupOwner|Backup Owner|SecondaryOwner|Secondary Owner'
		    'ID' =			'ID'
		    'String' =		'Display|DisplayName|Display Name'
	    }
	    ## Define the REs to identify the field TYPEs defined above here
	    $reAcceptedFields = New-Object -TypeName PSObject -Property @{
		    'Bool' =		"($(($AcceptedTrue + $AcceptedFalse) -join '|'))"
		    'ByteSize' =	"(\d+|\d{1,3}($($reTS)\d{3})*)($($reDS)\d+)?(\s*($($AcceptedSizeUnits -join '|')))?"
		    'Date' =		'\d{1,2}/\d{1,2}/(\d{2}|\d{4})'
		    'EmpID' =		'\S+'
		    'ID' =			"$($Prefix)\S{6}(-.)?"
		    'String' =		'.*?'
	    }
	    $AcceptedFieldsList = $AcceptedFields | 
            Get-Member -MemberType NoteProperty | Where-Object {$PSItem.Name} | 
            ForEach-Object {$AcceptedFields.($PSItem.Name)} | ForEach-Object {$PSItem.Split('|')[0]}
	    $Result = "" | Select-Object -Property ($AcceptedFieldsList + "Errors")
	    $Result.Errors = @()
	    $reGetBool =		"(?:\A|\s*)(?<Field>$($AcceptedFields.Bool -join '|'))\s*:\s*(?<Data>$($reAcceptedFields.Bool))(?:\s|\Z)"
	    $reGetByteSize =	"(?:\A|\s*)(?<Field>$($AcceptedFields.ByteSize -join '|'))\s*:\s*(?<Data>$($reAcceptedFields.ByteSize))(?:\s|\Z)"
	    $reGetDate =		"(?:\A|\s*)(?<Field>$($AcceptedFields.Date -join '|'))\s*:\s*(?<Data>$($reAcceptedFields.Date))(?:\s|\Z)"
	    $reGetEmpID =		"(?:\A|\s*)(?<Field>$($AcceptedFields.EmpID -join '|'))\s*:\s*(?<Data>$($reAcceptedFields.EmpID))(?:\s|\Z)"
	    $reGetID =			"(?:\A|\s*)(?<Field>$($AcceptedFields.ID -join '|'))\s*:\s*(?<Data>$($reAcceptedFields.ID))(?:\s|\Z)"
	    $reGetString =		"(?:\A|\s*)(?<Field>$($AcceptedFields.String -join '|'))\s*:\s*(?<Data>$($reAcceptedFields.String))(?:\s*\Z)"
	    $reCatchErrors =	"(?:\A\s*)(?<Field>\S+?)\s*:\s*(?<Data>.*?)(?:\s*\Z)"
	    $LineNumber = 0
        if ($emailbody.Contains('From:')) {
            $emailbody = $emailbody.Substring(0,$emailbody.IndexOf('From:'))}
	    Switch -regex ($emailBody.Replace("`r`n", "`r").Split("`r")) {
		    ".*" { $LineNumber += 1 }
		    $reGetBool {
			    $Field = ($AcceptedFields.Bool | Where-Object {$PSItem.Split('|') -contains $Matches['Field']}).Split('|')[0]
			    $RawData = $Matches['Data']
			    "[$($LineNumber)] Found field '$($Matches['Field'])'$(If ($Matches['Field'] -ne $Field) {" --> Alias for '$($Field)'"}): '$($RawData)'" | Write-Verbose
			    $Result.$Field = $AcceptedTrue -contains $RawData ; Continue
		    }
		    $reGetByteSize {
			    $Field = ($AcceptedFields.ByteSize | Where-Object {$PSItem.Split('|') -contains $Matches['Field']}).Split('|')[0]
			    $RawData = $Matches['Data']
			    "[$($LineNumber)] Found field '$($Matches['Field'])'$(If ($Matches['Field'] -ne $Field) {" --> Alias for '$($Field)'"}): '$($RawData)'" | Write-Verbose
			    $Data = If ($RawData.ToLower().EndsWith('b')) {$RawData} Else {$RawData + $DefaultSizeUnit}
			    $Result.$Field = ([int64]1 * $Data.Replace($TS, '').Replace($DS, '.').Replace(' ', '')/1kb) ; Continue
		    }
            $reGetDate {
	            $Field = ($AcceptedFields.Date | Where-Object {$PSItem.Split('|') -contains $Matches['Field']}).Split('|')[0]
	            $RawData = $Matches['Data']
	            Try {
		            $Result.$Field = ([DateTime]$RawData).ToShortDateString()
		            "[$($LineNumber)] Found field '$($Matches['Field'])'$(If ($Matches['Field'] -ne $Field) {" --> Alias for '$($Field)'"}): '$($RawData)'" | Write-Verbose
		            Continue
	            } Catch { } # Just let it fall through to $reCatchErrors
            }
		    $reGetID {
			    $Field = ($AcceptedFields.ID | Where-Object {$PSItem.Split('|') -contains $Matches['Field']}).Split('|')[0]
			    $RawData = $Matches['Data']
			    "[$($LineNumber)] Found field '$($Matches['Field'])'$(If ($Matches['Field'] -ne $Field) {" --> Alias for '$($Field)'"}): '$($RawData)'" | Write-Verbose
			    $Result.$Field = $RawData.substring(0,8) ; Continue
		    }
		    $reGetEmpID {
			    $Field = ($AcceptedFields.EmpID | Where-Object {$PSItem.Split('|') -contains $Matches['Field']}).Split('|')[0]
			    $RawData = $Matches['Data']
			    "[$($LineNumber)] Found field '$($Matches['Field'])'$(If ($Matches['Field'] -ne $Field) {" --> Alias for '$($Field)'"}): '$($RawData)'" | Write-Verbose
			    $Result.$Field = $RawData ; Continue
		    }
		    $reGetString {
			    $Field = ($AcceptedFields.String | Where-Object {$PSItem.Split('|') -contains $Matches['Field']}).Split('|')[0]
			    $RawData = $Matches['Data']
			    "[$($LineNumber)] Found field '$($Matches['Field'])'$(If ($Matches['Field'] -ne $Field) {" --> Alias for '$($Field)'"}): '$($RawData)'" | Write-Verbose
			    $Result.$Field = $RawData.Replace(([char]8217), "'").replace(([char]8211),"-") ; Continue
		    }
		    $reCatchErrors {
			    $Field = $Matches['Field']
			    $RawData = $Matches['Data']
			    "[$($LineNumber)] Found potential field '$($Field)': '$($RawData)'" | Write-Warning
			    $Result.Errors += New-Object -TypeName PSObject -Property ([ordered]@{
				    'Line' = $LineNumber ; 'Field' = $Field ; 'Data' = $RawData})
		    }
		    Default { $LineNumber += 1 }
	    }
	    $Result

Select allOpen in new window