Android Question [SOLVED] Full name field Validation

ProjectGroup19 · Dec 5, 2021

Greetings Everyone.

Please, I need help on how to validate a text field which accepts users full name.

The field should only be valid if it is similar to the following.
Eg. Isaac Donkor, Michael John Smith, etc.

Thank you in advance for the help.

TILogistic · Dec 5, 2021

There is also a way to capitalize the first letter of each of the words

B4X:

    Log("*** Fixed format First Middle Last ***")
   
    Log(ToMixCase(B4XFloatTextField1.Text))
   
    If Regex.IsMatch("^([\w-.]+)\h*(.+)\h*\b(\w+)$", B4XFloatTextField1.Text) Then
        Dim Matcher1 As Matcher = Regex.Matcher("^([\w-.]+)\h*(.+)\h*\b(\w+)$", B4XFloatTextField1.Text)
        Matcher1.Find
        Log("First: " & ToMixCase(Matcher1.Group(1)))
        Log("Middle: " & ToMixCase(Matcher1.Group(2)))
        Log("Last: " & ToMixCase(Matcher1.Group(3)))
    End If

B4X:

Public Sub ToMixCase(Entry As String) As String
    Dim sb As StringBuilder
    Dim I As Int
    Entry = Entry.ToLowerCase
    sb.Initialize
    Dim m As Matcher =...

Brian Dean · Dec 5, 2021

I think that you are setting a very difficult challenge. Would the following names (all real people) be acceptable or not?

William McAlpine
Ron DeSantis
D'Angelo Russell

There are examples of Regex name validators on the Net, but I have never found one that can be guaranteed to accept every valid name and at the same time spot all invalid ones.

Anyway, I think that you need to provide a better definition of what you consider an acceptable name format.

Star-Dust · Dec 5, 2021

I guess by TextField in B4A I meant edittext....

B4X:

Public Sub EdiText1_EnterPressed
    Dim Text1 As EditText = Sender
    If Text1.Text.Trim.IndexOf(" ")>-1 Then
        ' accept
        ' focus to nex view
    Else
        ' wrong
        ToastMessageShow("Ahi ahi ahi",True)
        Text1.RequestFocus
    End If
End Sub

or

B4X:

Public Sub EdiText1_EnterPressed
    Dim Text1 As EditText = Sender
    If Text1.Text.Trim.Contains("Isaac Donkor,") Or Text1.Text.Trim.Contains("Michael John Smith")  Or Text1.Text.Trim.Contains("William McAlpine")  Then
        ' accept
        ' focus to nex view
    Else
        ' wrong
        ToastMessageShow("Ahi ahi ahi",True)
        Text1.RequestFocus
    End If
End Sub

ProjectGroup19 · Dec 5, 2021

Please, what I was trying to emphasize on was the format. {First name} {Lastname} thus the Isaac Donkor. And {first name} {middle name} {last name} thus the Michael John Smith.

ProjectGroup19 · Dec 5, 2021

Star-Dust said:

I guess by TextField in B4A I meant edittext....

B4X:

Public Sub EdiText1_EnterPressed
    Dim Text1 As EditText = Sender
    If Text1.Text.Trim.IndexOf(" ")>-1 Then
        ' accept
        ' focus to nex view
    Else
        ' wrong
        ToastMessageShow("Ahi ahi ahi",True)
        Text1.RequestFocus
    End If
End Sub

Thank you I will try if this works.

mcqueccu · Dec 5, 2021

I think Regex should work.
Another workaround is to use a different textbox for first name and another for last name (3rd for a middle name that is if needed). You can then join them together. Or just check if the input string contains space.

Brian Dean · Dec 5, 2021

Please, what I was trying to emphasize on was the format. {First name} {Lastname} thus the Isaac Donkor

Okay, that is a better definition. But in my case my surname (Dean) is also acceptable as a given name (Americans very often assume that it is my first name). In fact there may very well be somebody called "Dean Brian" reading this right now. And in some countries the family name (the patronymic) precedes the given name.

And what about ...

George Michael - British singer
Michael Douglas - American film actor
Douglas George - resident of Great Falls, Montana

TILogistic · Dec 5, 2021

simple test.

Validate the entry by separating the names and surnames

B4X:

Private Sub B4XFloatTextField1_EnterPressed
    Dim Matcher1 As Matcher = Regex.Matcher("([^\s]+)", B4XFloatTextField1.Text)
    Do While Matcher1.Find
        Log("Found: " & Matcher1.Match)
    Loop
End Sub

read:

Regular Expressions Cookbook

4.18. Reformat Names From “FirstName LastName” to “LastName, FirstName” Problem You want to convert people’s names from the “FirstName LastName” format to “LastName, FirstName”, for use in an alphabetical … - Selection from Regular Expressions Cookbook [Book]

www.oreilly.com

TILogistic · Dec 5, 2021

other:

B4X:

Private Sub B4XFloatTextField1_EnterPressed
    
    Log("*** Free format of names and surnames ***")
    
    Dim Matcher1 As Matcher = Regex.Matcher("([^\s]+)", B4XFloatTextField1.Text)
    Do While Matcher1.Find
        Log("Found: " & Matcher1.Match)
    Loop
    
    Log("*** Fixed format First Middle Last ***")
    
    If Regex.IsMatch("^([\w-.]+)\h*(.+)\h*\b(\w+)$", B4XFloatTextField1.Text) Then
        Dim Matcher1 As Matcher = Regex.Matcher("^([\w-.]+)\h*(.+)\h*\b(\w+)$", B4XFloatTextField1.Text)
        Matcher1.Find
        Log("First: " & Matcher1.Group(1))
        Log("Middle: " & Matcher1.Group(2))
        Log("Last: " & Matcher1.Group(3))
    End If
