String Problem 1

[Domino2]

I have a string that contains possibly a forename, middle name and surname. The string is in reverse, ie

Jones Adam Gordon
or
Jones Gordon.

I need to convert tha string to make it either

Gordon Adam Jones
or Gordon Jones.

Whats the easiest way to do it, thanks

 

[fneily]

See thread702-1506339

 

[MajP]

Check out the FAQs there are a lot of Name string manipulations. They tend to be case specific. For your case try something like:

Public Function reverseName(strName As Variant) As String
  Dim aName() As String
  If Not IsNull(strName) Then
    aName = Split(strName)
      Select Case UBound(aName)
        Case 2
          reverseName = aName(2) & " " & aName(1) & " " & aName(0)
        Case 1
          reverseName = aName(1) & " " & aName(0)
        Case Else
      End Select
  End If
End Functionn

 

[missinglinq]

What they tend to be are hairballs! Besides First and Last or First and Middle and Last, you also have two part last names (Van Zandt] each of those possibilities with Jr, Sr, III to say nothing of MD and Esq and so forth!

In the end, no matter how much you try to automate this, unless you're absolutely sure that there will be no variations on the first two possibilities, you're going to have to physically scan the results.

Good Luck!

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!

 

[Domino2]

Thanks for replies. Majp, that works a treat.