This might help as well, as the file IS fixed-width, right-justified or not.
Code:

; some kind of fixed-length string
$sString=''
; the positions where a new column begins
$aiDelim=6,11,20,28,33,38
$asResult= FixedLength($sString,$result)
function FixedLength($sString,$aiDelimPos)
  if not vartype($aiDelimPos) & 1892 
    exit 3
  endif
  
  dim $iPos, $iMaxPos
  $iMaxPos=ubound($aiDelimPos)
  
  dim $asFields[$iMaxPos+1]

  $asFields[0]=left($sString,$aiDelimPos[0]-1)
  for $iPos=0 to $iMaxPos-1
    $asFields[$iPos+1]=''+substr($sString,$aiDelimPos[$iPos],$aiDelimPos[$iPos+1]-$aiDelimPos[$iPos])
  next
  $asFields[$iPos+1]=''+substr($sString,$aiDelimPos[$iPos])
  $FixedLength=$asFields
endfunction
_________________________
There are two types of vessels, submarines and targets.