Extractor de enlaces

Aplicaciones de código fuente abierto para descargar

Extractor de enlaces

Notapor Joe » Vie Jun 20, 2008 11:05 pm

Otro programita, este si que me dio trabajo, tiene muchos bugs aun, si alguien se anima a corregirle los errores ( ErikH ;-) ) estaria buenisimo, yo estoy sin tiempo:

Código: Seleccionar todo
'Archivo generado por Visual Pauscal
'El código de los eventos y demás procedimientos
'se encuentra al final de este archivo

$ADV-

Importar "PauscalW.prp"



Clase c_corrector(pscForm)
Público:

  ClaseVar _
    sahm:pscBoton, _
    sloraiz:pscBoton, _
    tpam:pscTemporizador, _
    ce:pscEtiqueta, _
    ava1:pscEtiqueta, _
    clin:pscEtiqueta, _
    enla:pscCajaTexto, _
    gu:pscBoton, _
    ab:pscBoton, _
    rt:pscBoton, _
    comenzar:pscBoton, _
    fonava2:pscEtiqueta, _
    fonava:pscCajaTexto, _
    t2:pscEtiqueta, _
    t1:pscEtiqueta, _
    f1:pscBoton, _
    Control5:pscEtiqueta, _
    Control4:pscCajaTexto, _
    Control7:pscEtiqueta, _
    Control6:pscCajaTexto

Privado:
'Declaraciones

  ClaseVar nomar,buuf,arc,Lineas[], enlaces[]:Cadena
  ClaseVar ObjDiálogo:pscDialogo
  ClaseVar d,tipgu:EnteroSig
  ClaseVar va:Booleano
  ClaseVar sim,ca:Booleano

  Proc Init
    X=0
    Y=0
    Ancho=638
    Alto=480
    Texto="Extractor de enlaces []"
    Visible=Verd
    Habilitado=Verd
    PuedeCambiarDeTamaño=Verd
    BotonMaximizar=Falso
    BotonMinimizar=Verd
    MenuSistema=Verd
    Centrar=Verd
    Borde=Verd
    Eval Eventos
      .AlCerrarse@=f0_Form_AlCerrarse@
      .AlCargarse@=f0_Form_AlCargarse@
    FinEval
    CrearForm
    Crear sahm
    Eval sahm
      .Padre = EsteObjeto
      .X=282
      .Y=6
      .Ancho=66
      .Alto=24
      .Texto="Sin html"
      .Tipo=0
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlCliquear@=f0_sahm_AlCliquear@
      FinEval
    FinEval
    Crear sloraiz
    Eval sloraiz
      .Padre = EsteObjeto
      .X=214
      .Y=6
      .Ancho=66
      .Alto=24
      .Texto="Raiz"
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlCliquear@=f0_sloraiz_AlCliquear@
      FinEval
    FinEval
    Crear tpam
    Eval tpam
      .Padre = EsteObjeto
      .X=4
      .Y=64
      .Ancho=30
      .Alto=30
      .Bloquear=Verd
      .Habilitado=Verd
      .Intervalo=1
      Eval .Eventos
        .AlTranscurrirIntervalo@=f0_tpam_AlTranscurrirIntervalo@
      FinEval
    FinEval
    Crear ce
    Eval ce
      .Padre = EsteObjeto
      .X=114
      .Y=40
      .Ancho=84
      .Alto=16
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear ava1
    Eval ava1
      .Padre = EsteObjeto
      .X=210
      .Y=40
      .Ancho=0
      .Alto=16
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
      FinEval
    FinEval
    Crear clin
    Eval clin
      .Padre = EsteObjeto
      .X=8
      .Y=40
      .Ancho=90
      .Alto=16
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
      FinEval
    FinEval
    Crear enla
    Eval enla
      .Padre = EsteObjeto
      .X=2
      .Y=62
      .Ancho=628
      .Alto=390
      .Tipo=3
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Nombre="Courier"
      .Fuente.Tamaño=10
      Eval .Eventos
      FinEval
    FinEval
    Crear gu
    Eval gu
      .Padre = EsteObjeto
      .X=350
      .Y=6
      .Ancho=66
      .Alto=24
      .Texto="Guardar"
      .Tipo=0
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_gu_AlCliquear@
      FinEval
    FinEval
    Crear ab
    Eval ab
      .Padre = EsteObjeto
      .X=8
      .Y=6
      .Ancho=68
      .Alto=24
      .Texto="Abrir"
      .Tipo=0
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_ab_AlCliquear@
      FinEval
    FinEval
    Crear rt
    Eval rt
      .Padre = EsteObjeto
      .X=146
      .Y=6
      .Ancho=66
      .Alto=24
      .Texto="Reset"
      .Tipo=0
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_rt_AlCliquear@
      FinEval
    FinEval
    Crear comenzar
    Eval comenzar
      .Padre = EsteObjeto
      .X=78
      .Y=6
      .Ancho=66
      .Alto=24
      .Texto="Extraer"
      .Tipo=0
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_comenzar_AlCliquear@
      FinEval
    FinEval
    Crear fonava2
    Eval fonava2
      .Padre = EsteObjeto
      .X=210
      .Y=40
      .Ancho=418
      .Alto=16
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear fonava
    Eval fonava
      .Padre = EsteObjeto
      .X=208
      .Y=38
      .Ancho=422
      .Alto=20
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear t2
    Eval t2
      .Padre = EsteObjeto
      .X=634
      .Y=22
      .Ancho=73
      .Alto=17
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
      FinEval
    FinEval
    Crear t1
    Eval t1
      .Padre = EsteObjeto
      .X=634
      .Y=2
      .Ancho=73
      .Alto=17
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
      FinEval
    FinEval
    Crear f1
    Eval f1
      .Padre = EsteObjeto
      .X=2
      .Y=-6
      .Ancho=628
      .Alto=41
      .Tipo=1
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
      FinEval
    FinEval
    Crear Control5
    Eval Control5
      .Padre = EsteObjeto
      .X=4
      .Y=40
      .Ancho=98
      .Alto=16
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control4
    Eval Control4
      .Padre = EsteObjeto
      .X=2
      .Y=38
      .Ancho=102
      .Alto=20
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control7
    Eval Control7
      .Padre = EsteObjeto
      .X=108
      .Y=40
      .Ancho=96
      .Alto=16
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control6
    Eval Control6
      .Padre = EsteObjeto
      .X=106
      .Y=38
      .Ancho=100
      .Alto=20
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
  FinProc
