Detectar salto de línea al final de un editbox

[mpulla]

Hola foxeros.

Dentro de un formulario tengo un editbox, necesito saber si el usuario al final de redactar el texto dio un enter provocando un salto de línea, para luego eliminar este último salto de línea.

Como lo puedo hacerlo?

Saludos.
Mauricio

[Fidel Charny]

Suponiendo que el EditBox se llama "Edit1"

lcValor=ALLTRIM(thisform.Edit1.Value)

lcEnter=CHR(13)+CHR(10)

IF RIGHT(lcValor,2)=lcEnter

MESSAGEBOX("Tiene un Enter al Final")

nLen=LEN(lcValor)

thisform.Edit1.Value=SUBSTR(lcValor,1,nLen-2)

ELSE

MESSAGEBOX("No tiene Enter al Final. Ultimo Caracter: "+LTRIM(STR(ASC(RIGHT(lcValor,1)))))

ENDIF

[Fidel Charny]

Marcelo:

En el Valid del EditBox, puedes poner algo como esto:

lcValor=ALLTRIM(this.Value)

lcEnter=CHR(13)+CHR(10)

lcDoble=lcEnter+lcEnter

DO WHILE AT(lcDoble,lcValor)#0                           && Elimina doble Enter

lcValor=STRTRAN(lcValor,lcDoble,lcEnter)

ENDDO

this.Value=lcValor

IF RIGHT(lcValor,2)=lcEnter

nLen=LEN(lcValor)

this.Value=SUBSTR(lcValor,1,nLen-2)            && Elimina el Enter Final.

ENDIF

[Fidel Charny]

Ah, veo que te rebauticé. Mauricio. Perdón, ya es tarde! 

[Víctor Hugo Espínola Domínguez]

Hola Mauricio

Solamente los <Enter> finales son eliminados, no los intermedios:

lcEnter = CHR(13) + CHR(10)

DO WHILE RIGHT(This.Value, 2) == lcEnter

This.Value = LEFT( This.Value, LEN( This.Value ) - 2 )

ENDDO

Saludos,

Víctor.

[mpulla]

Hola Fidel

Gracias por el código funciona.

Marcelo?
jajaja no hay cuidado.

Saludos.
Mauricio

[mpulla]

Hola Víctor.

Buen código me sirvió perfecto.

Saludos.
Mauricio