Tirar Virgulas A Mais.....

[Guest Guest]

ai galera meu codigo é esse:

sub users()
strSQL = "SELECT * FROM Online where usuario<>'guest' and pagina='" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "' "
Set Rs = Conexao.Execute(strSQL)
response.write "Membro(s) conectado(s): "
while not Rs.eof

if Rs("funcao")="admin" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"

elseif Rs("funcao")="mod" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"

elseif Rs("funcao")="supermod" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"

else
cor="<b><font color=black>"& LCase(Rs("usuario"))&"</b></font>@"

end if

Rs.movenext
contari=split(cor,"@")
For i = Lbound(Contari) To UBound(Contari)
Response.Write (i)&", "

Next
wend

Rs.Close
Set Rs = Nothing
end sub 

ele ta escrevendo duas virgulas depois do nome.... e no ultimo ta colocando também.... queria que ficasse que nem aqui na sb... aparece o nome e uma virgula depois... e no ultimo não aprecer nada ex:

membros conectados: fulano, ciclano, etc, tal

[Bicicleta]

veja se consegue entender a lógica:

<%

valor = "fulano, ciclano, etc, tal,"

Response.Write Left(valor, 1, Len(valor)-1)

%>

isso tira o último caracter do texto, portanto a última vírgula não sai!

[]s

[Guest Guest]

nem deu o como ficou:

end if

Rs.movenext

contari=split(cor,"@")
For i = Lbound(Contari) To UBound(Contari)-1
tecoteco=contari(i)&",  "
Next
response.write left(tecoteco,len(tecoteco)-1)


wend

como agrupo todos na mesma variavel??? que ai com o left dava!!

[dark0]

end if

Rs.movenext

contari=split(cor,"@")

For i = Lbound(Contari) To UBound(Contari)-1

tecoteco = tecoteco + contari(i) + ",  "

Next

response.write left(tecoteco,len(tecoteco)-1)

wend

Serve?

[Bicicleta]

ai Dark, desculpa a intromissão...

Só uma dúvida, o + também concatena no Asp ou você confundiu com JS ou assim como eu também tá estudando .Net ?

hehehehehe

nunca testei isso, funciona ????

[Guest Guest]

nem deu dark....

ele tira a virgula de todos os nomes... não só do ultimo...

[dark0]

ai Dark, desculpa a intromissão...

Só uma dúvida, o + também concatena no Asp ou você confundiu com JS ou assim como eu também tá estudando .Net ?

hehehehehe

nunca testei isso, funciona ????

funciona sim bicicleta..

eu só uso o "+" pra concatenar.. acostumei.. hehe

[dark0]

o que é contari?

de onde vem estes dados?

o que tem nessa variavel?

o que você quer fazer com o split ali?

tem alguma coisa que não ta encaixando aí..

aquilo que passei, nada mais é.. do que uma simples concatenação de strings.

se não funcionou, é porque tem algo a mais errado aí!

até onde você havia chegado? como os dados ficavam?

[Guest Guest]

ae dark... hehe da uma olhada lá..

http://www5.domaindlx.com/bareta/online/on...superbareta.asp

sou o bareta mais não logei..... é aquele meu sistema...

[dark0]

certo bareta.

agora..

Qual é o problema?

É só a virgula do final?

Se sim, posta o codigo que esta la agora.

Pra ver.. vai ser algo com IF .

[bareta]

agora esta...

sub users()
strSQL = "SELECT * FROM Online where usuario<>'guest' and pagina='" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "' "
Set Rs = Conexao.Execute(strSQL)
response.write "Membro(s) conectado(s): "
while not Rs.eof

if Rs("funcao")="admin" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"

elseif Rs("funcao")="mod" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"

elseif Rs("funcao")="supermod" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"

else
cor="<b><font color=black>"& LCase(Rs("usuario"))&"</b></font>@"

end if




contari=split(cor,"@")
For i = Lbound(Contari) To UBound(Contari)-1
tecoteco = tecoteco + contari(i) + ",  "

Next

response.write left(tecoteco,len(tecoteco)-1)

Rs.movenext
wend


Rs.Close
Set Rs = Nothing
end sub 

call users()

[bareta]

hehehe... resolvi.... era muito facil

cor2=""

while not Rs.eof

if Rs("funcao")="admin" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>, "

elseif Rs("funcao")="mod" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>, "

elseif Rs("funcao")="supermod" then
cor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>, "

else
cor="<b><font color=black>"& LCase(Rs("usuario"))&"</b></font>, "

end if


cor2=cor+cor2


Rs.movenext
wend

response.write left(cor2,Len(trim(cor2))-1)
Rs.Close