Público:
  Proc CargarForm
    Si (hWnd=0)
      Init
      sahm.CargarBoton(hWnd)
      sloraiz.CargarBoton(hWnd)
      tpam.CargarTemporizador(hWnd)
      ce.CargarEtiqueta(hWnd)
      ava1.CargarEtiqueta(hWnd)
      clin.CargarEtiqueta(hWnd)
      enla.CargarCajaTexto(hWnd)
      gu.CargarBoton(hWnd)
      ab.CargarBoton(hWnd)
      rt.CargarBoton(hWnd)
      comenzar.CargarBoton(hWnd)
      fonava2.CargarEtiqueta(hWnd)
      fonava.CargarCajaTexto(hWnd)
      t2.CargarEtiqueta(hWnd)
      t1.CargarEtiqueta(hWnd)
      f1.CargarBoton(hWnd)
      Control5.CargarEtiqueta(hWnd)
      Control4.CargarCajaTexto(hWnd)
      Control7.CargarEtiqueta(hWnd)
      Control6.CargarCajaTexto(hWnd)
      FormCargado
    FinSi
  FinProc
  Proc Mostrar(Opcional EsModal:Booleano)
    CargarForm
    Si (EsModal) MostrarModalInt; SiNo; MostrarInt
  FinProc

'Eventos

  Proc sahm_AlCliquear() Adelantado
  Proc sloraiz_AlCliquear() Adelantado
  Proc tpam_AlTranscurrirIntervalo() Adelantado
  Proc gu_AlCliquear() Adelantado
  Proc ab_AlCliquear() Adelantado
  Proc rt_AlCliquear() Adelantado
  Proc comenzar_AlCliquear() Adelantado
  Proc Form_AlCerrarse(Referencia Cancelar:Booleano) Adelantado
  Proc Form_AlCargarse() Adelantado
  Proc vera() Adelantado
  Proc QuitarEspacios(Tex:Cadena):Cadena Adelantado
  Proc sinhtml():Booleano Adelantado
  Proc pastarbt(Num:Entero) Adelantado
  Proc colacardat(Num:Entero) Adelantado

FinClase

'Alias

Proc f0_sahm_AlCliquear()
  corrector.sahm_AlCliquear()
FinProc
Proc f0_sloraiz_AlCliquear()
  corrector.sloraiz_AlCliquear()
FinProc
Proc f0_tpam_AlTranscurrirIntervalo()
  corrector.tpam_AlTranscurrirIntervalo()
FinProc
Proc f0_gu_AlCliquear()
  corrector.gu_AlCliquear()
FinProc
Proc f0_ab_AlCliquear()
  corrector.ab_AlCliquear()
FinProc
Proc f0_rt_AlCliquear()
  corrector.rt_AlCliquear()
FinProc
Proc f0_comenzar_AlCliquear()
  corrector.comenzar_AlCliquear()
FinProc
Proc f0_Form_AlCerrarse(Referencia Cancelar:Booleano)
  corrector.Form_AlCerrarse(Cancelar)
FinProc
Proc f0_Form_AlCargarse()
  corrector.Form_AlCargarse()
FinProc

Clase c_Form1(pscForm)
Público:

  ClaseVar _
    abrt:pscBoton, _
    acpt:pscBoton, _
    Control4:pscEtiqueta, _
    Control3:pscEtiqueta, _
    aet2:pscEtiqueta, _
    aet1:pscEtiqueta

Privado:
  Proc Init
    X=0
    Y=0
    Ancho=238
    Alto=149
    Texto="Guardar como"
    Visible=Falso
    Habilitado=Verd
    PuedeCambiarDeTamaño=Falso
    BotonMaximizar=Falso
    BotonMinimizar=Falso
    MenuSistema=Falso
    Centrar=Verd
    Borde=Verd
    Eval Eventos
      .AlCargarse@=f1_Form_AlCargarse@
    FinEval
    CrearForm
    Crear abrt
    Eval abrt
      .Padre = EsteObjeto
      .X=118
      .Y=92
      .Ancho=89
      .Alto=25
      .Texto="Abortar"
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlCliquear@=f1_abrt_AlCliquear@
      FinEval
    FinEval
    Crear acpt
    Eval acpt
      .Padre = EsteObjeto
      .X=18
      .Y=92
      .Ancho=89
      .Alto=25
      .Texto="Aceptar"
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlCliquear@=f1_acpt_AlCliquear@
      FinEval
    FinEval
    Crear Control4
    Eval Control4
      .Padre = EsteObjeto
      .X=80
      .Y=18
      .Ancho=122
      .Alto=16
      .Texto="Pagina web           (.htm)"
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control3
    Eval Control3
      .Padre = EsteObjeto
      .X=80
      .Y=52
      .Ancho=114
      .Alto=16
      .Texto="Archivo de texto    (.txt)"
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear aet2
    Eval aet2
      .Padre = EsteObjeto
      .X=46
      .Y=54
      .Ancho=10
      .Alto=10
      .Visible=Verd
      .Habilitado=Verd
      .Tipo=1
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlSoltarBotonMouse@=f1_aet2_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear aet1
    Eval aet1
      .Padre = EsteObjeto
      .X=46
      .Y=18
      .Ancho=10
      .Alto=10
      .Visible=Verd
      .Habilitado=Verd
      .Tipo=1
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlSoltarBotonMouse@=f1_aet1_AlSoltarBotonMouse@
      FinEval
    FinEval
  FinProc
