{NeoBook Function}
Version=5,60
Language=NeoBook
Comment=Por josevdr95   (neo_html_parse3_links)|---------------------------------------------------------|Extrae los links de un html (href-src)|---------------------------------------------------------
Param=[%url]|FileName| Direccin web (URL)
Param=[%n_lista]|FileName|Nombre de la lista
{End}
.descargamos el cdigo html
InternetGet "[%url]" "[Code_tmp]" "Async"
.guardamos el cdigo html en un archivo
FileWrite "[TempDir]code_tmp" "All" "[Code_tmp]"
.contamos las lineas del archivo
FileLen "[TempDir]code_tmp" "[L_code_tmp]"
.iniciamos el loop
Loop "1" "[L_code_tmp]" "[i]"
.leemos datos linea por linea
FileRead "[TempDir]code_tmp" "[i]" "[v_[i]]"
.contamos la cantidad de caracteres de la linea leda
StrLen "[v_[i]]" "[LC_V]"
.buscamos las posiciones de los link
SearchStr "href=" "[v_[i]]" "[c_[i]]" ""
SearchStr "src=" "[v_[i]]" "[c2_[i]]" ""
.comparamos haber si existen coincidencias
IfEx "[c_[i]] > 0 or [c2_[i]] > 0"
.si la condicin se cumple extraemos la cadena
SubStr "[v_[i]]" "[c_[i]]" "[LC_V]" "[v_[i]]"
.si la condicin se cumple extraemos la cadena
SubStr "[v_[i]]" "[c2_[i]]" "[LC_V]" "[v_[i]]"
.contamos la longitud de la 2da coincidencia
StrLen "[v_[i]]" "[LC_V2]"
.buscamos el carcter final
SearchStr ">" "[v_[i]]" "[P_2]" ""
.aumentamos en 1 el valor encontrado
Math "[P_2]+1" "-1" "[P_2]"
.borramos caracteres despus del ">"
StrDel "[v_[i]]" "[P_2]" "[LC_V2]" "[v_[i]]"
.aadimos a la lista uno por uno
ListBoxAddItem "[%n_lista]" "0" "[v_[i]]"
.FileWrite "D:\link2.txt" "Append" "[v_[i]]"
.Pro
.Math "100/[L_code_tmp]*[i]" "0" "[Pro_v]"
.SetVar "[Pro_v]" "[Pro_v]%"
Else
EndIf
Endloop
.tamao de la lista
ListBoxSize "[%n_lista]" "[T_LISTA_OK]"
.borramos tmp y variables
FileErase "[TempDir]code_tmp"
DeleteArray "[v_]" "All"
DeleteArray "[c_]" "All"
DeleteArray "[c2_]" "All"
ClearVariables "[Code_tmp]"
ClearVariables "[L_code_tmp]"
ClearVariables "[i]"
ClearVariables "[LC_V]"
ClearVariables "[LC_V2]"
ClearVariables "[P_2]"
ClearVariables "[v_[i]]"
