NewStream | Erzeugt ein Objekt vom Typ CStream |
SetSizeEstimate | Damit kann die erwartete Anzahl Teilstrings festgelegt werden, falls bekannt |
Add...Add4 | Fügt einen bis 4 Teilstrings an den Stream an |
AddNL...Add4NL | Fügt einen bis 4 Teilstrings mit anschliessendem NL (vbCRLF) an den Stream an |
GetString | Gibt den zusammengesetzten String zurück |
Clear | Löscht den Stream |
Siehe auch Anwendung
set stream = NewStream( aSizeEstimate )
Die Funktion NewStream erzeugt ein CStream-Objekt.
Das CStream-Objekt kann mehrfach wiederverwendet werden. Mit der Funktion SetSizeEstimate kann dazu die erwartete neue Anzahl von String-Elementen zugewiesen werden.
stream.SetSizeEstimate aSize
Wenn man etwa weiss, wie viele Teilstrings zusammen zu setzen sind, so kann man dies dem CStream-Objekt mit SetSizeEstimate angeben. Der interne Array wird damit auf diese Grösse dimensioniert. Werden mehr Teilstrings hinzugefügt, so wird der interne Array jedoch automatisch weiter vergrössert.
SetSizeEstimate muss aufgerufen werden, bevor der erste Teilstring in den CStream eingefügt wird, da der Stream dabei gelöscht wird.
Die erwartete Anzahl Elemente kann auch direkt beim Konstruktor NewStream angegeben werden. SetSizeEstimate ist nützlich, wenn ein CStream-Objekt nach GetString wiederverwendet wird.
stream.Add str stream.Add2 str1, str2 stream.Add3 str1, str2, str3 stream.Add4 str1, str2, str3, str4
Fügt einen oder mehrere Strings an das CStream-Objekt an.
function GetTableFromDBasHTML() dim recordSet, htmlStream set htmlStream = NewStream(0) htmlStream.Add "<table>" set recordSet = LoadRecordsetFromDB() while not recordSet.EOF htmlStream.Add2 "<tr><td>", recordSet("Name") htmlStream.Add3 "</td><td>", ..., "</td></tr>" recordSet.MoveNext wend htmlStream.Add "</table>" GetTableFromDBasHTML = htmlStream.GetString(false) end function
stream.AddNL str stream.Add2NL str1, str2 stream.Add3NL str1, str2, str3 stream.Add4NL str1, str2, str3, str4
Fügt einen oder mehrere Strings an das CStream-Objekt an und hängt ein vbCRLF zusätzlich daran.
str = stream.GetString( bClear )
Setzt alle mit Add...Add4 hinzugefügten Strings zusammen und gibt den resultierenden String zurück.
Wenn bClear = false ist, bleibt der interne Speicher weiterhin bestehen und kann weiter befüllt werden.
Setzen sie bClear = true, wenn sie das CStream-Objekt nach dem Aufruf von GetString wiederverwenden wollen (von Grund auf neu befüllen).
Setzen sie bClear = false, wenn sie das CStream-Objekt nach dem Aufruf von GetString nicht mehr benötigen oder später weitere Werte hinzufügen wollen.
function GetTableFromDBasHTML() dim recordSet, htmlStream set htmlStream = NewStream(0) htmlStream.Add "<table>" set recordSet = LoadRecordsetFromDB() while not recordSet.EOF htmlStream.Add2 "<tr><td>", recordSet("Name") htmlStream.Add3 "</td><td>", ..., "</td></tr>" recordSet.MoveNext wend htmlStream.Add "</table>" GetTableFromDBasHTML = htmlStream.GetString(false) end function
stream.Clear
Löscht den Inhalt des CStream-Objektes. Diese Funktion wird wohl kaum benötigt. Sie ist jedoch der Vollständigkeit halber vorhanden.