DÉCOUPER UNE CHAINE DE CARACTÈRE

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