<#
.SYNOPSIS
Search Pascal Brugier's online Belgian aircraft registration database for a Belgian aircraft registation and if found, return the aircraft manufacturer and model (tab-delimited)

.DESCRIPTION
Run this script with an aircraft registration as its only parameter (see examples section).
The script will try to find the registration in Pascal Brugier's online Belgian aircraft registration database.
If a match is found, the script will display a tab-delimited string with the registration and the manufacturer/model (<registration><tab><tab><manufacturer_and_model>).
If the script was started by another PowerShell script, the calling PowerShell script may also read the manufacturer/model from the variable $Model, passed on by this script.
If the script was started by a batch file, the calling batch file can use 'FOR /F' on this PowerShell script's screen output to find the manufacturer/model.
Get-Help './AirRegOOCmd.ps1' -Examples will show 2 examples of this script being called by another script.

.PARAMETER Registration
A valid Belgian aircraft registration, i.e. O-**** or OO-****

.PARAMETER Quiet
Ignore all errors and do not display any error messages; in case of errors, just terminate with return code 1

.PARAMETER Help
Show the script's help screen

.PARAMETER Version
Show this script's version number; if combined with -Verbose show full script path, version number and last/modified/release date

.PARAMETER Debug
Show some progress messages

.OUTPUTS
A tab-delimited string with <registration><tab><tab><manufacturer_and_model>, and a variable $Model set to manufacturer AND model

.EXAMPLE
. ./AirRegOOCmd.ps1 "OO-AHZ"
Will return tab-delimited string "OO-AHZ<tab><tab>SABCA HANDLEY PAGE W.8F" and set variable $Model to "SABCA HANDLEY PAGE W.8F"

.EXAMPLE
"OO-AHZ" | . ./AirRegOOCmd.ps1
Will also return tab-delimited string "OO-AHZ<tab><tab>SABCA HANDLEY PAGE W.8F" and set variable $Model to "SABCA HANDLEY PAGE W.8F"

.EXAMPLE
. ./AirRegOOCmd.ps1 -Version -Verbose
Will return the full script path, version and last modified/release date

.EXAMPLE
. ./AirRegOOCmd.ps1 -Version
Will return the script version

.EXAMPLE
Create and run the following PowerShell script:
===============================================================
$Registration = 'OO-AHZ' ; $Model = ''
[void] ( . "$PSScriptRoot\AirRegOOCmd.ps1" -Registration $Registration )
Write-Host ( "Registration : {0}`nModel        : {1}" -f $Registration, $Model )
===============================================================

Besides setting variable $Model to "SABCA HANDLEY PAGE W.8F", it will return:

Registration : OO-AHZ
Model        : SABCA HANDLEY PAGE W.8F

.EXAMPLE
Create and run the following batch file:
===============================================================
REM Note that there should only be a TAB and nothing else between delims= and the doublequote
FOR /F "tokens=1-3 delims=	" %%A IN ('powershell . ./AirRegOOCmd.ps1 OO-AHZ') DO (
	ECHO Registration : %%A
	ECHO Model        : %%B
)
===============================================================

It will return:

Registration : OO-AHZ
Model        : SABCA HANDLEY PAGE W.8F

.LINK
Script written by Rob van der Woude:
https://www.robvanderwoude.com/

.LINK
Pascal Brugier's online Belgian aircraft registration database:
http://www.brugier.com/textes/txt/oo-aaa.txt

.LINK
Capture -Debug and -Verbose parameter by mklement0 on StackOverflow.com:
https://stackoverflow.com/a/48643616
#>

param (
	[parameter( ValueFromPipeline )]
	[ValidatePattern("(^\s*$|[\?/]|^O{1,2}-[A-Z\d]{2,4}$)")]
	[string]$Registration,
	[switch]$Quiet,
	[switch]$Help,
	[switch]$Version
)

$progver = "1.00"

$Registration = $Registration.ToUpper( )
$Manufacturer = ''
$Model = ''
[bool]$Debug = ( $PSBoundParameters.ContainsKey( 'Debug' ) )
[bool]$Verbose = ( $PSBoundParameters.ContainsKey( 'Verbose' ) )

