Function correct_format_for_JSON()

in spreadsheet/Sheet1.vb [61:75]

• 7 lines of code
• 1 McCabe index (conditional complexity)

Function correct_format_for_JSON(ByVal input_text As String) As String
    
    input_text = Replace(Replace(input_text, Chr(10), ""), Chr(13), "")
    
    input_text = Replace(input_text, Chr(34), Chr(39))
    
    input_text = Replace(input_text, "en-us/", "")
    
    
    input_text = escape_character(input_text, "\")
    input_text = escape_character(input_text, "\", False)   
    
    If input_text = "" Then input_text = "&nbsp"
    correct_format_for_JSON = input_text
End Function