Fonction split sous Access 97

Bonjour,

Ici, une solution de remplacement pour Split & Join:
http://www.omegajunior.net/code/splitjoin.html
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour,
J'aimerais savoir si il existe un équivalent de la fonction split sous
access 97?
Bonne journée,
-Thom-

Bonjour,

Thom Thom wrote:

Bonjour,
J'aimerais savoir si il existe un équivalent de la fonction split sous
access 97?
Bonne journée,
-Thom-

Elle n'est pas dispo sous 97, il faut que tu passes par cette fonction qui
viendra combler ce manque :

-------------------------------------------------------------------------
Public Function fSplit(strSplit As String, strSep As String) As Variant


Dim L%, nb%, p%
Dim strResult As String
Dim varResult() As Variant


If IsNull(strSplit) Then
fSplit = Null
Else
strResult = strSplit
L = Len(strSep)
p = InStr(1, strSplit, strSep)
If p = 0 Then
fSplit = strSplit
Else
Do While p > 0
nb = nb + 1
ReDim Preserve varResult(nb)
varResult(nb - 1) = left(strResult, p - 1)
strResult = Mid(strResult, p + L)
p = InStr(1, strResult, strSep)
If p = 0 Then varResult(nb) = strResult
Loop
fSplit = varResult()
End If
End If
End Function


Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

merci pour l'info, ça marche bien!
Bonne journée,
-Thom-

Bonjour,

Ici, une solution de remplacement pour Split & Join:
http://www.omegajunior.net/code/splitjoin.html
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour,
J'aimerais savoir si il existe un équivalent de la fonction split sous
access 97?
Bonne journée,
-Thom-

Merci pour ta réponse!
-Thom-

Bonjour,

Thom Thom wrote:

Bonjour,
J'aimerais savoir si il existe un équivalent de la fonction split sous
access 97?
Bonne journée,
-Thom-

Elle n'est pas dispo sous 97, il faut que tu passes par cette fonction qui
viendra combler ce manque :

-------------------------------------------------------------------------
Public Function fSplit(strSplit As String, strSep As String) As Variant


Dim L%, nb%, p%
Dim strResult As String
Dim varResult() As Variant


If IsNull(strSplit) Then
fSplit = Null
Else
strResult = strSplit
L = Len(strSep)
p = InStr(1, strSplit, strSep)
If p = 0 Then
fSplit = strSplit
Else
Do While p > 0
nb = nb + 1
ReDim Preserve varResult(nb)
varResult(nb - 1) = left(strResult, p - 1)
strResult = Mid(strResult, p + L)
p = InStr(1, strResult, strSep)
If p = 0 Then varResult(nb) = strResult
Loop
fSplit = varResult()
End If
End If
End Function


Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Hello Thom,

et une petite dernière ...
http://access.developpez.com/sources/?page=Fonction97#FonctionSplit97

:)
tu as actuellement 100 codes sources réutilisables sur cette adresse : http://access.developpez.com/sources/
et plus de 600 Q/R dans la FAQ .... le tout, avec un moteur de recherche !

Elle est pas belle la vie ?

++

================== Maxence HUBICHE

MVP Access
Revendeur CaseStudio (http://www.casestudio.fr)
Responsable Access sur http://www.developpez.com
La plus grosse FAQ Access du Web : http://access.developpez.com/faq
Plusieurs dizaines de codes sources Access : http://access.developpez.com/sources/

Bonjour,
J'aimerais savoir si il existe un équivalent de la fonction split sous
access 97?
Bonne journée,
-Thom-