Elvira......
¿Por qué haces todos esos "replace"? Me refiero a que no seria más fácil convertirlo todo a minúsculas?
esta es una forma de hacerlo, recuerda que se crea una comparación de lo que posiblemente encontrariamos en los valores meta de la url a indexar. Por lo que es posible (la voz de la experiencia) que al comparar las cadenas nos encontermos con por ejemplo:
"<meta name=keywords" que es diferente a
"<meta name=""keywords""" cierto verdad si este patron de comparación no existe, el spider sencillamente no arrojara los meta de las página a indexar.
por lo que he colocado los errores mas comunes en la estructura de los meta, pero admito es una forma de hacerlo, por lo que se aceptan sugerencias......
Explica también lo que haces con key1, key2, desc1, desc2... pleaseeeee
if InStr(1, strFileContents, "<meta name=""keywords""",1) > 0 then
key1 = InStr(1, strFileContents, "<meta name=""keywords""", 1)
key1 = key1 + Len("<meta name=""keywords""")
key2 = InStr(key1, strFileContents, """>", 1)
supongamos que la página no tiene Keywords sencillamente no se cumple la condición, el valor arrojado es 0
if InStr(1, strFileContents, "<meta name=""keywords""",1) > 0
por otro parte si se cumple:
supongamos que InStr no da la posición en la que se encuentra
"<meta name=""keywords"""
supongamos que es
355 almacenamos este valor en key1
la instrucción siguiente nos da el numero de caracter de la cadena y los suma a el resultado anterior.
"<meta name=""keywords""" = 21
355 + 21 = 376 la posición exacta en donde comienzan la palabras clave.
¿que hago con todo esto?, muy simple:
almaceno en la variable key2 la posición en la que se encuentra el cierre del valor del meta es decir:
""">"
por supuesto buscado desde el comienzo de los valores del meta buscado(376=key1)
key2 = InStr(key1, strFileContents, """>", 1)
supongamos que el valor arrojado es
520
entonces ya conseguimos el comienzo y fin exacto del contenido del METANAME KEYWORDS, serian:
376 <aqui estan las palabras claves> 520
entonces:
obtenemos el contenido con
keywords = Trim(Mid(strFileContents,
key1 , (
key2 - key1 )))
esto lo utilizo en la busqueda de todos lo meta.................
mid (cadena, inicio, longitud). Devuelve una subcadena de otra, empezando por inicio y de longitud
el inicio de la cadena:
476 , la longitud
520-476
Elvira el asunto creo que radica en entender los parametros de
INSTR .......
INSTR (comienzo, cadena 1, cadena 2)
Busca la primera aparición de la cadena 2 dentro de la cadena 1. Los parámetros comienzo y comparación son opcionales. El parámetro comienzo indica a partir de que carácter de la cadena 1 se empieza a buscar la cadena 2. Si se omite, la búsqueda se inicia desde el primer carácter.
Un verdadero placer haber compartido todo esto con tu persona
