Simulates typing and backspacing on one line

SimulateType.ps1

function New-BackspaceLn {
    [CmdletBinding()]
    Param ([String]$Sentence)

    $Backspaces = "`b" * $Sentence.Length
    return "$Sentence$Backspaces"
}

function Write-HostSimType {
    [CmdletBinding()]
    Param([String]$TypeMe, [Switch]$KeepMe)

    if (!$KeepMe){$TypeMe = New-BackspaceLn $TypeMe}
    $charr = $TypeMe.ToCharArray()
    foreach ($l in $charr){
        $delay = 25
        if (@(",",".","?","!") -Contains $l){
            $delay = 300
        } elseif ($l -Match "`b" ){
            $l = "`b `b"
        }
        Write-Host -NoNewLine $l
        Start-Sleep -Milliseconds $delay
    }
}