Muy buenas, estoy intentando buscar alg煤n algoritmo que me pueda acentuar automaticamente pero creo que la mejor manera es que con la clase TWORD lo pase a word y las acentue y las recoja una vez hecho este proceso. 驴Sabeis algo que haga esto?
Un Saludo.
Softrus:
Creo que el algoritmo que buscas es muy complicado aunque no imposible, lo que hago en una aplicaci贸n es apoyarme en el verificador de ortograf铆a de WORD que aunque una chapuza me sac贸 del problema y no solo para acentur palabras sino para revisar toda la ortograf铆a.
Si te interesa podemos seguir el hilo.
Saludos
Si eso es lo que hab铆a pensado, si tienes algo por ahi para ir indicandome me har铆as un gran favor.
Un Saludo.
聽 聽 REDEFINE BUTTON oOrtografia ID 903 OF oDlg CANCEL;
聽 聽 聽 聽 ACTION (oPro:DES := SpellCheck(oPro:DES),oDlg:Update());
聽 聽 聽 聽 MESSAGE "Revisa la ortograf铆a de la descripci贸n del proyecto"/*
* --------------------------------------------------------------------------*
* --------------------------------------------------------------------------*
*/
STATIC FUNCTION SpellCheck(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
IF ! EMPTY(cText) // si cancelamos en el chequeo de ortografia, nos devuelve una cadena vacia
聽 聽 Texto := cText
ENDIF
RETURN(Texto)Muchas gracias lo pruebo y te comento.
Hola,
se me ocurre una funcion que maneje las reglas de ortografia,,, a ver,,,
x regla,, se acentuan las palabras que termian en "ion"
xpos := AT("on", cpalabra)
If xpos > 0
cpalabra := STRTRAN(cpalabra , "on","贸n")
endif
..
.
es una idea
Salu2
Me podr铆an decir 驴como puedo conseguir que automaticamente coja la primera coincidencia y la suplante por la palabra mal escrita? y as铆 tener una correcci贸n automatica.
Un Saludo.
softruz wrote:Me podr铆an decir 驴como puedo conseguir que automaticamente coja la primera coincidencia y la suplante por la palabra mal escrita? y as铆 tener una correcci贸n automatica.
Un Saludo.
function corrige( cTexto )
strtran( cTexto, "ion ", "i贸n " )
return cNuevoEs un buen avance pero lo que me interesa es que cuando entra en la correcci贸n autom谩tica coja la primera coincidencia por defecto y que no me pregunte nada, 驴hay algo parecido?
Un Saludo.