Foro de Pauscal

por **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("") 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

**Sponsor**

por **ErikH** » Dom Jun 22, 2008 6:03 pm

Vere que puedo hacer.

por **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

por **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.