Público:
  Proc CargarForm
    Si (hWnd=0)
      Init
      abrt.CargarBoton(hWnd)
      acpt.CargarBoton(hWnd)
      Control4.CargarEtiqueta(hWnd)
      Control3.CargarEtiqueta(hWnd)
      aet2.CargarEtiqueta(hWnd)
      aet1.CargarEtiqueta(hWnd)
      FormCargado
    FinSi
  FinProc
  Proc Mostrar(Opcional EsModal:Booleano)
    CargarForm
    Si (EsModal) MostrarModalInt; SiNo; MostrarInt
  FinProc

'Eventos

  Proc abrt_AlCliquear() Adelantado
  Proc acpt_AlCliquear() Adelantado
  Proc aet2_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc aet1_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc Form_AlCargarse() Adelantado

FinClase

'Alias

Proc f1_abrt_AlCliquear()
  Form1.abrt_AlCliquear()
FinProc
Proc f1_acpt_AlCliquear()
  Form1.acpt_AlCliquear()
FinProc
Proc f1_aet2_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form1.aet2_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_aet1_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form1.aet1_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_Form_AlCargarse()
  Form1.Form_AlCargarse()
FinProc


Var corrector:c_corrector
Var Form1:c_Form1

Proc CicloPrincipal
  Crear corrector
  Crear Form1
  corrector.CargarForm
  Form1.CargarForm
  corrector.Mostrar
  Programa.Ejecutar
FinProc


'**************************************************

'Código de eventos y procedimientos
'definidos por el usuario

Proc c_corrector.sahm_AlCliquear()
Si(sinhtml()=0)Mensaje("No se han extraido enlaces aún. "+crlf+"Realice esta tarea primero.",64,"Atención")

FinProc

Proc c_corrector.sloraiz_AlCliquear()
Var Sites[],Tmp,prt:Cadena, sl:Entero

AdmErr

Borrar Sites
Si(Longmat(enlaces)=0)Mensaje("No se han extraido enlaces aún. "+crlf+"Realice esta tarea primero.",64,"Atención"); Salir

Redim Sites, LongMat(enlaces)
Sites = enlaces

Tmp = ""
Contar sl = 0 a Límite(Sites)
    prt = BuscarDireccion(Sites[sl])
    Si(CadLong(prt)>0)Tmp = Tmp + prt +crlf
    ava1.ancho = CLM(sl,Fonava2.Ancho,Límite(Sites))
Seguir
ava1.ancho = 0
enla.Texto = Tmp

Controlar
FinAdmErr
FinProc

Proc c_corrector.tpam_AlTranscurrirIntervalo()
Var CAN,CAL:Entero

CAN = corrector.Ancho
CAL = corrector.Alto

Si(CAN>429)
 Enla.Ancho    = CAN - 9 - Enla.X
 Fonava.Ancho  = CAN - 9 - fonava.X
 Fonava2.Ancho = CAN - 9 - Fonava2.x - 3
''''''''''''''''''''''''''''''''''''''''''''''''
 sloraiz.x     = (CAN\2) - 2
 comenzar.x    = sloraiz.x - (68*2)
 rt.x          = sloraiz.x - (68*1)
 sahm.x        = sloraiz.x + (68*1)
''''''''''''''''''''''''''''''''''''''''''''''''''
 gu.x          = CAN - 16 - gu.Ancho
 f1.Ancho      = CAN - 9 - f1.X
 TaparFrame(f1,t1,t2)
SiNo
 Enla.Ancho      = 432 - 9 - Enla.X
 Fonava.Ancho    = 432 - 9 - fonava.X
 Fonava2.Ancho   = 432 - 9 - Fonava2.x - 3
''''''''''''''''''''''''''''''''''''''''''''''''
 comenzar.x    = 78
 rt.x          = 78+(68*1)
 sahm.x        = 78+(68*3)
 sloraiz.x     = 78+(68*2)
''''''''''''''''''''''''''''''''''''''''''''''''''
 f1.Ancho        = 432 - 9 - f1.X
 TaparFrame(f1,t1,t2)
 corrector.ancho = 432
FinSi

Si(CAL>250)
 Enla.Alto     = CAL - 28 - Enla.Y
SiNo
 Enla.Alto       = 250 - 28 - Enla.Y
 corrector.Alto  = 260
FinSi
FinProc

Proc c_corrector.gu_AlCliquear()
Var a, i:Entero, Dialogo:pscDialogo, rut, comi:Cadena, enlax:pscCadenas

comi = carac(546)
Si(enla.texto = "")Salir

Form1.Mostrar(1)
Si(tipgu = 0)Salir

Si(tipgu = 1)
  sinhtml()
  Crear enlax
  Contar i = 0 a Límite(enlaces)
   enlax.Agregar(enlaces[i])
  Seguir
''''''''''''''''''''''''''''''''''''''''''''''''''
  Si(LongMat(enlaces)=0)Salir
   Crear Dialogo
   Dialogo.Flags  = &4
   Dialogo.Título = "Guardar enlaces"
   Dialogo.Filtro = "Pagina web (*.htm)|*.htm|Todos los archivos (*.*)|*.*"
   Si(Dialogo.MostrarGuardar()=Falso)Salir
   Archivo = Nuevo pscArchivo
   Archivo.Nombre = QuitarExtensión(Dialogo.Archivo)+".htm"
   Archivo.CrearNuevo(Verd)
   rut = Reemplazar(QuitarExtensión(Dialogo.Archivo), SimplificarRuta(QuitarExtensión(Dialogo.Archivo)),"")+SimplificarRuta(QuitarExtensión(Dialogo.Archivo))+"_archivos"
   NuevaCarpeta(rut)
   Archivo.EscribirLínea("<FRAMESET cols=194,* rows="+comi+"*"+comi+"> ")
   Archivo.EscribirLínea("  <FRAME name=enlaces src="+comi+rut+"\Enlaces.htm"+comi+" width="+comi+"300"+comi+">")
   Archivo.EscribirLínea("  <FRAME name=centro>")
   Archivo.EscribirLínea("</FRAMESET>")
   Archivo.Cerrar
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Archivo = Nuevo pscArchivo
   Archivo.Nombre = rut+"\Enlaces.htm"
   Archivo.CrearNuevo(Verd)
   Archivo.EscribirLínea("<!-- Enlaces recopilados con la utilidad WKit2005 -->")
   Contar a = 0 a Límite(enlaces)
     Archivo.EscribirLínea("<a href=" +enlax.Item(a)+ "  target=" +comi+ "centro" +comi+ ">" +enlax.Item(a)+ "</a><br>")
   Seguir
   Archivo.Cerrar
''''''''''''''''''''''''''''''''''''''''''''''''''''''

SiNo
  Si(enla.texto <> "")
   Crear Dialogo
   Dialogo.Flags  = &4
   Dialogo.Título = "Guardar enlaces"
   Dialogo.Filtro = "Archivo de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
   Si(Dialogo.MostrarGuardar()=Falso)Salir
    Archivo=Nuevo pscArchivo
    Archivo.Nombre=QuitarExtensión(Dialogo.Archivo)+".txt"
    Archivo.CrearNuevo(Verd)
    Archivo.EscribirLínea("<-/ Enlaces recopilados con la utilidad WKit2005 \->")
    Archivo.EscribirLínea("")
    Archivo.EscribirCad(enla.texto)
    Archivo.Cerrar
  SiNo
  FinSi
FinSi

   'Contar i = 0 a Límite(enlaces)
   '  Archivo.EscribirLínea("<a href=" +enlaces[a]+ "  target=" +comi+ "centro" +comi+ ">" +enlaces[a]+ "</a><br>")
   'Seguir
FinProc

Proc c_corrector.ab_AlCliquear()
Var lee:Cadena, s:EnteroSig
Var Dialogo:pscDialogo

 Borrar Lineas
 Corrector.Texto = "Extractor de enlaces []"
 enla.texto = ""
 clin.Texto = ""
 ce.texto   = ""
 ava1.ancho = 0
 borrar enlaces
 Actualizar()
 s = 0

 Crear Dialogo
 Dialogo.Flags  = &4
 Dialogo.Título = "Abrir pagina"
 Dialogo.Filtro = "Paginas Web (*.htm)|*.htm|Todos los archivos (*.*)|*.*"
 Si(Dialogo.MostrarAbrir()=Falso)Salir
 Corrector.Texto = "Extractor de enlaces ["+SimplificarRuta(Dialogo.Archivo)+"]"

Si(ExisteArchivo(Dialogo.Archivo))
  Archivo=Nuevo pscArchivo
  Archivo.Nombre=Dialogo.Archivo
  Archivo.Abrir(Verd)
  Mientras Archivo.FinDeArchivo=Falso
  lee=CadMinus(Archivo.LeerLínea)
     Si (lee="")
     SiNo
        Redim preservar Lineas, s + 1
        Lineas[s] = lee
        s = s + 1
     FinSi
  FinMientras
  Archivo.Cerrar
SiNo
  Mensaje("Imposible abrir el archivo especificado",48,"Atención")
FinSi
clin.Texto = EntCad(s) + "  líneas"

FinProc

Proc c_corrector.rt_AlCliquear()
Actualizar()
Borrar Lineas
borrar enlaces
Corrector.Texto = "Extractor de enlaces []"
enla.texto      = ""
clin.Texto      = ""
ce.texto        = ""
ava1.ancho      = 0


FinProc

Proc c_corrector.comenzar_AlCliquear()
vera()
FinProc

Proc c_corrector.Form_AlCerrarse(Referencia Cancelar:Booleano)
Programa.Terminar()
FinProc

Proc c_corrector.Form_AlCargarse()
TaparFrame(f1,t1,t2)
ava1.Color=&0
FinProc

Proc c_corrector.vera()
Var ler2:EnteroSig, Pos1,pos2,cuan,ant:Entero, ten,union,temp:Cadena
ce.texto = ""
temp     = ""
ant      = 0
borrar enlaces

