Get string value prepared for csv file. #fregdaley2 #extension #csv

ToCsvValue.vb

        <Extension()> _
        Public Function ToCsvValue(ByVal source As Object, Optional ByVal addDelimiter As Boolean = True) As String
            Dim csvValue As String
            If source Is Nothing Then
                csvValue = ""
            Else
                csvValue = CStr(source).Trim
            End If
            If addDelimiter Then
                Return If(csvValue.IndexOf(",") > -1, String.Format("""{0}"",", csvValue), String.Format("{0},", csvValue))
            Else
                Return If(csvValue.IndexOf(",") > -1, String.Format("""{0}""", csvValue), String.Format("{0}", csvValue))
            End If
        End Function