Red de conocimiento informático - Material del sitio web - Se necesita con urgencia el problema de extraer el valor de la etiqueta td en el código fuente html en vb

Se necesita con urgencia el problema de extraer el valor de la etiqueta td en el código fuente html en vb

El siguiente código extrae los caracteres entre dos etiquetas lt;dtgt; (la última en realidad es lt;/dtgt;)

'strfrom' es el código fuente

'strto ( )' es el texto de salida

'strtocount' es el número de texto de salida

hacer hasta instr(1,strfrom,"lt;tdgt;")=0

strfrom=mid(strfrom, instr(1,strfrom,"lt;tdgt;") 4)

if instr(1,strfrom,"lt;/tdgt;") gt;0 entonces

strtocount=strtocount 1

redim guarda strto(1 en strtocount) como una cadena

strto(strtocount)=mid(strfrom, 1, instr(1 ,strfrom,"lt;/tdgt;")gt;-1)

strfrom=mid(strfrom,instrr(1,strfrom,"lt;/tdgt;") 5)

end if

bucle

Debido a que no hay un sistema vb, no hay prueba. El principio es así

.