[R] Diviseur de chaîne de caractère

[L4crymal]

Bonjour, aujourd'hui je cherche à savoir comment diviser une chaîne de caractère tel que:

la fonction prend 2 paramètres : la chaîne et le nombre de fois qu'elle sera divisée

tel que la chaîne gogogosupercoolyo (17 caractère) divisé en 5 soit : gogo/gosu/perc/ooly/o


Merci d'avance

[orax]

Code : Tout sélectionner

Func sesame_divise_toi($chaine, $nb, $round = 1)
    Local $nb = Round(StringLen($chaine) / $nb) + $round

    Return StringRegExpReplace($chaine, ".{" & $nb & "}", "\0/")
EndFunc

[L4crymal]

Magnifique merci.