Dim suffixList () As String "va conține o listă de sufixe Dim preFixList () As String" va conține o listă de prefixe
Private Sub ParseName (valoare ca șir, ByRef firstName ca șir, ByRef MiddleName ca șir, ByRef NumeDeFamilie ca șir) ca șir de Dim splittedName splittedName = Split, (valoare, "") Dim prefixLname ca șir de Dim suffixLname Ca String „***** **************************************** „cravată pentru numele împărțit“ *** pentru i = ****************************************** LBound (splittedName) la UBound (splittedName) Dacă i = 0 Atunci
firstName = divizatName (i)
Elseif i = 1 Apoi „******************************************** * „verifică dacă valoarea nu există în suffixList sau preFixList“, apoi îl definește ca MiddleName, dar salvează ca prefixLname sau suffixLname „********************* Dacă ************************ (DoesValueExsistInList (suffixList, splittedName (i))) Apoi suffixLname = splittedName (i) elseif (DoesValueExsistInList (preFixList, splittedName (i))) Apoi prefixLname = splittedName (i) Else MiddleName = splittedName (i) End If
cec Else `*********************************************` valoarea nu există în suffixList sau preFixList „apoi setați ca NumeDeFamilie, dar salvează ca suffixList sau preFixList“ ************************* Dacă ******************** (DoesValueExsistInList (suffixList, splittedName (i))) Apoi suffixLname = splittedName (i) elseif (DoesValueExsistInList (preFixList, splittedName (i)) ) Apoi prefixLname = splittedName (i) = NumeDeFamilie splittedName Else (i) End If
End If Next `*********************************************` verifică dacă șirul este gol, iar apoi alocați NumeDeFamilie = MiddleName „concateneaza valorile cu suffixLname lastName„***************************** ****************
Dacă Len (LastName) = 0 Apoi LastName = Sfârșitul MiddleName Dacă LastName = prefixLname „“ NumeDeFamilie „“ suffixLname End Sub `*********************************************` Tu găsi valoarea în vectorul „******************************************** * Funcția Private DoesValueExsistInList (sursa () Ca String, searchstring ca șir) Ca Boolean „******************************** ************* „caută o valoare într-o matrice de siruri de caractere și returnează true (true) dacă este găsit“ ******************** ************************* Dim retval retval Ca Boolean = false Pentru i = LBound (sursa) la UBound (sursa) Dacă LCASE (searchstring) = LCASE (sursa (i)) Apoi retval = True de ieșire pentru End If
Funcția următoare de terminare
Private Sub Command1_Click () Dim nume ca șir Dim dim fName ca șir Dim lName ca șir Dim mName Ca șir nume = "amit" End Sub