[Resolvido] Retirar virgula

[igadino 0]

Galera estou tentando tirar a virgula da ultima palavras

Ex: no banco se for listado

Assessor, Assistente, Auxiliar,

tem que aparecer assim

Assessor, Assistente, Auxiliar.

<%
			sigla_banco = RecSet1("perfil_nivel")
			sigla_bancoo = Split(sigla_banco,",")
			For A = LBOUND(sigla_bancoo) To UBOUND(sigla_bancoo)
			IF sigla_bancoo(A) = 01 then
			uf="Analista"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 02 then
			uf="Assessor"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 03 then
			uf="Assistente"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 04 then
			uf="Auxiliar"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 05 then
			uf="Comprador"
			ElseIF sigla_bancoo(A) = 06 then
			uf="Consultor"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 07 then
			uf="Coordenador"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 08 then
			uf="Diretoria"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 09 then
			uf="Especialista"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 10 then
			uf="Estagiário"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 11 then
			uf="Gerência"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 12 then
			uf="Operacional"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 13 then 
			uf="Outros"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 14 then
			uf="Profissional Liberal"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 15 then
			uf="Secretária(o)"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 16 then
			uf="Supervisão"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 17 then
			uf="Trainee"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 18 then
			uf="Técnico"
			Response.Write(uf&", ")
			ElseIF sigla_bancoo(A) = 19 then
			uf="Vendedor"
			Response.Write(uf&", ")
			End IF
			Next
			%>

[webmind 5]

Sou novo aqui neste subforum ASP, mas vou tentar ajudar

 

<%
'aqui depois e so voce trocar pelos valores corretos
variavel="Assessor, Assistente, Auxiliar, Teste ."
'vai buscar o tamanho da string e recua uma casa
ultimo=(Len(variavel)-1)
'depois vai buscar a string ate ao ultimo caracter antes da virgula e adiciona-lhe um ponto
response.write(Left(variavel,ultimo)&".")

%>

[hargon 64]

O ideal é você armazenar tudo em uma variável (ao invés de usar response.write) e fazer o que o webmind sugeriu.

 

Ex. uf = uf & "Vendedor,"

 

Quando sair do FOR, você faz: response.write(Left(uf,(Len(uf)-1))&".")

 

Qualquer dúvida poste aqui.

 

 

 

Obs. igadino, avise quando sua dúvida for solucionada, pois você criou um outro tópico, teve várias soluções e você não deu retorno aos membros que postaram.

[augustoclaro 2]

tenta assim:

 

qndo puxar do banco de dados, guarde em qualquer variavel (variavel "texto neste exemplo"):

 

<%
texto = "a,b,c,d,e,f,"
a = right(texto,1)
if a = "," then
texto = mid(texto,1,len(texto)-1)&"."
end if
%>

EDIT:testei... funciono... xD

[igadino 0]

Pessoal assim tambem funciona mais faleu pela a força.

If  A  <> UBOUND(sigla_bancoo) Then
v = ", "
Else
v = "."
End If