Page 1 of 2
Cómo corregir la ortografía ?
Posted: Thu Apr 17, 2008 10:53 pm
by Armando
Amigos del foro:
Es posible revisar y corregir la información registrada en un GET tipo MEMO ?
Alguien que lo haya resuelto que me tire una hebra por favor.
Saludos
HOLA
Posted: Sat Apr 19, 2008 10:12 pm
by AIDA
Eso es algo que yo misma me pregunto
se podra y como ?
en donde empese a trabajar me preguntaron lo mismo
que si se podia les dije que no por si las dudas y si se puede que bueno pero como
quien sabe
Saluditos
Aida
Posted: Sat Apr 19, 2008 11:41 pm
by Ruben D. Fernandez
Armando y Aida:
En Utilidades hay una clase tAutoget, qizas les de una idea
de como hacerlo.
Saludos
Ruben Fernandez
Posted: Sun Apr 20, 2008 12:18 am
by Marco Augusto
PARA PODER HACER UNA CORRECCION ORTOGRFICA SE REQUIERE DE UN DICCIONARIO Y COMPARAR LAS PALABRAS
ESO LO HACE WORD
QUIZA ENVIANDO EL TEXTO A WORD
CORREGIR Y REGRESAR EL PARRAFO
SE REQUIERE ENLACE CON WORD UTILZANDO LA CLASE TWORD
Y BUSCARLE POR ESE CAMINO...
Posted: Sun Apr 20, 2008 1:33 am
by Armando
Rubén, Marco:
Muchas gracias por las sugerencias, revisando en el foro encontre esto
[/url]
http://www.jbooth-consulting.com/produc ... er.asp[url]
Creo que puede ser un buen principio.
Saludos[/url]
Posted: Sun Apr 20, 2008 1:35 am
by Armando
oooooooooh
Posted: Sun Apr 20, 2008 3:50 am
by AIDA
oooooooooh
Ya leí la paginita y baje el archivo speller.zip
pero creo que es para clipper viejito mañana con calmita lo checare si es que no me gana la curiosidad esta noche
Gracias
Saluditos
Aida
Hola
Posted: Sun Apr 20, 2008 4:14 am
by AIDA
Encontré esta pagina
http://members.fortunecity.com/usergpoc ... C50_52.htm
parece que ahí hablaron de lo mismo pero hace añitos es una página de la época antigua del clipper a la mejor puede servir
Saludos
Aida
Ortografia
Posted: Sun Apr 20, 2008 10:11 pm
by AJHM
Hola a todos.
Yo lo hago de esta manera:
Code: Select all
Function ORTOGRAFIA(Texto)
Local oWord,oDoc,oTexto
Local cText:=Texto
oWord:=TOleAuto():New( "Word.Application" )
oWord:Visible := .F.
oWord:Documents:Add()
oDoc := oWord:Get("ActiveDocument")
oTexto := oWord:Selection()
oTexto:Text := Texto
oDoc:CheckSpelling()
cText := oTexto:Text
oDoc:Close(0)
oWord:Quit()
oTexto:=NIL
oDoc:=NIL
oWord:=NIL
cText:=StrTran(cText,Chr(13),Chr(13)+Chr(10)) // No recuerdo por qué puse esta linea
If !Empty(cText) // si cancelamos en el chequeo de ortografia, nos devuelve una cadena vacia
Texto := cText
Endif
Return Texto
Utilizo xHarbour.
Un saludo.
- Antonio Jesús -
P.D.: si alguien la depura o la mejora, que la publique aquí o me la mande a mi correo. Gracias.
Posted: Sun Apr 20, 2008 10:33 pm
by Armando
Antonio:
Excelente aporte, funciona muy bien y es gratuito.
Saludos
HOLA
Posted: Mon Apr 21, 2008 12:25 am
by AIDA
OOOOOOOH Realmente se puede
Súper
y como se usa?
usando un botón poniendo la suma de todas la variables donde se pongan los datos
Texto:=campo1+" "+campo2 + " " +campo3
y llamar a ORTOGRAFÍA(Texto)
o como
aaaaaah ya hice una prueba con una variable donde le puse muchas palabritas mal escritas y si funciono realmente increíble
Muchísimas gracias Antonio
Saluditos y hoy si me quede
Que tengan una bonita semana
Aida
Hola
Posted: Mon Apr 21, 2008 1:53 am
by AIDA
Ya vi como funciona usando variables fijas pero como lo integro para que me corrija cada dato de cada get y campo memo y como remplazar los datos por los corregidos
Gracias
Aida
Una rutinita
Posted: Mon Apr 21, 2008 4:40 am
by AIDA
Ya me hice una rutinita para que todos mis Get los pase el corrector ortográfico
pero es algo lento
y sale una cuadro de Word
A pesar que esto está a si oWord:Visible := .F. porque si lo pongo en .T. si sale toda la barra de Word
El cuadro de Word que sale tapa completamente mi aplicación
y hasta que no termina aparece de nuevo
abra manera de hacer que ese cuadro no salga o se ponga en minimizado
Haber que le podemos hacer por que realmente si es buena herramienta
Ahora si a dormir que mañana Lunes a madrugar
Saludos y súper buena semana para todos
Aida
Re: Una rutinita
Posted: Mon Apr 21, 2008 4:52 pm
by AJHM
Hola Aida.
AIDA wrote:Ya me hice una rutinita para que todos mis Get los pase el corrector ortográfico
pero es algo lento
Si lo haces en todos los Gets vas a saturar mucho el programa. Ten en cuenta que tiene que abrir el Word, chequear y cerrar el word cada vez que pasas por un Get.
Yo lo utilizaria solo en el Valid de los Gets que te interesen o, como yo lo hago, en el menu contextual de la clase Tget (el menu que sale cuando pulsas el boton derecho del raton):
Code: Select all
MENUITEM "&Ortografía" ACTION ( ::cText( Ortografia(GetWindowText( ::hWnd )) )) // MIO
y sale una cuadro de Word
A pesar que esto está a si oWord:Visible := .F. porque si lo pongo en .T. si sale toda la barra de Word
El cuadro de Word que sale tapa completamente mi aplicación
y hasta que no termina aparece de nuevo
abra manera de hacer que ese cuadro no salga o se ponga en minimizado
Haber que le podemos hacer por que realmente si es buena herramienta
Yo he hecho pruebas con el Word 2003 y no se a que cuadro te refieres, sólo me aparece el cuadro de chequeo cuando hay errores en la ortografia
A lo mejor se puede quitar ese cuadro en las opciones del Word (que no lo muestre al iniciar) o incluso puede que sea posible modificar esa opcion a traves de la clase Tole (ahí ya me pierdo).
También puedes probrar con esta linea:
oWord:Set( "WindowState", 2 ) // Minimizado
Code: Select all
Function ORTOGRAFIA(Texto)
Local oWord,oDoc,oTexto
Local cText:=Texto
oWord:=TOleAuto():New( "Word.Application" )
oWord:Visible := .F.
oWord:Set( "WindowState", 2 ) // Minimizado
.
.
.
HOLA
Posted: Mon Apr 21, 2008 5:54 pm
by AIDA
ya busque en toda la clase Tget.prg y no encuentro el menu contextual
yo tengo word 2007 a la mejor por eso sale el cuadro que comente
Saludos
Buena semana
Aida