VBA class: StringJoiner - join strings on a given separator

Source code

' vi: ft=vb
'
' V0.1

option explicit

private first   as boolean
private joiner  as string
private buf     as stringBuffer

public sub init(joiner_ as string, optional bufSize as long = 1000) ' {
    first  = true
    joiner = joiner_

    set buf = new stringBuffer : buf.init(bufSize)
end sub ' }

function add(txt as variant) as string ' {

    if first then
       buf.append(txt)
       first = false
    else
       buf.append(joiner & txt)
    end if

end function ' }

function value() as string ' {
     attribute value.vb_userMemId = 0
     value = buf
end function ' }

See also