SPLIT

calipsso · 14 Avril 2005

Bonjour,

Quelqu'un pourrait-il m'aider pour créer une fonction split. Thierry a déjà fait un projet pareil.

D'avance merci pour vos réponses
😉

Eric C · 14 Avril 2005

Bonjour le forum
Bonjour calipsso

Tu n'es pas sur le bon forum.
Pas certain d'avoir cerné ton problème mais si l'instruction intervient dans un de tes prog qui tourne sous XL97 il est exact que ça ne fonctionnera pas - Donc, je te joint une fonction (Qui n'est pas de moi) dite de substitution

Function split_97(chaine$, separateur$)
Dim tablo(), pos%, s$
s = Trim(chaine): ReDim tablo(0)
recurse:
pos = InStr(1, s, separateur)
If pos = 0 Then
tablo(UBound(tablo)) = s
split_97 = tablo()
Exit Function
Else
tablo(UBound(tablo)) = Left(s, pos - 1)
s = Right(s, Len(s) - pos)
ReDim Preserve tablo(UBound(tablo) + 1)
GoTo recurse
End If
End Function

😉

SPLIT

calipsso

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

Discussions similaires

SPLIT

calipsso

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency