Sådan skriver du en pseudokode

Dim suffixList () As String `vil indeholde en liste over suffixer Dim preFixList () As String` indeholder en liste over præfikser

Private Sub ParseName (værdi As String, ByRef fornavn As String, ByRef mellemnavn As String, ByRef EfterNavn As String) As String Dim splittedName splittedName = Split (værdi, "") Dim prefixLname As String Dim suffixLname As String `***** **************************************** `slips til delte navn` *** for i = ****************************************** LBound (splittedName) til Ubundet (splittedName) Hvis jeg = 0 Så

firstName = splittedName (i)

Elseif i = 1 Then `******************************************** * `kontrol, hvis værdien ikke findes i suffixList eller preFixList` så definerer det som mellemnavn, men gemmer det som prefixLname eller suffixLname `********************* Hvis ************************ (DoesValueExsistInList (suffixList, splittedName (i))) Derefter suffixLname = splittedName (i) elseif (DoesValueExsistInList (preFixList, splittedName (i))) Derefter prefixLname = splittedName (i) Else mellemnavn = splittedName (i) End If

Else `*********************************************` kontrol værdien ikke findes i suffixList eller preFixList `og derefter indstille det som LastName, men gemmer det som suffixList eller preFixList` ************************* Hvis ******************** (DoesValueExsistInList (suffixList, splittedName (i))) Derefter suffixLname = splittedName (i) elseif (DoesValueExsistInList (preFixList, splittedName (i)) ) Så prefixLname = splittedName (i) = EfterNavn Else splittedName (i) End If

End If Next `*********************************************` kontrollerer, om strengen er tom, og derefter tildele Efternavn = mellemnavn `sammenkæder værdierne med suffixLname lastName "***************************** ****************

Hvis Len (LastName) = 0 Then LastName = MiddleName End Hvis LastName = prefixLname "" Efternavn "" suffixLname End Sub `*********************************************` Du finder værdien i vektor `******************************************** * Privat Funktion DoesValueExsistInList (kilde () As String, searchString As String) Som Boolean `******************************** ************* `søge efter en værdi i et array af strenge og returnerer true (sand), hvis fundet` ******************** ************************* Dim retVal retVal Som Boolean = False For i = LBound (kilde) Til UBound (kilde) Hvis LCase (searchString) = LCase (kilde (i)) Så retVal = True Exit For End If

Næste endefunktion

Privat Sub Command1_Click () Dim navn Som String Dim fName Som String Dim lName Som String Dim mName Som String Name = "Amit" End Sub