Spanish [B4J] [Solucionado] Prevenir introduccion del caracter "espacio" mediante la combinacion de "Alt + 255"

[Dadaista]

Hola

Tengo un pequeño problema que no se como solucionar. Un dia mirando la base de datos me di cuenta que habia campos, obligatorios, que estaban vacios. Como puede ser esto posible me preguntaba. Controlando que el campo no quedara vacio con el .trim y si esta vacio pues no grabamos.

Me he percatado que el B4XFloatTextField.Trim, que es el control que estoy utilizando, no funciona en ese caso... El caso es que el gracioso del usuario meta la combinacion de teclas (Alt + 255) que lo que escribe es un espacio como todos sabemos. Para el B4XFloatTextField eso no es un espacio y se salta el .Trim. (no se si en el TextField "normal", tambien ocurre).

He probado varias cosas y ninguna ha funcionado. El B4XFloatTextField.text.Replace (" ", " ") (el primer espacio es alt + 255) y el segundo espacio es el espacio de la barra espaciadora... no funciona tampoco.... no hace el Replace!! me refiero a que hago el trim y queda el espacio de la combinacion que no lo debe tomar como espacio.

Bueno, pues en B4XFloatTextField_TextChanged (Old as String, New as String) le digo que si New es la combinacion, que la cambie por un espacio normal... pues muy a mi pesar, tampoco funciona. El caso es que el control "sabe" que es la combinacion pero no lo cambia.

If New = " " Then 'NO ES ESPACIO... ES ALT + 255
    Log("Cuidado")    'SI ENTRA!!
    New.Replace(" ", " ")'NO VA
End If

No se como solucionarlo y evidentemente esto es factible en todos los campos donde se tenga que introducir un texto y éste sea obligatorio... se salta los .Trim

Como soluciono el asunto?... Teneis alguna idea?

Gracias!!

 

[emexes]

Tal vez intentarlo:

