Foros del Web - Concatenar textos e irlos guardando

Foros del Web (http://www.forosdelweb.com/)

- ASP Clásico (http://www.forosdelweb.com/f15/)

- - Concatenar textos e irlos guardando (http://www.forosdelweb.com/f15/concatenar-textos-e-irlos-guardando-572406/)

omegafunky

03/04/2008 17:04

Concatenar textos e irlos guardando

hola amigos necesito hacer un FOR e ir guardando unas cadenas de texto, sera que eiste una forma de hacerlo como en PHP k es:

variable = hola
Variable =. mundo
variable =. coca
variable =. cola

y cuando imprimes la variable te da algo como esto:

hola mundo coca cola

ay algo parecido en asp?

AlZuwaga

03/04/2008 17:50

Re: Concatenar textos e irlos guardando

Código:

variable = "hola"

variable = variable & " mundo"

variable = variable & " coca"

variable = variable & " cola"

Myakire

03/04/2008 18:11

Re: Concatenar textos e irlos guardando

Otra forma más "chinhuenhuenchona" :-D, aunque en realidad no se si se pueda llamar concatenación :pensando:

variable = join(Array("hola","mundo","coca","cola"))

omegafunky

04/04/2008 09:50

Re: Concatenar textos e irlos guardando

bueno gracias por su ayuda amigos hice algo con un for solo que ahora tengo un problema porque me queda una ",", ay alguna funcion para quitar el ultimo valor de una cadena? este es mi codigo

Código PHP:

   <%
    
    SQL = "INSERT INTO levan_req_espec (campos) VALUES (valores)"
    for i=1 to 13
    Requiere_Basico = Requiere_Basico & "Requiere_Basico_"&i&", "
    Requiere_Intermedio = Requiere_Intermedio & "Requiere_Intermedio_"&i&", "
    Requiere_Avanzado = Requiere_Avanzado & "Requiere_Avanzado_"&i&", "
    
    Requiere_Basico_R = Requiere_Basico & "request('Requiere_Basico_"&i&"'), "
    Requiere_Intermedio_R = Requiere_Intermedio & "request('Requiere_Intermedio_"&i&"'), "
    Requiere_Avanzado_R = Requiere_Avanzado & "request('Requiere_Avanzado_"&i&"'), "

    next
    Campos = Requiere_Basico & Requiere_Intermedio & Requiere_Avanzado
    valores = Requiere_Basico_R & Requiere_Intermedio_R & Requiere_Avanzado_R

    SQL = Replace(SQL, "campos", Campos)
    SQL = Replace(SQL, "valores", Valores)
    response.Write SQL 
    
    %>

i_e_s27

04/04/2008 09:59

Re: Concatenar textos e irlos guardando

Y porque en vez de & ", " pones un if, diciendo: si i es distinto a 13 (que es tu ultimo i) entonces ahi si que te escriba & ", " sino que no no escriba nada.

O sino con la funcion Right o Left y Len puedes sacar los ultimos 2 caracteres (la coma y el espacio)

Saludos! :adios:

i_e_s27

04/04/2008 10:03

Re: Concatenar textos e irlos guardando

Ahhh... y otra cosa... para que pones arriba del todo

SQL = "INSERT INTO levan_req_espec (campos) VALUES (valores)"

y abajo le haces un replace

SQL = Replace(SQL, "campos", Campos)
SQL = Replace(SQL, "valores", Valores)

Si puedes poner en el lugar del replace directamente:

SQL = "INSERT INTO levan_req_espec " & Campos & " VALUES " & Valores

Es solo para ahorrarte lineas de codigo, ademas es un poquito menos de procesamiento :si:

Shiryu_Libra

04/04/2008 11:55

Re: Concatenar textos e irlos guardando

si en el resultado final de tu concatenacion te aparece una coma...

Cita:

if right(variable,1)="," then variable = left(variable,len(variable)-1)

:pensando:... sera esto factible.....

u_goldman

04/04/2008 12:25

Re: Concatenar textos e irlos guardando

:pensando: Pero en realidad el if no es necesario, pues siempre saldrá del for con una coma al final ¿no?

Salud

Adler

06/04/2008 07:15

Re: Concatenar textos e irlos guardando

Prueba así a ver que tal

for i=1 to 13
if i <> 1 then
coma = ", "
end if
Requiere_Basico =coma & "Requiere_Basico_"& i
if i <> 0 then
coma2 = ", "
Requiere_Intermedio =coma2 & "Requiere_Intermedio_"& i
end if
if i <> 0 then
coma3 = ", "
Requiere_Avanzado = coma3 & "Requiere_Avanzado_"& i
end if

Suerte

omegafunky

07/04/2008 14:48

Re: Concatenar textos e irlos guardando

como siempre muchas gracias por su ayuda amigos, asunto solucionado :-D

La zona horaria es GMT -6. Ahora son las 23:44.