Insert delimiters

Question

Hi,
I tried to insert Pipe-Delimiters at positions in text file, but i get this error, please some can help sort it.
$path ="c:\bkps\sample.txt"
$Positions=@(2,9,16,32)
$dat = Get-Content $path
$Positions | foreach {$dat
$dat=$dat.Insert($_,'|')
$dat > $path
Method invocation failed because [System.Object[]] doesn't contain a method named 'Insert'.
At line:5 char:17
+ $dat=$dat.Insert <<<< ($_,'|')
+ CategoryInfo : InvalidOperation: (Insert:String) [], RuntimeException
+ FullyQualifiedErrorId : MethodNotFound

Answer 1

Brian's code has a very important subtlety; note that it uses the positions in descending order.  That way you haven't moved the target for the earlier positions as you modify the string. If you were to take his code and do the inner For loop in the
"natural" ascending order, you'd wind up with this output instead:
12|345678|901234|567890123456789|012345678901234567890
The first pipe is in the right spot, then the second one is off by one, the third is off by two, and so on.
Another way to approach that is to reverse the positions array and then do a normal iteration:
$string = "12345678901234567890123456789012345678901234567890"
$Positions=@(2,9,16,32)
[array]::Reverse($Positions)
$Positions | foreach {$string = $string.Insert($_,'|')}
$string
12|3456789|0123456|7890123456789012|345678901234567890
[string](0..33|%{[char][int](46+("686552495351636652556262185355647068516270555358646562655775 0645570").substring(($_*2),2))})-replace " "