Voici une petite fonction qui sert à découper une chaîne de caractère, pour l'utiliser, passer en paramètre la chaîne à découper, puis le delimiteur (ex : "/") ensuite quel morceau de la chaîne vous désirez (ex : 3)
Source / Exemple :
function decouperChaine(chaineAdecouper, delimiteur, morceau)
dim t,at
dim r
dim fin
if morceau<1 then morceau =1
fin=false
at=-1
t=0
for r=1 to morceau
if at=>t then
fin=true
exit for
end if
at=t
t=instr(at+1,stringIn,delimiteur)
next
if fin then
decouperChaine = null
elseif t=0 then
decouperChaine = mid(stringIn,at+1)
else
decouperChaine = mid(stringIn,at+1,t-(at+1))
end if
end function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.