Creating a Server Component with VB - Redesigned - Part 2

This is an example of using the string-buffering method in place of concatenation

I''''ll let you play around with this code on your own since the article mentioned above should provide a conceptual understanding of what''''s happening here. But, so you won''''t have to apply a string buffer to the example ShowNotes() method code yourself, here''''s the same code fragment covered in this article''''s "Constructing the Return String" section, but using string buffering rather than concatenation. The entire ShowNotes() sample code is also available optimized with string buffering (STEVE: TO EDITOR: Link to the ShowNotesClassOptimizedCode.doc text as a HTML file).

Code Fragment for Using String Buffering to Construct a Return String

    
''''///// CONSTRUCT NOTE TITLES ///////////////////////////////////
    ''''///// Include the beginning table data and font tags
    S1 S2, S3, strTitleDataStart
    S1 S2, S3, strTitleFontStart
    
    ''''///// Get the number of titles stored in the array
    lngArrayCount = UBound(vRecordArray, 2)
    
    ''''///// Set selected NoteID to array index (for not inserting the <A> tag)
    lngNoteIdIndex = (lngNoteID - 1)
    
    ''''///// Loop through array
    For lngIndexCount = 0 To lngArrayCount
    
        ''''///// Include an <A> tag if not the selected NoteID
        If Not lngNoteIdIndex = lngIndexCount Then
            S1 S2, S3, "<A HREF="""
            S1 S2, S3, strURL
            S1 S2, S3, "?ID="
            S1 S2, S3, vRecordArray(ARRAY_NOTE_ID_INDEX, lngIndexCount)
            S1 S2, S3, """>"
        End If
        
        ''''///// Include the note title text from the array
        S1 S2, S3, vRecordArray(ARRAY_TITLE_INDEX, lngIndexCount)
        
        ''''///// Include an </A> tag if not the selected NoteID
        If Not lngNoteIdIndex = lngIndexCount Then S1 S2, S3, "</A>"
        
        ''''///// End the title line with a line break
        S1 S2, S3, "<BR>"
    Next
    
    ''''///// Include the ending font and table data tags
    S1 S2, S3, strTitleFontEnd
    S1 S2, S3, strTitleDataEnd
    
    
    ''''///// CONSTRUCT NOTE TEXT BODY ////////////////////////////////
    ''''///// Include the beginning table data and font tags
    S1 S2, S3, strTextDataStart
    S1 S2, S3, strTextFontStart
    
    ''''///// Include the note text body
    S1 S2, S3, strNoteText
    
    ''''///// Include the ending font table data tags
    S1 S2, S3, strTextFontEnd
    S1 S2, S3, strTextDataEnd
    
    
    ''''///// SEND BACK CONSTRUCTED TEXT IN BUFFER ////////////////////
    ShowNotes = Left$(S2, S3)