Concatenar textos e irlos guardando

[omegafunky]

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]

Código:

variable = "hola"
variable = variable & " mundo"
variable = variable & " coca"
variable = variable & " cola"

[Myakire]

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

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

[omegafunky]

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]

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!

[i_e_s27]

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

[Shiryu_Libra]

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

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

... sera esto factible.....

[u_goldman]

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

Salud

[Adler]

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]

como siempre muchas gracias por su ayuda amigos, asunto solucionado