Bonjour,
 
j'ai une chaine :
7809,7814,7827,7886,7900,7902,7920,7924,7934,7944,7946,7950,7952,7945,7949,7951
 
je voudrais faire un retour à la ligne toutes les 5 virgules :
 
7809,7814,7827,7886,7900
7902,7920,7924,7934,7944
7946,7950,7952,7945,7949
7951
 
j'ai fait cette fonction :
 

 
Je retrouve bien les position où je dois inserer un retour à la ligne, parcontre je n'arrive pas à remplacer cette virgule par un "<br>", car la fonction replace si on spécifie l'endroit de depart ne retourne pas le champ en entier
 
Si qqu'un à une idée merci

Essayer :

Erreur de compilation Microsoft VBScript (0x800A0401)
Fin d'instruction attendue
test.asp, line 42, column 5
 
j'ai viré le "next z" en "next"
 
marche po
 
l'idée est bonne je reessaye

<%
var="7809,7814,7827,7886,7900,7902,7920,7924,7934,7944,7946,7950,7952,7945,7949,7951"  
function retour(x)  
    dim y
 y = ""  
    virgule=0  
    for z=1 to len(x)  
       
     if mid(x,z,1)="," then  
   
            virgule=virgule+1  
       
    if virgule mod 5=0 then  
       'response.write "brake position : " & z & "<br>"  
     y = y & ",<br>"  
     else
      y = y & mid(x,z,1)  
    end if  
     
   else  
            y = y & mid(x,z,1)  
        end if  
   
    next  
 
 response.write y  
end function  
 
retour(var)  
 
%>
 
 
j'ai rajouté un second else et deplacé un autre
bref ca marche
Merci

Plus simple, et certainement plus efficace :
 

cpt = 1
faut le mettre à 0 sinon on perd le 1er enregistrement
 
du coup on a retour à la ligne des le debut faut enfait tester uniquement appartir de 1
 
7809
7814,7827,7886,7900,7902
7920,7924,7934,7944,7946
7950,7952,7945,7949,7951

ah ouais c'est possible ça

utilise tabVal(cpt - 1) à la place

Bonjour,
 
Ajoute une autre condition >> If cpt Mod 5 = 0  and cpt > 0 then, ça devrait régler ce petit pb!  
 
A bientôt.
 
Sylvain.