Si(LongMat(Lineas)=0)Salir
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
pastarbt(0)
Contar ler2 = 0 a Límite(Lineas)
ava1.ancho = CLM(ler2,Fonava2.Ancho,Límite(Lineas))
AdmErr
 Bloque
 Si(CadLong(Lineas[ler2])< 3)
 SiNo
   Pos1=BuscarEnCad(CadMinus(Lineas[ler2]),"<a ")
   Pos2=BuscarEnCad(CadMinus(Lineas[ler2]),">",Pos1)
   Si(pos1 = 0)
   SiNo
     Si(pos1<>0)Y(pos2<>0)
       cuan = pos2 - pos1
       Redim preservar enlaces, LongMat(enlaces)+1
       enlaces[LongMat(enlaces)-1] = QuitarEspacios(ParteCad(Lineas[ler2],pos1,cuan+1))
       ant = ant + 1
     SiNo
       Si(ler2 = Límite(Lineas)-4)ava1.ancho = 0; Salir
       union = QuitarEspacios(Lineas[ler2]+Lineas[ler2+1]+Lineas[ler2+2]+Lineas[ler2+3])
       Pos1=BuscarEnCad(CadMinus(union),"<a ")
       Pos2=BuscarEnCad(CadMinus(union),">",Pos1)
       Si(pos2=0)ava1.ancho = 0; Salir Bloque
       cuan = pos2 - pos1
       Redim preservar enlaces, LongMat(enlaces)+1
       enlaces[LongMat(enlaces)-1] = QuitarEspacios(ParteCad(union,pos1,cuan+1))
       ant = ant + 1
     FinSi
    FinSi
 FinSi
 FinBloque
Controlar
 ava1.ancho = 0
FinAdmErr
Programa.ProcesarEventos()
Seguir

ce.texto   = EntCad(ant)+" Enlaces"

'''''''''''''''''''''''''''''''''''''''''''''''
temp = ""
Contar ler2 = 0 a Límite(enlaces)
  AdmErr
    temp = temp + enlaces[ler2] + crlf
  Controlar
  FinAdmErr
seguir
enla.texto = temp
'''''''''''''''''''''''''''''''''''''''''''''
ava1.ancho = 0
pastarbt(7)
FinProc

Proc c_corrector.QuitarEspacios(Tex:Cadena):Cadena
AdmErr
  Resultado = Reemplazar(Reemplazar(Reemplazar(Tex,"  "," "),"  "," "),"  "," ")
Controlar
 Resultado = Tex
FinAdmErr
FinProc

Proc c_corrector.sinhtml():Booleano
Var a:Entero, temp:Cadena

AdmErr
Si(LongMat(enlaces)=0)
  Resultado = 0
  Salir
SiNo
  pastarbt(0)
  temp = ""
  Contar a = 0 a Límite(enlaces)
    AdmErr
      ava1.ancho = CLM(a,Fonava2.Ancho,Límite(enlaces))
      enlaces[a]  = Reemplazar(Reemplazar(enlaces[a],carac(546)+">",""),"<a href="+carac(546),"")
      temp = temp + Reemplazar(Reemplazar(enlaces[a],carac(546)+">",""),"<a href="+carac(546),"") + crlf
    Controlar
    FinAdmErr
  seguir
  ava1.ancho = 0
  enla.texto = temp
  Resultado = 1
  pastarbt(7)
FinSi
Controlar
 ava1.ancho = 0
 Resultado  = 1
 Mensaje("Ocurrio un error al intentar quitar el html",64,"Atención")
 pastarbt(7)
FinAdmErr
FinProc

Proc c_corrector.pastarbt(Num:Entero)
Seleccionar Num

Caso 0
  ab.Habilitado       = 0
  comenzar.Habilitado = 0
  rt.Habilitado       = 0
  sloraiz.Habilitado  = 0
  sahm.Habilitado     = 0
  gu.Habilitado       = 0
Caso 1
  ab.Habilitado       = 1
Caso 2
  comenzar.Habilitado = 1
Caso 3
  rt.Habilitado       = 1
Caso 4
  sloraiz.Habilitado  = 1
Caso 5
  sahm.Habilitado     = 1
Caso 6
  gu.Habilitado       = 1
Caso 7
  ab.Habilitado       = 1
  comenzar.Habilitado = 1
  rt.Habilitado       = 1
  sloraiz.Habilitado  = 1
  sahm.Habilitado     = 1
  gu.Habilitado       = 1
FinSeleccionar

FinProc

Proc c_corrector.colacardat(Num:Entero)
tipgu = Num
FinProc

Proc c_Form1.abrt_AlCliquear()
corrector.colacardat(0)
Ocultar()
FinProc

Proc c_Form1.acpt_AlCliquear()
corrector.colacardat(>aet1.color=&0?1:2)
Ocultar()
FinProc

Proc c_Form1.aet2_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
acpt.habilitado = 0
Si(aet2.color = &FFFFFF)
 aet2.color      = &0
 aet1.color      = &FFFFFF
 acpt.habilitado = 1
SiNo
 aet2.color      = &FFFFFF
FinSi
Beep(1000, 100)

FinProc

Proc c_Form1.aet1_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
acpt.habilitado = 0
Si(aet1.color = &FFFFFF)
 aet1.color      = &0
 aet2.color      = &FFFFFF
 acpt.habilitado = 1
SiNo
 aet1.color      = &FFFFFF
FinSi
Beep(1000, 100)

FinProc

Proc c_Form1.Form_AlCargarse()
aet1.Color = &ffffff
aet2.Color = &ffffff
FinProc


CicloPrincipal
Fin

Saludos :grindance:
La Hora 10 esta cerca. Haz el bien, haz lo que mas te gusta, por que a partir de alli todo cambiará
Joe
 
Mensajes: 130
Registrado: Mar Nov 20, 2007 11:55 pm

Sponsor


Re: Extractor de enlaces

Notapor ErikH » Dom Jun 22, 2008 6:03 pm

:roll: Vere que puedo hacer.
ImagenEntrá a la wiki en OpenShift
Colofox!!!!
ErikH
 
Mensajes: 151
Registrado: Jue Nov 29, 2007 11:24 pm
Ubicación: Algún lugar de México

Re: Extractor de enlaces

