Como analisar o nome de um contacto para várias variáveis

Voltar ao topo

Exemplo passo a passo

1. Introduza o seguinte código:

         Function CutLastWord (ByVal S As String, Remainder As String) _
             As String
         ' CutLastWord: returns the last word in S.
         ' Remainder: returns the rest.
         '
         ' Words are separated by spaces
         '
         Dim  I As Integer, P As Integer
           S = Trim$(S)
           P = 1
           For I = Len(S) To 1 Step -1
             If Mid$(S, I, 1) = " " Then
               P = I + 1
               Exit For
             End If
           Next I
           If P = 1 Then
             CutLastWord = S
             Remainder = ""
           Else
             CutLastWord = Mid$(S, P)
             Remainder = Trim$(Left$(S, P - 1))
           End If
         End Function
   
         Function CutWord (ByVal S As String, Remainder As String) As String
         '
         ' CutWord: returns the first word in S.
         ' Remainder: returns the rest.
         '
         Dim P As Integer
           S = Trim$(S)
           P = InStr(S, " ")
           If P = 0 Then P = Len(S) + 1
           CutWord = Left$(S, P - 1)
           Remainder = Trim$(Mid$(S, P + 1))
         End Function
   
         Sub ParseName (ByVal S As String, Title As String, FName As String, _
                        MName As String, LName As String, _
                        Pedigree As String, Degree As String)
         Dim Word As String, P As Integer, Found As Integer
         Const Titles = "Mr.Mrs.Ms.Dr.Miss,Sir,Madam,Mayor,President"
         Const Pedigrees = "Jr.Sr.III,IV,VIII,IX,XIII"
           Title = ""
           FName = ""
           MName = ""
           LName = ""
           Pedigree = ""
           Degree = ""
         '
         ' Get Title
         '
           Word = CutWord(S, S)
           If InStr(Titles, Word) Then
             Title = Word
           Else
             S = Word & " " & S
           End If
         '
         ' Get Degree
         '
           P = InStr(S, ",")
           If P > 0 Then
             Degree = Trim$(Mid$(S, P + 1))
             S = Trim$(Left$(S, P - 1))
           End If
         '
         ' Get Pedigree
         '
           Word = CutLastWord(S, S)
           If InStr(Pedigrees, Word) Then
             Pedigree = Word
           Else
             S = S & " " & Word
           End If
         '
         ' Get the rest
         '
           LName = CutLastWord(S, S)   ' Last Name
           FName = CutWord(S, S)       ' First Name
           MName = Trim(S)             ' Initials/Middle Name(s)
         End Sub
   						

2. Para testar, crie um formulário com caixas de texto sete (txtName txtTitle, txtFirstName, txtMI, txtLastName, txtPedigree, txtDegree) e um botão de comando. Adicione o seguinte código:

         Sub Command1_Click()
         Dim Title As String, FName As String, MI As String
         Dim LName As String, Pedigree As String, Degree As String
           ParseName txtName, Title, FName, MI, LName, Pedigree, Degree
           txtTitle = Title
           txtFirstName = FName
           txtMI = MI
           txtLastName = LName
           txtPedigree = Pedigree
           txtDegree = Degree
         End Sub
   						

3. Apresentar o formulário, escreva um nome para txtName e clique no botão de comando. Os outros seis campos devem conter os valores analisados.

Voltar ao topo

Informações adicionais

1. A rotina análise assume uma vírgula antes do grau, mas não antes do Pedigree. Se existir uma vírgula antes do Pedigree, será incluído como parte do Degree(s). Se pretender permitir Pedigree como estando precedidos por uma vírgula, pode adicionar uma verificação adicional para verificar que se a primeira palavra (separados por vírgulas) do grau está na lista de Pedigrees padrão.
2. O primeiro e último nome é considerados como contêm sem espaços. Se o fizerem (por exemplo, Maria Beth são João), parte do nome (por exemplo, são beth) ficará no valor devolvido inicial/outro nome ao centro. Infelizmente, devido a variabilidade alta de neste caso, existe não boa solução diferente intervenção manual.
3. A rotina de análise foi concebida para nomes de inglês/americano. Outros idiomas podem ter diferentes convenções que poderão requerer ajustes ao código de análise.
4. A lista de títulos e Pedigrees padrão poderá ser facilmente expandida adicionando entradas para dois declarações Const ParseName.
5. É possível efectuar a verificação de título mais genérica procurando um ponto final no fim da primeira palavra se ainda não estiver na lista de títulos padrão.

Voltar ao topo