VBA Title Changes - Subtask 1

Description

Given the rules below, what will be the outcome? Please explain the order of operations, and include a variable-worded output (e.g. <title> with <size> in <color>)

1. Using the provided sample rules, provide the output and explain the operations line by line.

Solution

The easiest way to explain the code is with inline comments:

' assume the following:
title = "longsleeve flannel" 
brand = "tinuiti"
size = "medium" 
color = "dark red/black" 
gender = "male" 
ptype = "apparel > t-shirts and tops > shirts" 

' a function that generates a new title using values like above as arguments
Public Function newtitle(title, brand, color, size, gender, ptype) 

    ' Pass title to ProperCase() function in order to 
    ' convert title to proper case, then assign to newtitle
    ' ProperCase() likely contains something like StrConv(strText, vbProperCase)
    newtitle = ProperCase(title) ' "Longsleeve Flannel" 
    
    ' if size is not null and not "One Size"
    If IsNull(size) = False And size <> "One Size" Then
        ' add ", Size " size to the end of newtitle  
        newtitle = newtitle & ", Size " & size '"Longsleeve Flannel, Size medium" 
    End If

    ' remove "Light" from color
    color = Replace(color, "Light", "") '"dark red/black" 
    ' remove "Dark" from color
    color = Replace(color, "Dark", "") '" red/black"
    ' change "/" to " and " in color
    color = Replace(color, "/", " and ") '" red and black"

    ' add " in " to end of newtitle, make color 
    ' proper case and add to end of newtitle 
    newtitle = newtitle & " in " & ProperCase(color) 
    ' "Longsleeve Flannel, Size medium in  Red And Black"

    ' Use InStr() to check if newtitle contains 
    ' "flannel" and if ptype contains "shirt"
    ' if "flannel" is in newtitle and "shirt" is in ptype 
    If InStr(newtitle, "flannel") > 0 And InStr(ptype, "shirt") > 0 Then  
        ' Replace "flannel" with "Plaid Flannel" in newtitle
        newtitle = Replace(newtitle, "Flannel", "Plaid Flannel")
        ' "Longsleeve Plaid Flannel, Size medium in  Red And Black" 
    End If  

    ' if gender is "male"
    If gender = "male" Then ' "male"
        ' add "Men's " to front of newtitle
        newtitle = "Men’s " & newtitle 
        ' "Men's Longsleeve Plaid Flannel, Size medium in  Red And Black"
    Else ' if gender is not "male"
        ' add "Women's " to front of newtitle
        newtitle = "Women’s " & newtitle 
        ' "Men's Longsleeve Plaid Flannel, Size medium in  Red And Black"
    End If  

    ' if brand is not "Default"
    If brand <> "Default" Then ' "tinuiti" 
        ' add brand followed by a space in front of newtitle
        newtitle = brand & " " & newtitle 
        ' "Tinuiti Men's Longsleeve Plaid Flannel, Size medium in  Red And Black"  
    End If   
    
    ' use Replace() to change double spaces to single in newtitle
    ' repeat with the updated newtitle to change new double spaces
    '  that may exist to single.
    ' use Trim() to remove whitespace from both ends of newtitle
    newtitle = Trim(Replace(Replace(newtitle, "  ", " "), "  ", ""))
    ' "Tinuiti Men's Longsleeve Plaid Flannel, Size medium in Red And Black"  

    ' returns newtitle since variable matches function name.
End Function

' declare variable
Dim newtitleStr As String

' call the newtitle function with our example values
newtitleStr = newtitle(title, brand, color, size, gender, ptype)

' output returned new title using either Debug.Print newtitle, MsgBox newtitle, or 
Console.WriteLine(newtitleStr)

' Output:
"Tinuiti Men's Longsleeve Plaid Flannel, Size medium in Red And Black"