ASP

[ASP] retour à la ligne forcé

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [ASP] retour à la ligne forcé

mrmask

Mask A Gaz

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 :

Code :

var="7809,7814,7827,7886,7900,7902,7920,7924,7934,7944,7946,7950,7952,7945,7949,7951"
function retour(x)
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 & " "
end if
end if
next
response.write position
end function
retour(var)

Je retrouve bien les position où je dois inserer un retour à la ligne, parcontre je n'arrive pas à remplacer cette virgule par un " ", 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

Publicité

olivthill

Essayer :

var="7809,7814,7827,7886,7900,7902,7920,7924,7934,7944,7946,7950,7952,7945,7949,7951"
function retour(x)
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 & " "
y = y & " "
else
y = y & mid(x,z,1)
end if
end if
next z
response.write position
x = y
end function

retour(var)

mrmask

Mask A Gaz

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

Message édité par mrmask le 25-07-2006 à 15:12:34

mrmask

Mask A Gaz

<%
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 & " "
y = y & ", "
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

Arjuna

Aircraft Ident.: F-MBSD

Plus simple, et certainement plus efficace :

Code :

Option Explicit
Dim tabVal, cpt, max
tabVal = Split("7809,7814,7827,7886,7900,7902,7920,7924,7934,7944,7946,7950,7952,7945,7949,7951", "," )
cpt = 1
max = UBound(tabVal)
Do While cpt < max
Response.Write tabVal(cpt)
If cpt Mod 5 = 0 Then
Response.Write " "
Else
Response.Write ","
End If
cpt = cpt + 1
Loop
Response.Write tabVal(cpt)

mrmask

Mask A Gaz

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

Arjuna

Aircraft Ident.: F-MBSD

ah ouais c'est possible ça

Arjuna

Aircraft Ident.: F-MBSD

utilise tabVal(cpt - 1) à la place

Tenebrae_Angelus

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.

FORUM HardWare.fr

Programmation

ASP

[ASP] retour à la ligne forcé

Sujets relatifs
[ASP] composant onglet pour le web	Retour de metode static assignée par reference
Requete Count() et affichage ASP	[HTML]Question rapide sur les textarea et les sauts de ligne
Probléme d'ASP	[ASP.NET] [Résolu] Limiter la taille de la textbox d'un boundfield
[C#.net] Aller à la ligne dans une textbox	[VBS] : comparaison de fichiers (ligne par ligne)
installer boutique en ligne	Répéter le numéro de la ligne suite à un compteur ?
Plus de sujets relatifs à : [ASP] retour à la ligne forcé

Page générée en 0.059 secondes