$readed = FileRead($guivariable)
$laenge = StringLen
$buchstabennummer = 0
While $buchstabennummer = $laenge Or $buchstabennummer < $laenge
$newstring = StringMid ( $readed , $buchstabennummer , "4" )
$buchstabennummer = $buchstabennummer + 4
Switch
Case $newstring = "0000"
 $newstring = "%" FileWrite ( $datei , $newstring )
endswitch