Create subtitle files to overlay videos made with text-to-speech about pspublish-pptx-speech

[dotBATmanNO]

#WorkInProgress

Currently able to break input text in 32 char chunks, this is the recommended max of a subtitle line.

$Sentence = "This sentence is quite long, how can we break it up? And what if it is crazy long?"

$LineMax = 32
Function fnSplitLine
{
 # Based in part on trick found at
 # https://stackoverflow.com/questions/31663644/

 [CmdletBinding()]
	param(
	  [String]$Message,
	  [Int]$LineLength=32)
	
    $linewords = ($Message | Select-String " " -AllMatches).Matches.Index

    $diff = $linelength - $linewords[0]
    $min_index = 0
    for ($i = 1; $i -lt $linewords.count; $i++)
    {
      $new_diff = $linelength - $linewords[$i]
      
      if ($new_diff -lt $diff -and $new_diff -ge 0)
      {
        $diff = $new_diff
        $min_index = $i
      }
 
    }
    Return $LineWords[$min_index]
}

write-host "12345678901234567890123456789012"
While ($Sentence.Length -gt $LineMax)
{ 
  $LineLen = fnSplitLine -Message $Sentence -LineLength 32
  write-host $Sentence.SubString(0, $LineLen)
  $Sentence = $Sentence.SubString($LineLen + 1)
}
If ($Sentence.Length -gt 0) { Write-Host $Sentence }