<-- Previous || Up || Next -->

Cat Line Sub
String Manipulations Class

Public Sub CatLine( _
      ByRef rTo As Variant _
    , ByVal vFrom As Variant _

"Concatenate Line"
Add a line of text onto the end of a string representing a paragraph.
Concatenate the string representation of a value onto the end of a string, preceded by carriage return and new line characters unless the target string rTo is empty.

       CatLine S, "New"
    is the same as
       S = S & Chr$(13) & Chr$(10) & "New"
       S = S & vbCrLf & "New"
except that no carriage return and line feed characters are added when the target string (rTo) is empty.
See also:
    Cat Subroutine
Subroutine silently does nothing if both arguments (rTo and vFrom) are Null.

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.