PC Toledo

Enviado: **22 Mar 2021 13:49**

Hola a Todos:

Alguien sabe como validar que los datos de un string, no tengan caracteres invalidos, por ejemplo la comilla simple ( ' ).

Necesito poder grabar los datos sin caracteres especiales .

Existe alguna funcion en harbour o Mysql que realice esto ?

Gracias,
Winca

Enviado: **22 Mar 2021 16:21**

Código: Selecionar todos

*************************************************************************
Function TIRACENTO(cStr)
********************* Retira Acentos e Letras de uma String ********************
***Static Function fRetiraAcento(cStr)
   cStr:= StrTran(cStr, [Ã¡], [a])  ; cStr:= StrTran(cStr, [Ã ], [a])  ; cStr:= StrTran(cStr, [Ã¢], [a])
   cStr:= StrTran(cStr, [Ã£], [a])  ; cStr:= StrTran(cStr, [Ã�], [A])  ; cStr:= StrTran(cStr, [Ã€], [A])
   cStr:= StrTran(cStr, [Ã‚], [A])  ; cStr:= StrTran(cStr, [Ãƒ], [A])  ; cStr:= StrTran(cStr, [Ã‰], [E])
   cStr:= StrTran(cStr, [ÃŠ], [E])  ; cStr:= StrTran(cStr, [Ã©], [e])  ; cStr:= StrTran(cStr, [Ã¨], [e])
   cStr:= StrTran(cStr, [Ãˆ], [e])  ; cStr:= StrTran(cStr, [Ãª], [e])  ; cStr:= StrTran(cStr, [Ã], [i])
   cStr:= StrTran(cStr, [Ã¬], [i])  ; cStr:= StrTran(cStr, [Ã�], [I])  ; cStr:= StrTran(cStr, [ÃŒ], [I])
   cStr:= StrTran(cStr, [Ãµ], [o])  ; cStr:= StrTran(cStr, [Ã´], [o])  ; cStr:= StrTran(cStr, [Ã³], [o])
   cStr:= StrTran(cStr, [Ã²], [o])  ; cStr:= StrTran(cStr, [o], [o])  ; cStr:= StrTran(cStr, [O], [O])
   cStr:= StrTran(cStr, [Ã’], [O])  ; cStr:= StrTran(cStr, [Ã“], [O])  ; cStr:= StrTran(cStr, [Ã”], [O])
   cStr:= StrTran(cStr, [Ã•], [O])  ; cStr:= StrTran(cStr, [Ã¼], [u])  ; cStr:= StrTran(cStr, [Ãº], [u])
   cStr:= StrTran(cStr, [Ã¹], [u])  ; cStr:= StrTran(cStr, [Ãš], [U])  ; cStr:= StrTran(cStr, [Ã™], [U])
   cStr:= StrTran(cStr, [Ãœ], [U])  ; cStr:= StrTran(cStr, [Ã§], [c])  ; cStr:= StrTran(cStr, [Ã‡], [C])
   cStr:= StrTran(cStr, [y], [y])  ; cStr:= StrTran(cStr, [Ã±], [n])  ; cStr:= StrTran(cStr, [Ã‘], [N])
   cStr:= StrTran(cStr, [Âº], [o.]) ; cStr:= StrTran(cStr, [Â°], [o.]) ; cStr:= StrTran(cStr, [Âª], [a.])
   cStr:= StrTran(cStr, [&], [&]) ; cStr:= StrTran(cStr, ['], [\']); cStr:= StrTran(cStr, [D'], [D\']) 
   cStr:= StrTran(cStr, [Ç], [C]) ; cStr:= StrTran(cStr, [ç], [c]) 
   Return (cStr)

Enviado: **22 Mar 2021 16:26**

Hola ,

Muchas gracias por tu ayuda, la probare.

Enviado: **22 Mar 2021 16:55**

Ou antes de gravar:

Código: Selecionar todos

cString := StrTran( cString, ['], [\'] )

Isso é para o caso de gravar caracteres "diferentes", a barra "\" indica que o próximo caractere deve ser usado exatamente como está.

\'xxx\' vai gravar 'xxx' com as aspas

No comando:

Código: Selecionar todos

UPDATE CADCLI SET NOME = '\'xxx\''

Sobre caracteres acentuados, depende da CODEPAGE da base de dados, e também da CODEPAGE do Harbour.

Enviado: **22 Mar 2021 17:51**

Don José,

muy buen ejemplo, muchas gracias.

Winca

PC Toledo

Validar un string en Mysql

Validar un string en Mysql

Validar un string en Mysql

Validar un string en Mysql

Validar un string en Mysql

Validar un string en Mysql