Notapor lukasg » Dom Jun 22, 2008 7:24 pm

Que es lo que tendría que hacer teoricamente el programa??

Le pasas un archivo html y extrae todos los links que hay en el archivo?

PD: sabes si tiene errores? jaja
lukasg
 
Mensajes: 129
Registrado: Mié Nov 21, 2007 9:41 am
Ubicación: Santa Fe, Argentina

Re: Extractor de enlaces

Notapor Joe » Dom Jun 22, 2008 9:25 pm

lukasg escribiste:Que es lo que tendría que hacer teoricamente el programa??

Le pasas un archivo html y extrae todos los links que hay en el archivo?

PD: sabes si tiene errores? jaja


Exacto, extrae los enlaces y los muestra, puedes ver tambien la direccion raiz, pj: "www.google.com" en vez de "http://www.google.com/intl/es/options/", Saludos.
La Hora 10 esta cerca. Haz el bien, haz lo que mas te gusta, por que a partir de alli todo cambiará
Joe
 
Mensajes: 130
Registrado: Mar Nov 20, 2007 11:55 pm

Re: Extractor de enlaces

Notapor ErikH » Lun Jun 23, 2008 12:59 am

He tenido problemas para compilarlo, en donde aparecen las sig. funciones
:arrow: BuscarDireccion(Sites[sl])
:arrow: CLM()
:arrow: TaparFrames()

:!: He estado buscando esas funciones pero al parecer no se encuentra en las bibliotecas.


:?: ¿Podrias postear el codigo de las funciones? (bolu)
ImagenEntrá a la wiki en OpenShift
Colofox!!!!
ErikH
 
Mensajes: 151
Registrado: Jue Nov 29, 2007 11:24 pm
Ubicación: Algún lugar de México

Re: Extractor de enlaces

Notapor 20180912yuanyuan » Vie Mar 15, 2019 6:00 am

