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

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

'''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

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

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

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

    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 & "*")

    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

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

    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)

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