Marcar código fuente

El siguiente código extrae dos

Strfrom es el código fuente.

Strto()' es el texto de salida.

Strtocount es el número de palabras generadas.

Hasta instr(1,strfrom,"<TD>)=0

strfrom=mid(strfrom,instr(1,strfrom,"<TD>)+4)

si instr(1,strfrom,"</td>)> entonces 0

strtocount=strtocount+1

redim strto(1 to strtocount) permanecerá como cadena

strto(strtocount)=mid(strfrom,1,instr(1,strfrom,"</TD>)>-1)

strfrom=mid(strfrom, instr(1, strfrom", & lt/TD >)+5)

Terminará si...

Bucle

Dado que no hay un sistema VB, hay sin prueba. El principio es este.