kate spade handbags
fitflops outlet
true religion outlet store
yeezy shoes
red bottoms
true religion jeans
christian louboutin shoes
true religion outlet store
coach factory outlet online
tods outlet online
uggs outlet
ugg outlet store
broncos jerseys
valentino shoes
yeezy shoes
ralph lauren outlet
moncler jacken
pandora jewelry canada
coach outlet store online clearance
stone island hoodie
polo ralph lauren outlet online
polo ralph lauren outlet
polo ralph lauren outlet online
ferragamo belts
ugg outlet
louis vuitton outlet store
coach outlet store online
cowboys jerseys
cheap nfl jerseys
jordan 3
gucci outlet online
moncler outlet online
persol sunglasses sale
coach outlet store
ralph lauren outlet
kate spade outlet online
kappa clothing
celine outlet
adidas outlet store
yeti cup
christian louboutin outlet
coach outlet
chaussures christian louboutin
michael kors outlet
ugg outlet
nike outlet online
coach canada outlet
gucci outlet store
hermes
rolex watches
fitflop sale
true religion jeans sale
coach outlet online
michael kors outlet
coach factory outlet online
cheap nike shoes
canada goose outlet
pandora jewelry outlet
coach outlet online
pandora rings
nike basketball shoes
birkenstock sandals
ugg boots outlet
air max plus
ralph lauren outlet
cheap handbags
cubs jerseys
michael kors outlet online
kate spade outlet online
canada goose outlet
louboutin outlet
ralph lauren uk
durant shoes
pandora jewelry outlet
coach factory outlet
coach outlet store
louis vuitton outlet online
true religion outlet
ugg boots
chrome hearts outlet store
kate spade outlet online
giants jerseys
salvatore ferragamo shoes
gymshark sale
michael kors outlet clearance
cheap jerseys
city royals jerseys
coach outlet
cheap jordan shoes
kobe shoes
coach factory outlet
fitflops sale clearance
coach outlet online
toms outlet online
air jordan
coach factory outlet online
oakley sunglasses outlet
moncler jackets
jordan 31
pandora charms
pandora jewelry store
coach outlet store
nike tn
coach outlet online
pandora charms
michael kors outlet online
adidas outlet online
pandora charms sale clearance
soccer shoes
new england patriots jersey
michael kors outlet clearance
louboutin outlet
cazal outlet
coach purse
coach factory outlet
pandora charms outlet
balenciaga shoes
cheap jordan shoes
coach factory outlet online
moncler jackets
air jordan 14
miu miu shoes
fila
ysl outlet
gymshark sale
cardinals jerseys
discount oakley sunglasses
michael kors bags
costa sunglasses sale
true religion outlet store
cheap snapbacks
under armour shoes
nike outlet store
retro 11
michael kors outlet clearance
uggs outlet
ralph lauren polo
mbt shoes
mulberry handbags
ferragamo outlet
canada goose jackets
coach outlet online
true religion outlet store
nike outlet store
mlb jerseys
pandora jewelry outlet
ed hardy outlet
coach factory outlet online
hydro flask sale
jaguars jersey
blue jays jerseys
pandora charms sale clearance
air jordan retro
coach outlet online
coach factorty outlet store
louboutin outlet
ecco outlet
versace clothing
coach factory outlet
air jordan 3
mac cosmetics
pandora jewelry outlet
pandora jewelry
coach handbags clearance
swarovski crystal
coach outlet online
salomon shoes
buffalo bills jersey
pandora canada
rolex replica watches
suicoke sandals
white sox jerseys
clarks shoes
ugg boots
gymshark clothing
nba jerseys
air max
orioles jerseys
dolce & gabbana sunglasses
canada goose sale
louis vuitton purses
cheap jordans
michael kors outlet store
philipp plein outlet
ugg outlet clearance
gucci outlet online
true religion outlet
moncler jackets
pandora charms
le coq sportif
cheap jordan shoes
prada outlet
prada sunglasses
coach factory outlet
coach factory outlet online
polo outlet store
yeti tumbler
air max
cheap maui jim sunglasses
canada goose coats
coach factory outlet
fitflops
air max pas cher
timberland outlet
air jordan 4
asics outlet
yeezy shoes
polo ralph lauren outlet online
nike sneakers
pandora charms sale
valentino
ugg outlet sale
nike outlet online
louis vuitton
christian louboutin sale
michael kors handbags outlet
maui jim
canada goose coats
oakley sunglasses outlet
coach outlet canada
ralph lauren outlet
fitflops sale clearance
nfl jerseys
ugg
clarks
nike blazer
yankees jerseys
louboutin pas cher
prada outlet
toms outlet store
christian louboutin shoes
adidas nmd runner
canada goose
nike roshe
cheap snapbacks
mbt shoes
hermes belt
diamondbacks jerseys
kate spade outlet
mbt shoes
cheap snapbacks
tigers jerseys
christian louboutin sale
asics shoes
uggs outlet
kendra scott
moncler sito ufficiale
adidas neo shoes
louboutin outlet
converse shoes
hermes bags
adidas shoes
cheap oakley sunglasses
nike shoes
coach outlet
kate spade
uboutin shoes
kobe 12
rolex replica watches for sale
superdry clothing
kate spade outlet online
kate spade outlet store
michael kors outlet online
hydro flask lids
jordans
air max outlet
coach bags
christian louboutin outlet
david yurman jewelry
vikings jerseys
coach factory outlet
coach outlet online
coach outlet online
stone island sale
san diego chargers jerseys
giuseppe zanotti shoes
cheap jordans
air max shoes
moncler coats
coach outlet online
adidas nmd
air jordan uk
adidas store
curry 4 shoes
polo outlet store
hermes outlet store
nike max
coach factory outlet online
true religion outlet
coach factory outlet online
houston texans jerseys
barcelona jersey
adidas yeezy shoes
air jordan retro
adidas wings
puma shoes
revolution 3
coach outlet store
camisetas futbol baratas
pandora charms
asics running shoes
cheap jordan shoes
ugg italia
ralph lauren sale clearance uk
packers jersey
air jordans
canada goose outlet
air max 97
air huarache
kate spade outlet online
pandora jewelry
nike outlet store
birkenstock shoes
hydro flask sale
christian louboutin outlet
browns jerseys
ed hardy outlet
nobis jackets
michael kors outlet online
birkenstock sandals
ugg italia
nhl jerseys
nike outlet store online
seattle seahawks jersey
toms shoes
adidas outlet online
adidas sneakers
true religion jeans outlet
nike shoes
coach outlet online
pandora jewelry canada
manolo blahnik outlet
true religion
ray ban sunglasses outlet
cnaada goose outlet store
louboutin outlet
louis vuitton outlet online
jordan 4
true religion outlet
christian louboutin shoes
coach handbags outlet
toms shoes
pandora jewelry outlet
coach outlet
coach outlet online
polo ralph lauren outlet
adidas shoes
michael kors outlet clearance
uggs outlet
jordans
jordan shoes for sale
mac makeup
miu miu handbags
coach outlet online
coach factory outlet store
foamposite shoe
stone island sale
north face outlet store
coach outlet sale
oakley outlet
uggs
cheap air jordans
cheap jordan shoes
mcm handbags
coach outlet online
cheap ray ban sunglasses
coach factory outlet
pandora outlet
coach handbags
christian louboutin outlet
nike air max schweiz
air jordan shoes
nike outlet store
uggs outlet
nike outlet online
kate spade handbags
fitflops sale clearance
canada goose coats
birkenstocks
ralph lauren polo
kendra scott
coach outlet online
celine outlet
marlins jerseys
nike outlet online
malone souliers shoes
canada goose coats
adidas yeezy boost
air jordan shoes
nike outlet online
cheap soccer jerseys
moncler outlet online
nike outlet store
christian louboutin
nike outlet store
costa sunglasses sale
fivefingers shoes
coach outlet online
canada goose
cincinnati bengals jersey
coach handbags
timberland boots
adidas yeezy boost
kate spade outlet online
david yurman bracelet
adidas superstars
kate spade handbags
coach outlet online
prada handbags
giuseppe zanotti outlet store
raiders jerseys
adidas nmd
cardinals jerseys
adidas ultra boost
north face jackets
reebok outlet
fitflops outlet
michael kors outlet online
pandora charms
nike factory store
true religion outlet
coach outlet online
michael kors outlet online
kate spade bags
canada goose outlet store
jordan 12
yeezy shoes
maui jim sunglasses
air max 2017
adidas yeezy boost 350
ugg outlet
ray ban sunglasses
coach outlet online
coach outlet clearance
ferragamo outlet store
polo ralph lauren outlet online
ed hardy shoes
fred perry
north face outlet store
ed hardy
nike flip-flops
north face outlet online
coach outlet online
coach outlet online
air max 270
valentino outlet store
nba jerseys for sale
kevin durant shoes
moncler pas cher
coach factory outlet online
y3 shoes
cheap jordans free shipping
adidas outlet online
ralph lauren uk
off white clothing
ravens jerseys
nike blazer
ugg boots
givenchy handbags
manolo blahnik
pandora charms
bathing ape
instyler ionic styler
cheap jordan shoes
persol
valentino outlet
ugg pas cher
michael kors bags
louboutin outlet
coach outlet online
mulberry bags sale
michael kors outlet clearance
coach outlet clearance
christian louboutin outlet
coach outlet online
ugg boots
coach outlet clearance
off white clothing
uggs outlet online
nike tn
moncler jacka
guess clothing
pandora charms sale
seahawks jerseys
coach factory outlet
polo ralph lauren outlet
mbt shoes
chi flat iron
michael kors outlet online
oakley sunglasses wholesale
true religion jeans
fitflops
pandora outlet
ed hardy
cheap air max
birkin handbags
cheap mlb jerseys
air max 2015
twins jerseys
adidas ultra boost
converse shoes
coach factory outlet
curry 5 shoes
toms
kyrie 2
pandora charms outlet
coach factory outlet
fitflops sale clearance
gucci outlet online
adidas outlet store
pandora jewelry outlet
coach outlet online
coach outlet store
nike free flyknit
juicy couture
true religion jeans
coach factory outlet
ed hardy
adidas uk
air jordan
coach outlet store
vans sneakers
nike factory outlet
cheap mbt shoes
jordan pas cher
prada outlet online
coach outlet online
marc jacobs handbags
david yurman
coach outlet online
rockies jerseys
jordan retro 11
chelsea jersey
ralph lauren uk
nike air force
dolce & gabbana Outlet
yeezy boost 350
asics running shoes
nike shoes
nike outlet
parajumpers jacket
cheap jordans for sale
mcm outlet
michael kors outlet store
true religion jeans
suicoke sandals
vans shoes
nike outlet
rangers jersey
adidas wings shoes
cheap air jordans
miu miu shoes
oakley sunglasses outlet
coach factory outlet
coach outlet online
christian louboutin outlet
cheap jordans
fitflops sale clearance
ubiq shoes
nike sneakers
pandora charms
dodgers jerseys
kate spade outlet sale
ugg outlet
christian louboutin outlet
north face outlet
christian louboutin shoes
yeezy shoes
titans jersey
coach factorty outlet online
ed hardy
prada outlet
fitflops outlet
coach outlet store
mbt shoes outlet
coach factory outlet online
air max
bape hoodie
michael kors outlet clearance
coach outlet clearance
supreme clothing
vibram fivefingers outlet
coach handbags
converse shoes
adidas nmd r1
coach outlet store online
jimmy choo shoes
jordan shoes
lions jerseys
true religion outlet
coach outlet sale
swarovski jewelry outlet
coach outlet online
mlb jerseys
pandora charms sale clearance
coach outlet canada
nike hyperdunk
kate spade outlet
david yurman
phillies jerseys
nike kd 10
air max
reds jerseys
david yurman
polo ralph lauren outlet
oakley outlet
christian louboutin shoes
ralph lauren pas cher
ugg boots sale
off-white clothing
michael kors purse
moncler outlet online
nike air max 90
angels jerseys
gucci outlet online
adidas outlet store
adidas ultra boost
coach outlet store
michael kors outlet clearance
canada goose coats
true religion outlet store
uggs canada
air jordan shoes
pandora charms sale clearance
persol sunglasses
coach outlet store online
ralph lauren outlet online
fitflops sale clearance
polo outlet
coach outlet online
balenciaga triples
cheap mlb jerseys
pandora sale clearance
cheap jordans
pandora outlet
fitflops
fitflops
nfl jerseys
cheap ugg boots
kobe shoes
coach factory outlet online
soccer jerseys
kendra scott
canada goose
moncler
coach outlet online
devil rays jerseys
nike air max 2018
north face outlet
asics shoes
louboutin shoes
coach outlet store online
adidas outlet
coach handbags
coach outlet canada
true religion jeans
the north face jackets
snapback hats
hydro flask cup
canada goose outlet store
pandora charms
patriots jerseys
denver broncos jersey
coach factory outlet online
true religion
valentino outlet
cheap nfl jerseys
kobe 11
coach outlet online
kate spade outlet
kate spade outlet online
juicy couture
coach outlet store
lebron 13
coach factory outlet online
nike air force 1
moncler outlet online
ralph lauren outlet online
valentino outlet
indianapolis colts jerseys
louboutin outlet
nike factory store
toms
coach factory outlet online
supra shoes
birkenstock outlet store
eagles jersey
red sox jerseys
coach outlet store online
birkenstock outlet
off white shirt
canada goose outlet store
air max 2017
pandora charms outlet
jimmy choo shoes
coach outlet online
pittsburgh steelers jersey
coach bags
fred perry
canada goose coats
prada outlet
saints jerseys
arcteryx jackets
fjallraven kanken
ugg boots women
ferragamo outlet
mcm outlet store
ed hardy outlet
coach factory outlet online
brewers jerseys
ralph lauren outlet online
coach outlet online
jets jersey
lacoste outlet
ugg boots clearance
gucci bags
yeti
air max 2017
nike free run
coach factorty outlet store
ronaldo jerseys
louboutin outlet
moncler jackets
ralph lauren outlet
coach factory outlet
falcons jerseys
fitflops
michael kors factory outlet
coach outlet
fila shoes
michael kors outlet canada
uggs outlet
coach outlet online
hermes bags
jordan 12
air jordan shoes
minnesota vikings jersey
lacoste polo shirts
nike outlet
ralph lauren polo
columbia outlet store
coach outlet store
adidas slides
mont blanc
coach outlet online
kate spade outlet
coach outlet online
patriots jerseys
nike roshe run
moncler outlet online
mont blanc pen
nobis outlet
nike factory store
ralph lauren polo
coach outlet online
coach outlet online
kate spade outlet
20190315yuanyuan
20180912yuanyuan
 
Mensajes: 222
Registrado: Mié Sep 12, 2018 3:06 am





Volver a Código Abierto

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron