Nasýl yapýlýr: Kiþi'nin adý birden çok deðiþken çözümle

Üste

Adým adým örnek

1. Aþaðýdaki kodu girin:

         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. Sýnamak için <a0></a0>, metin kutularý yedi (txtName txtTitle, txtFirstName, txtMI, txtLastName, txtPedigree, txtDegree) form ve komut düðmesi oluþturun. Aþaðýdaki kodu ekleyin:

         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. Formun görüntülemek, txtName bir ad yazýn ve komut düðmesini týklatýn. Altý diðer alanlarý çözümlenmi? deðerler içermelidir.

Üste

Ek bilgi

1. Ayrýþtýrma yordamýna derecesini önce ancak deðil Pedigree önce virgül varsayar. Pedigree önce virgül ise Degree(s) bir parçasý olarak dahil edilir. Pedigree, virgülle önlerine izin vermek istiyorsanýz, ilk, (virgülle ayrýlmýþ), word, derecesini standart Pedigrees listesinde görmek için ek bir denetim ekleyebilirsiniz.
2. Ilk ve son adlarý, boþluk içeren varsayýlýr. (Örneðin Mary Ayþe Saint Gamze) oluþuyorsa, adý (örneðin, Ayþe Saint) bir parçasý Orta baþlangýç/Göbek Adý dönüþ deðerinde sona erdirir. Ne yazýk ki, bu durumda yüksek çeþitliliði nedeniyle, el ile müdahale dýþýndaki hiçbir bir iyi geçici çözüm vardýr.
3. Ayrýþtýrma yordamýna ingiliz/Amerikan adlarý için tasarlanmýþtýr. Diðer diller ayrýþtýrma kodunun ayarlamalar gerektiren farklý kurallarýna sahip olabilir.
4. Standart baþlýklar ve Pedigrees listesini kolayca ParseName iki eþitlenir bildirimlerinde girdileri ekleyerek uzatýlabilir.
5. Baþlýk denetle bir dönemin ilk sözcüðün sonunda, standart baþlýk listesinde yoksa bakarak daha genel kullanýma açýlabilir.

Üste