|
Public Function VariantVectorToString( _
ByRef vLines() As Variant _
, ByVal vColumnSeparator As Variant _
) As String Assuming
Static avarCodes(0 To 3) As Variant
avarCodes(1) = "A45"
avarCodes(2) = "B12"
avarCodes(3) = "C6"
for example
? VariantVectorToString(avarCodes(), "--")
A45--B12--C6
? VariantVectorToString(avarCodes(), "")
A45B12C6v1.5 BugFix: Corrected a bug in the Example above. Join Function (Visual Basic)
StringToVariantVector Function (near inverse)
VariantMatrixToString FunctionvLines: One-dimensional array of Variants that will be assembled into a String. Copyright © 1999-2005 Entisoft