Reverse Each Word of A String Instead of The String

Category:

String Manipulation

Type:

Modules

Difficulty:

Intermediate

Author:

Fernando Cañete

Version Compatibility: Visual Basic 6

More information:

This function take a string of words and reverses each word in the string instead of the entire string. Syntax: StrReversed(). To test it, add the following controls to a form in a standard exe project, textBox, label and command button. Example 1: Input String = "My name is Albert McDonald." Output String = "Ym eman si Trebla DlAnodcm." Note: The words themselves should be in the same order as they were to begin with. If a word has upper case letters then those positions should still be upper case in the result set. Any non-alpha character will be retained as is.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Private Sub Command1_Click()
    Label1.Caption = StrReversed(Trim(Text1.Text))
End Sub

Function StrReversed(ByVal lstrString As String) As String
        On Error GoTo StrReversed_Error
        Dim llngUBound As Long
        Dim larrStr() As String
        Dim lstrStr As String
        Dim llngStrSize As Long
        Dim lstrReversed As String
        Dim llngCounter As Long

larrStr() = Split(lstrString, " ")
        llngUBound = UBound(larrStr)
        llngStrSize = 0

For llngCounter = 0 To llngUBound

lstrStr = larrStr(llngCounter)
            llngStrSize = Len(lstrStr)
            lstrReversed = lstrReversed & FlipString(lstrStr) & " "

Next llngCounter
        Debug.Print (lstrString)
        StrReversed = lstrReversed

Exit Function

StrReversed_Error:
        StrReversed = ""
        MsgBox "Error #: " & Err.Number & vbCrLf & "Description : " & Err.Description & vbCrLf & vbCrLf & vbCrLf, vbCritical, "ERROR"

End Function

Function FlipString(ByVal lstrString As String) As String
        On Error GoTo FlipString_Error
        Dim llngLenStr As Long
        Dim lstrLChr As String
        Dim lstrRChr As String
        Dim lstrFlipString As String
        Dim llngLoc As Long
        Dim llngRightPos As Long

llngLenStr = Len(lstrString)

If llngLenStr = 0 Then Exit Function

lstrFlipString = Space(llngLenStr)

llngRightPos = llngLenStr

For llngLoc = 1 To llngLenStr

lstrLChr = Mid$(lstrString, llngLoc, 1)

If InStr(1, "abcdefghijklmnopqrstuvwxyz", LCase(lstrLChr)) = 0 Then
                Mid$(lstrFlipString, llngLoc, 1) = lstrLChr
                llngRightPos = llngRightPos + 1
            Else

If llngRightPos > 0 Then
                    lstrRChr = Mid$(lstrString, llngRightPos, 1)
                Else
                    lstrRChr = lstrLChr
                End If

If InStr(1, "abcdefghijklmnopqrstuvwxyz", LCase(lstrRChr)) <> 0 Then

If UCase(lstrLChr) = lstrLChr Then
                        lstrLChr = UCase(lstrRChr)
                    Else
                        lstrLChr = LCase(lstrRChr)
                    End If

Mid$(lstrFlipString, llngLoc, 1) = lstrLChr

Else
                    llngLoc = llngLoc - 1
                    Mid$(lstrFlipString, llngRightPos, 1) = lstrRChr
                End If

End If

llngRightPos = llngRightPos - 1

Next llngLoc

FlipString = lstrFlipString

Exit Function

FlipString_Error:

FlipString = ""

MsgBox "Error #: " & Err.Number & vbCrLf & "Description : " & Err.Description & vbCrLf & vbCrLf & vbCrLf, vbCritical, "ERROR"

End Function