Cita: Mensaje Original por joanco
Se que la respuesta es un poco absurda, pero no te sirve la funcion InStr?
Joanco, la propuesta no es para nada absurda. Todo me sirve. Es más, ya lo había pensado más o menos así:
For i = 0 to ubound(subcadena)
If instr(cadena_original, subcadena(i)) = 0 then cadena_original = cadena_original & “,” & subcadena(i)
Next
Con lo que estaría usando sólo un arreglo y no 2 como pensé en la idea que tenía al escribir el primer mensaje.
Ahora mismo, escribiendo esto, se me ocurre que el script podría identificar cuál de los dos strings es el que contiene menos caracteres y convertirlo en un arreglo dejando el más largo para efectuarle las comparaciones. De esta manera el arreglo estaría ocupando menos en memoria al ser el más chico en elementos y las comparaciones serían las menores posibles.
Te digo más... voy a intentarlo de esa manera y probarlo en casos bastantes extremos a ver cómo reacciona y cuanto demora.