if ( $Version ) {
	if ( $Verbose ) {
		$lastmod = ( [System.IO.File]::GetLastWriteTime( $PSCommandPath ) )
		if ( $lastmod.ToString( "h.mm" ) -eq $progver ) {
			"`"{0}`", Version {1}, release date {2}" -f $PSCommandPath, $progver, $lastmod.ToString( "yyyy-MM-dd" )
		} else {
			# if last modified time is not equal to program version, the script has been tampered with
			"`"{0}`", Version {1}, last modified date {2}" -f $PSCommandPath, $progver, $lastmod.ToString( "yyyy-MM-dd" )
		}
	} else {
		$progver
	}
	exit 0
}

function ShowHelp( $errormessage = '' ) {
	if ( !$Quiet ) {
		Clear-Host
		if ( $errormessage ) {
			Write-Host
			Write-Host "Error: " -ForegroundColor Red -NoNewline
			Write-Host $errormessage
		}
		Write-Host
		Write-Host ( "`"{0}`", Version {1}" -f $PSCommandPath, $progver ) -NoNewline
		$lastmod = ( [System.IO.File]::GetLastWriteTime( $PSCommandPath ) )
		if ( $lastmod.ToString( "h.mm" ) -eq $progver ) {
			Write-Host ", release date " -NoNewline
		} else {
			# if last modified time is not equal to program version, the script has been tampered with
			Write-Host ", last modified date " -NoNewline
		}
		Write-Host $lastmod.ToString( "yyyy-MM-dd" )
		Write-Host
		Get-Help $PSCommandPath -Full
	}
}

if ( $Help -or $Registration -match '(^\s*$|[\?/])' ) {
	ShowHelp
	exit 1
}

$dburl = 'http://www.brugier.com/textes/txt/oo-aaa.txt'
$pattern = ( '^{0}\s[^\n\r]{{1}}' -f $Registration, ( 60 - $Registration.Length ).ToString( ) )
if ( $Debug ) {
	$StopWatch = [System.Diagnostics.Stopwatch]::StartNew( )
	Write-Host ( "Starting online search for {0} at {1}" -f $Registration, ( Get-Date ) )
}
$ProgressPreference = 'SilentlyContinue'
$table = ( Invoke-WebRequest -Uri $dburl ).Content
$ProgressPreference = 'Continue'
if ( $table.Length -lt 100 ) {
	if ( !$Quiet ) {
		Write-Host "Error retrieving Belgian aircraft registration list"
	}
	exit 1
}
$linescount = $table.Split( [environment]::NewLine ).Length
if ( $Debug ) {
	Write-Host ( "Registration list retrieved, {0} lines" -f $linescount )
}
if ( $linescount -lt 1000 ) {
	if ( !$Quiet ) {
		Write-Host ( "Error in retrieved Belgian aircraft registration list: only {0} lines" -f $linescount )
	}
	exit 1
}
$matchfound = $false
$linescount = 0
$table.Split( [environment]::NewLine ) | ForEach-Object {
	if ( !$matchfound ) {
		if ( $Model -ne '' ) {
			$matchfound = $true
			if ( $Debug ) {
				Write-Host ( "Match found in line {0}" -f $linescount )
			}
		}
		if ( $_.StartsWith( "$Registration " ) ) {
			$Model = $_.Substring( $Registration.Length ).Trim( )
			$pattern = "\s{2,}.*$"
			$Model = [System.Text.RegularExpressions.Regex]::Replace( $Model, $pattern, "" )
		}
		$linescount += 1
	}
}
if ( $Debug ) {
	Write-Host ( "Ended online search for {0} at {1} (elapsed time {2})" -f $Registration, ( Get-Date ), $StopWatch.Elapsed )
	$StopWatch.Stop( )
}
if ( !$matchfound ) {
	if ( !$Quiet ) {
		Write-Host "Aircraft registration for $Registration not found"
	}
} else {
	"{0}`t`t{1}" -f $Registration, $Model
}