Code: Select all
SEPA := "DE85500502011453146434"
Msgbox % Gliedern(SEPA)
Return
Gliedern(x, Stellen=4) {
x := StrReplace(x, A_Space) ; Entfernt Leerzeichen
RückG := ""
Start := 1
Loop {
Zwi := SubStr(x, Start, Stellen)
RückG := RückG . Zwi . " "
Start := Start+Stellen
} Until StrLen(Zwi)=0
RückG := TRIM(RückG)
Return RückG
}