Also schnell fällt mir dazu ein, dass du eine For-Schleife bis StringLen() nutzt, außerdem _StringInsert() mit $i * 4 + ($i -1) oder so in der Art, Gruß 
Edit:
#include <String.au3>
$text = "ABCDABCDABCDABCDABCDA"
$i = 0
$j = 4
While StringLen($Text) > $j
$i += 1
$j = $i * 4 + ($i - 1)
$text = _StringInsert($text, "|", $j)
WEnd
MsgBox(0, "", $text)
Eine andere Möglichkeit:
$text = "ABCDABCDABCDABCDABCD"
$aVarChars = StringSplit($text,"")
$sNew = ""
for $i = 1 to $aVarChars[0]
$sNew &= $aVarChars[$i]
if mod($i,4) = 0 Then $sNew &= "|"
Next
MsgBox(0,"Neu:",$sNew)
[/autoit]mfg autoBert
Oder so:
[autoit]
$text = "ABCDABCDABCDABCDABCD"
$out = StringRegExpReplace($text, '(.{4})', '$1|')
MsgBox(0, 0, $out)