'''If New = " " Then 'NO ES ESPACIO... ES ALT + 255
If New.Contains(Chr(255)) Then
    Log("Cuidado")    'SI ENTRA!!
    New.Replace(Chr(255), " ")
End If

 

[Dadaista]

Tal vez intentarlo:

No, eso no funciona. Pasa exactamente lo mismo

Gracias!!

 

[Mariano Ismael Castro]

Hola, puedes hacer un pequeño proyecto de prueba?. Para ver si logramos encontrar alguna manera de ayudarte a solucionar eso

 

[angel_]

Y así:

If New.Length = 0 Then
    Log("Cuidado")    'SI ENTRA!!
End If

 

[Mariano Ismael Castro]

Private Sub Button1_Click

'    Dim txtVacio As Boolean = B4XFloatTextField1.Text.Length = 0

    Dim txtVacio As Boolean = B4XFloatTextField1.Text.Trim.Length = 0

    Log("TextBox Vacio? " & txtVacio)

End Sub

Yo probe con esto

 

[emexes]

¿Cuál es la salida del registro de esta prueba cuando se produce el problema?

If New.Length > 0 Then
    Dim Ch As Int = Asc(New)
    If Ch > 126 Then    'código de carácter ASCII normal más alto (sin problemas) es 126 (tilde)
        Log("Cuidado")    'SI ENTRA!!
        Log(New.Length & " " & Ch)
    End If
End If

 

[PaulMeuris]

Try this:

    Dim ftftext As String = B4XFloatTextField1.Text
    Dim lst As List
    lst.Initialize
    For i = 0 To ftftext.Length -1
        lst.Add(Asc(ftftext.CharAt(i)))
    Next
    Log(lst)
    Dim new As String = ""
    For i = 0 To lst.Size -1
        Dim val As Int = lst.Get(i)
        If val <> 160 Then new = new & Chr(val)        ' character 160 is a no-break space
    Next
    Log("*" & new & "*")

The ALT-255 key combination is replaced with the no-break space character in windows

 

[TILogistic]

?

Alt+255 en el teclado numérico de Windows inserta un espacio no quebrado (non-breaking space), que se ve como un espacio normal, pero evita que el texto se separe al final de una línea. Es un carácter invisible que puede ser útil para diversos propósitos, como evitar que un nombre de usuario sea "tomado" en línea o para agregar un pequeño espaciado invisible en la creación de texto.

Código ASCII:
Alt+255 corresponde al código ASCII 160, que representa el espacio no quebrado

 

[TILogistic]

use regex, para verificar o reemplazar (no visibles o especiales)

"\xFF" ' Busca el carácter con código hexadecimal FF (255)

ex.

regex101: build, test, and debug regex

Regular expression tester with syntax highlighting, explanation, cheat sheet for PHP/PCRE, Python, GO, JavaScript, Java, C#/.NET, Rust.

regex101.com

En regex, para detectar un carácter con un código ASCII específico, se puede usar la notación hexadecimal o decimal en la expresión regular. En B4X, que usa la clase Regex, se puede buscar el carácter con una expresión que incluya \xFF (hexadecimal para 255) o \u00A0.

 

[TILogistic]

B4X:
Ejemplo busqueda.

    Dim Text As String = $"HolaÿMundo Texto sin el carácter especial. Aquí hay un Alt+255: ÿ"$
    Dim Pattern As String = "\xFF"
    Dim Matcher As Matcher = Regex.Matcher(Pattern, Text)
    Do While Matcher.Find
        Log(Matcher.Match)
    Loop

usar

Regex.Replace 'reemplazar

Regex.IsMatch 'verificar si existe

 

[TILogistic]

ref.
Ascii 160 decimal y hexadecimal

ASCII Code 160 (Windows-1252)

In the Windows-1252 character set, ASCII code 160 is represented by the non-printing character, also known as the non-breaking space.

www.ascii-code.com

ASCII Code 160 (ISO-8859-1)

In the ISO-8859-1 character set, ASCII code 160 is represented by the non-printing character, also known as the non-breaking space.

www.ascii-code.com

 

[emexes]

IBM PC 255 = Unicode 160

ASCII Code 255 (Code page 437)

In the Code page 437 character set, ASCII code 255 is represented by the non-printing character, also known as the non-breaking space.

www.ascii-code.com

 

[Dadaista]

Hola

Gracias a Todos por vuestro tiempo

Subo un mini proyecto. La respuesta de @TILogistic con Regex, funciona... siempre que solo haya un caracter "especial". Si hay mas, no funciona. No se, quizas me estoy liando un poco. Tendria que hacer un bucle leyendo todos los caracteres del campo y mirar si es el dichoso espacio e intentar cambiarlo... no? El Regex no lo utilizo... deberia estudiarlo a fondo.

Gracias!!

 

[emexes]

Lista de espacios Unicode:

https://www.compart.com/en/unicode/category/Zs

Sub MakeSpacesNormal(S As String) As String
    'from https://www.compart.com/en/unicode/category/Zs
    Dim NotNormalSpaces() As Int = Array As Int(                        _
        0x00A0, 0x1680, 0x2000, 0x2001, 0x2002, 0x2003, 0x2004, 0x2005, _
        0x2006, 0x2007, 0x2008, 0x2009, 0x200A, 0x202F, 0x205F, 0x3000  _
    )

    For Each Ch As Int In NotNormalSpaces
        Dim NotNormalSpace As String = Chr(Ch)
        If S.Contains(NotNormalSpace) Then
            S = S.Replace(NotNormalSpace, " ")    'replace funny space with normal space
        End If
    Next
 
    Return S
End Sub

Creo que también se podría hacer con regex pero aquí es la 1 de la mañana, así que lo dejaré para alguien más despierto que yo

 

[Dadaista]

Creo que también se podría hacer con regex pero aquí es la 1 de la mañana, así que lo dejaré para alguien más despierto que yo

Solucionado @emexes

Paso la funcion al "libro de las funciones"

Que descanses y Muchas gracias a todos!!

Salu2!!

 

[TILogistic]

simple y efectivo:

    Dim Text As String = $"HolaÿMundo Texto sin el carácter especial. Aquí hay un Alt+255: ÿ"$
    Dim Pattern As String = "[\xFF\x00-\x1F\x7F]+" ' Caracteres de control Unicode
    Dim Text As String = Regex.Replace(Pattern, Text, " ")
    Log(Text)

 

[Dadaista]

simple y efectivo:

Hola @TILogistic

Siento decir que tu código en mi maquina no funciona. Graba con los espacios. La función de @emexes en mi maquina si va.

 

[TILogistic]

pruebe esto : vera que al digitar alt+255 cambia el caracter a una X

Private Sub B4XFloatTextField1_TextChanged (Old As String, New As String)
    Dim Pattern As String = "\u00A0" ' Caracteres de control Unicode
    B4XFloatTextField1.Text = Regex.Replace(Pattern, New, "X")
    B4XFloatTextField1.TextField.SelectionStart = B4XFloatTextField1.Text.Length + 1
End Sub

Nota:
utilizo mucho regex en los edittext para controlar los caracteres no validos, en mis vistas

 

[Dadaista]

pruebe esto : vera que al digitar alt+255 cambia el caracter a una X

Hola

Si, asi es... cambia por una X pero no se por qué su código no me ha funcionado. La verdad es que estoy un poco confuso... no sé por qué no funciona el código que escribió en el post #17... estoy un poco alucinado ahora mismo. Estoy esperando para lanzar la actualización hasta que esto no me quede claro. Ahora lo cambio por un espacio y parece que si funciona. Estaré haciendo algo mal?... lo que me pareció es que no hacia el "Replace"

Gracias!!