fonction split

[drill]

Bonjour,J'ai un problème avec la fonction split...je voudrais faire split(split(..), ...) mais j'ai un retour d'erreur...

[Stephane Maillard]

Bonjour,Quel est votre version de Notes et quel est le message d'erreur ?[%sig%]

[Stephane Maillard]

Re,Voici une fonction que j'ai écrite, peut être que cela réglera votre problème ublic Function RSSplit(ByVal inp_str As String, sep As Variant) As Variant Dim i As Integer Dim j As Integer Dim ret() As Variant If IsMissing(sep) Then sep = " " i = 1: j = 0 ReDim Preserve ret(j) Do While Mid(inp_str, i, 1) = sep i = i + 1 Loop Do If Not Mid(inp_str, i, 1) = sep Then ret(j) = ret(j) & Mid(inp_str, i, 1) i = i + 1 Else Do i = i + 1 Loop While Mid(inp_str, i, 1) = sep If i > Len(inp_str) Then Exit Do j = j + 1 ReDim Preserve ret(j) End If Loop While i <= Len(inp_str) RSSplit = retEnd Function[%sig%]

[drill]

merci mais le problème reste le même...si je fais split(split(), ) j'ai l'erreur "type mismatch"La fonction split retourne un variant et prend en entrée un string... je pense que ça vient de la l'erreur....

[drill]

j'ai domino v5, et mon message d'erreur "type mismatch"

[Sylvain]

Converti le variant en String dans ce cas, avec un CStrExemple : split(CStr(split()),... )[%sig%]