www_AndrEx_Tk
09 de Agosto del 2003

Hola a todos ojala alguien me pueda ayudar
necesito Concatenar Cadena De Caracteres caracter a caracter por ejemplo:
palabra 1 : Visual
palabra 2 : Basic

palabra concatenada : VBiassuiacl

si alguien pudiera ayudarme se lo agradeceria, Gracias..

Juan
09 de Agosto del 2003

Te voy a escribir una función así sobre la marcha, sin
probarla ni nada o sea que puede estar mal, de todas
formas ahí va:

private function mezclaCadenas(byval cadena1 as string, byval cadena2 as string) as string
Dim i1 as integer,i2 as integer
Dim fin1 as boolean, fin2 as boolean
i1=1
i2=1
fin1=false
fin2=false
do
if not fin1 then
mezclaCadenas = mezclaCadenas & mid$(cadena1,i1,1)
if (i1 < len(cadena1)) then
i1 = i1 + 1
else
fin1 = true
end if
end if
if not fin2 then
mezclaCadenas = mezclaCadenas & mid$(cadena2,i2,1)
if (i2 < len(cadena2)) then
i2 = i2 + 1
else
fin2 = true
end if
end if
loop while (not fin1) and (not fin2)
end function

En teoría esta función debe devolver la mezcla de cadena1 y cadena2