【正文】
/ amp。 Wfile Set fs = CreateObject() Set a = (Wfile2) ct = ct2=lcase(ct) SearchTerm2 = lcase(SearchTerm) if instr(ct2,SearchTerm2)0 then if instr(ct,/title)0 then longitud=instr(ct,/title) longitud=longitud 1 ct=left(ct,longitud) longitud2=len(ct) longitud=instr(ct,title) longitud=longitud2 longit