Public Function WriteCodeBlock( _ ByVal vTemplate As Variant _ , ByVal vKeywords As Variant _ ) As Variant
? WriteCodeBlock("Print \% \\ 40 ' \Div.", "XPos") Print XPos \ 40 ' Div. ? WriteCodeBlock("Dim \% As Integer\n", "XPos YPos") Dim XPos As Integer Dim YPos As Integer ? WriteCodeBlock("Property Get \%() As Integer\n \% = g\%\nEnd Property\n\n", ClipboardToString)See also:
ReplaceString Function, et. al. StringReplacements ClassvTemplate: String containing the "template" or "boilerplate" text which is to be repeated for each keyword in vKeywords. Function returns Null if vTemplate is Null or cannot be fixed up to a String.
\n Replaced by carriage return and new line characters. \\ Replaced by a single slash character. \% Replaced by the current keyword.Any other pair of characters which begins with a slash will have the slash character removed.
vKeywords: String containing the alphanumeric keywords which are each to be substituted into the "template" as the appropriate place. Function returns Null if vKeywords is Null or cannot be fixed up to a String.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.