Buenos dias un saludos una consulta, al pasar inforcion de excel a un GET mediante copi y pega se lleva los codigos ocultos y se guardan en la DB como se puede evitar recibirlos en el GET.
Muchas Gracias
FUNCTION TIRA_ACENTUACAO( cStr )
LOCAL cStrNew := "", nX
*cAcentos := { "ã" , "à" , "ä" , "á" , "å" , "â" , "À" , "Á" , "Â" , "Ã" , "Ä" , "Å" , "ç" , "è" , "é" , "ê" , "ë" , "í" , "Í" , "É" , "Ê" , "-" , "ó" , "õ" , "ô" , "Ô" , "Ó" , "Õ" , "ú" , "û" , "Ú" , "Û" , "Ç" , "º", chr( 239 ) }
cAcentos := {Chr(237),Chr(224),Chr(228),Chr(225),Chr(229), Chr(226), Chr(192), Chr(193), Chr(194), Chr(195), Chr(196), Chr(197), Chr(231), Chr(232), Chr(233), Chr(234), Chr(235), Chr(237), Chr(205), Chr(201), Chr(202), Chr(173), Chr(243), Chr(245), Chr(244), Chr(212), Chr(211), Chr(213), Chr(250), Chr(251), Chr(218), Chr(219), Chr(199), "º", chr( 239 ) }
cLetras := { "a" , "a" , "a" , "a" , "a" , "a" , "A" , "A" , "A" , "A" , "A" , "A" , "c" , "e" , "e" , "e" , "e" , "i" , "I" , "E" , "E" , "" , "o" , "o" , "o" , "O" , "O" , "O" , "u" , "u" , "U" , "U" , "C" , "", "" }
For nX := 1 TO LEN( cAcentos )
cStrNew := StrTran( cStr, cAcentos[nX], cLetras[nX] )
cStr := cStrNew
Next
RETURN( cStr)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 105 guests