Programm, das nach 10 Zeichen Leerschritt macht

[Mok]

Servus!

Ich hab gerade einen Haufen Zahlen (sind die Nachkommastellen von PI ). Die hab ich mir ein ein Dokument gezogen und um die Sache wein bisschen übersichtlicher zu machen, brauch ich ein Programm/eine Funktion/ein Sonstetwas (kann auch PB Code sein), welche(s) mir nach x = 10 Stellen einen Leerschritt reinmacht.

Aus

Code: Alles auswählen

3.
1415926535897932384626433832795028841971693993751058209749445923078164062...

wird dann eben

Code: Alles auswählen

3.
1415926535 8979323846 2643383279 5028841971 6939937510 5820974944 5923078164 062...

MfG, M k

[Fluid Byte]

Code: Alles auswählen

Nachkomma$ = "1415926535897932384626433832795028841971693993751058209749445923078164062"
PI$ = "3."
For i=1 To Len(Nachkomma$) Step 10
	PI$ + Mid(Nachkomma$,i,10) + " "
Next
Debug PI$

[STARGÅTE]

oder als Procedure (eine unter vielen Varianten):

Code: Alles auswählen

Procedure.s ChunkSplit(String$, Length, SplitString$)
 Protected Result$
 While String$
  If Result$ : Result$ + SplitString$ : EndIf
  Result$ + Left(String$, Length)
  String$ = Right(String$, Len(String$)-Length)
 Wend
 ProcedureReturn Result$
EndProcedure

Debug ChunkSplit("abcdefghi", 2, "...")