carácteres con diéresis - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Este debate tiene 5 respuestas, 3 mensajes y ha sido actualizado por última vez el 4 años, 2 meses por Pedro Amaro. This post has been viewed 657 times

Mostrando 5 respuestas a los debates

Autor

Entradas

27-10-2020 a las 12:59 #1422

Xevi

Participante

Resulta que me encuentro que no se muestran correctamente los caracteres con diéresis, así pues...

PROCEDURE ProvaWMsgAlert()
   WITH OBJECT TWebPage():New()
      :lAlerts := .T.

      WITH OBJECT WForm():New(:WO)
      :cId := "frmlogin"
      :cFunction     := "ProvaWMsgAlertAjax"
      :cAjaxBevel    := "nflcargo"

         WITH OBJECT WEdit():New(:WO)
            :cId     := "valor1"
            :cTitle  := "Valor1"
            :cHelp   := "prueba con aaa o con cualquier otro valor"
            :Create()
         END WITH

         WITH OBJECT WButton():New(:WO)
            :cText     := "Sin miedo, púlsame"
            :lSubmit   := .T.
            :Create()
         END WITH

         :Create()
      END WITH

      oCgi:SendPage( :Create() )

   END WITH

RETURN
//------------------------------------------------------------------------------
PROCEDURE ProvaWMsgAlertAjax()
   Local cHtml
   Local cDato := oCGI:GetCgiValue("valor1","")

   If cDato == "aaa"
      cHtml := Tag( "script", "window.location.href = 'https://nefele.dev'" )

   Else
      WITH OBJECT WMsgAlert():New()
*         :cText := "No encuentro " + Tag( "b", cDato )
:cText := AsciiHTML("S'ha produït un error!!!")
         :cIcon := "ERROR"
         :Create()
         cHtml := :FullHtml()
      END WITH
   EndIf

   oCGI:SendScript( cHtml )

RETURN

PROCEDURE ProvaWMsgAlert()

WITH OBJECT TWebPage():New()

:lAlerts := .T.

WITH OBJECT WForm():New(:WO)

:cId := "frmlogin"

:cFunction := "ProvaWMsgAlertAjax"

:cAjaxBevel := "nflcargo"

WITH OBJECT WEdit():New(:WO)

:cId := "valor1"

:cTitle := "Valor1"

:cHelp := "prueba con aaa o con cualquier otro valor"

:Create()

END WITH

WITH OBJECT WButton():New(:WO)

:cText := "Sin miedo, púlsame"

:lSubmit := .T.

:Create()

END WITH

:Create()

END WITH

oCgi:SendPage( :Create() )

END WITH

RETURN

//------------------------------------------------------------------------------

PROCEDURE ProvaWMsgAlertAjax()

Local cHtml

Local cDato := oCGI:GetCgiValue("valor1","")

If cDato == "aaa"

cHtml := Tag( "script", "window.location.href = 'https://nefele.dev'" )

Else

WITH OBJECT WMsgAlert():New()

* :cText := "No encuentro " + Tag( "b", cDato )

:cText := AsciiHTML("S'ha produït un error!!!")

:cIcon := "ERROR"

:Create()

cHtml := :FullHtml()

END WITH

EndIf

oCGI:SendScript( cHtml )

RETURN

Un Saludo,

Xevi.

27-10-2020 a las 13:04 #1427

Alfredo Sanz
Superadministrador

Hola Xevi,

Estamos usando HB_StrToUTF8(xCadena, "ESWIN") para la conversión.
La verdad es que no sé si esta función adminte las diéresis
Lo miro a ver si encuentro algo
27-10-2020 a las 13:11 #1428

Alfredo Sanz
Superadministrador

Seguramente será el ESWIN.
Prueba con la ü a ver si te sale bien.
Si funciona la ü será cuestion de localizar el codepage correcto.
27-10-2020 a las 13:33 #1433

Xevi
Participante

Ninguna diéresis...

ä => Ã¤

ë => Ã«

ï => Ã¯

ö => Ã¶

ü => Ã¼
27-10-2020 a las 13:41 #1434
Xevi
Participante
Bien... haciendo pruebas, veo que lo que estoy haciendo es mezclar comillas simples con diéresis...

:cText := "S" + AsciiHTML("'") + "ha produït un error!!! aäeëiïoöuü"

1

:cText := "S" + AsciiHTML("'") + "ha produït un error!!! aäeëiïoöuü"

de esta manera obtengo el resultado esperado.

No se si habrá alguna funcioncilla para "despejar" y poder utilizar TODOS los símbolos, se que es una tarea que es complicada. De momento, creo que deberemos de lidiar cada uno con nuestra propia "guerrilla" de simbologia

Un Saludo,

Xevi.
- Esta respuesta fue modificada 4 años, 2 meses por Xevi.
27-10-2020 a las 22:39 #1438

Pedro Amaro
Superadministrador

Vamos por partes;
1º - Si tu código, en el editor, esta como UTF8 no necesitas utilizar AsciiHTML para un texto que tu escribas, solo será necesario para los textos que vengan de fuentes externas que no estén en UTF8
2º - Efectivamente el apostrofe se te convierte en una comilla doble, por la rutina de escapado de comillas, ya la he modificado para que no produzca ese error, pero tengo que probarlo con el resto de Néfele por si nos generara algún inconveniente.

WITH OBJECT WMsgAlert():New(:WO) :cText := "S'ha produït un error!!!" :cIcon := "ERROR" :Create() cHtml := :FullHtml() END WITH

1
2
3
4
5
6

WITH OBJECT WMsgAlert():New(:WO)
   :cText := "S'ha produït un error!!!"
   :cIcon := "ERROR"
   :Create()
   cHtml := :FullHtml()
END WITH

Autor

Entradas

Mostrando 5 respuestas a los debates

Debes estar registrado para responder a este debate.