End Sub

Mahares · Dec 5, 2021

oparra said:
other

oparra said:
Log("*** Fixed format First Middle Last ***")

This won't work for Norah Mary O'Donnell
The free format will probably be more suitable in that case.
There is also a way to capitalize the first letter of each of the words via RegeX that escapes me,, although a sub can be built to do it.

TILogistic · Dec 5, 2021

Mahares said:
This won't work for Norah Mary O'Donnell
The free format will probably be more suitable in that case.
There is also a way to capitalize the first letter of each of the words via RegeX that escapes me,, although a sub can be built to do it.

You can add that in groups the characters (- or ') are part of the first or last name.

sample:
D'Angelo Russell
Norah Mary O'Donnell
Scarlett O'Hara
Catherine Zeta-Jones
etc.

Also, what I posted is just an example of what can be done and how to use regex.

The rest is on your own to find out how to add more conditions.

Sorry.

TILogistic · Dec 5, 2021

There is also a way to capitalize the first letter of each of the words

B4X:

    Log("*** Fixed format First Middle Last ***")
   
    Log(ToMixCase(B4XFloatTextField1.Text))
   
    If Regex.IsMatch("^([\w-.]+)\h*(.+)\h*\b(\w+)$", B4XFloatTextField1.Text) Then
        Dim Matcher1 As Matcher = Regex.Matcher("^([\w-.]+)\h*(.+)\h*\b(\w+)$", B4XFloatTextField1.Text)
        Matcher1.Find
        Log("First: " & ToMixCase(Matcher1.Group(1)))
        Log("Middle: " & ToMixCase(Matcher1.Group(2)))
        Log("Last: " & ToMixCase(Matcher1.Group(3)))
    End If

B4X:

Public Sub ToMixCase(Entry As String) As String
    Dim sb As StringBuilder
    Dim I As Int
    Entry = Entry.ToLowerCase
    sb.Initialize
    Dim m As Matcher = Regex.Matcher("(^\w)|(\s\w)", Entry)
    Do While m.Find
        If m.Match.Length > 1 Then
            sb.Append(Entry.SubString2(I, m.GetStart(0) + 1))
            sb.Append(m.Match.SubString(1).ToUpperCase)
        Else
            sb.Append(Entry.SubString2(I, m.GetStart(0)))
            sb.Append(m.Match.ToUpperCase)
        End If
        I = m.GetEnd(0)
    Loop
    If I < Entry.Length Then
        sb.Append(Entry.SubString(I))
    End If
    Return sb.ToString
End Sub

ProjectGroup19 · Dec 5, 2021

oparra said:

B4X:

    Log("*** Fixed format First Middle Last ***")
  
    Log(ToMixCase(B4XFloatTextField1.Text))
  
    If Regex.IsMatch("^([\w-.]+)\h*(.+)\h*\b(\w+)$", B4XFloatTextField1.Text) Then
        Dim Matcher1 As Matcher = Regex.Matcher("^([\w-.]+)\h*(.+)\h*\b(\w+)$", B4XFloatTextField1.Text)
        Matcher1.Find
        Log("First: " & ToMixCase(Matcher1.Group(1)))
        Log("Middle: " & ToMixCase(Matcher1.Group(2)))
        Log("Last: " & ToMixCase(Matcher1.Group(3)))
    End If

B4X:

Public Sub ToMixCase(Entry As String) As String
    Dim sb As StringBuilder
    Dim I As Int
    Entry = Entry.ToLowerCase
    sb.Initialize
    Dim m As Matcher = Regex.Matcher("(^\w)|(\s\w)", Entry)
    Do While m.Find
        If m.Match.Length > 1 Then
            sb.Append(Entry.SubString2(I, m.GetStart(0) + 1))
            sb.Append(m.Match.SubString(1).ToUpperCase)
        Else
            sb.Append(Entry.SubString2(I, m.GetStart(0)))
            sb.Append(m.Match.ToUpperCase)
        End If
        I = m.GetEnd(0)
    Loop
    If I < Entry.Length Then
        sb.Append(Entry.SubString(I))
    End If
    Return sb.ToString
End Sub

View attachment 122706

This worked Great. Thank you.

ProjectGroup19 · Dec 5, 2021

Thank you all for the effort you made. I am grateful.

Android Question [SOLVED] Full name field Validation

ProjectGroup19

Active Member

TILogistic

Brian Dean

Well-Known Member

Star-Dust

Expert

ProjectGroup19

Active Member

ProjectGroup19

Active Member

mcqueccu

Well-Known Member

Brian Dean

Well-Known Member

TILogistic

Expert

Regular Expressions Cookbook

TILogistic

Expert

Mahares

Expert

TILogistic

Expert

TILogistic

Expert

ProjectGroup19

Active Member

ProjectGroup19

Active Member

Android Question [SOLVED] Full name field Validation

Active Member

Well-Known Member

Expert

Active Member

Active Member

Well-Known Member

Well-Known Member

Expert

Expert

Expert

Expert

Expert

Active Member

Active Member

Privacy & Transparency

Privacy & Transparency