R
Russell Jones
Here's one way. Note that the function doesn't do any checking or trimming,
so it will happily append empty strings or strings containing nothing but
white space. Also note that if you're going to do very many of these string
concatenations, you should use a StringBuilder instead.
Function AppendCommaDelimitedValue(ByVal s As String, ByVal appendValue
As String) As String
If s.Length = 0 Then
s = appendValue
Else
s = s & "," & appendValue
End If
Return s
End Function
so it will happily append empty strings or strings containing nothing but
white space. Also note that if you're going to do very many of these string
concatenations, you should use a StringBuilder instead.
Function AppendCommaDelimitedValue(ByVal s As String, ByVal appendValue
As String) As String
If s.Length = 0 Then
s = appendValue
Else
s = s & "," & appendValue
End If
Return s
End Function
