
- 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
