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
:wink:
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
Whoopps:

Este es el link correcto

http://www.jbooth-consulting.com/products_speller.asp

Un abrazo

oooooooooh

Posted: Sun Apr 20, 2008 3:50 am
by AIDA
oooooooooh :shock:

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 :lol:

Gracias

Saluditos

Aida :wink:

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 :wink:

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 :shock:

Súper :D

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 :shock: :shock: :shock: :shock:

Que tengan una bonita semana

Aida :wink:

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 :D

Aida :wink:

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 :D pero es algo lento :( y sale una cuadro de Word :shock:
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 :shock: y hasta que no termina aparece de nuevo :x

abra manera de hacer que ese cuadro no salga o se ponga en minimizado :roll:

Haber que le podemos hacer por que realmente si es buena herramienta :D

Ahora si a dormir que mañana Lunes a madrugar


Saludos y súper buena semana para todos :wink:


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 :D 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 :shock:
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 :shock: y hasta que no termina aparece de nuevo :x

abra manera de hacer que ese cuadro no salga o se ponga en minimizado :roll:

Haber que le podemos hacer por que realmente si es buena herramienta :D


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 :D