(VBScript) Get the Last N Lines of a StringBuilder

Returns up to the last N lines of the contents of a Chilkat StringBuilder.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")

i = 1
Do While i < 100
    success = sb.Append("This is line number ")
    success = sb.AppendInt(i)
    success = sb.Append(vbCrLf)
    i = i + 1
Loop

bCrlf = 1
outFile.WriteLine(sb.LastNLines(12,bCrlf))

' Output is:
' 
' 	This is line number 88
' 	This is line number 89
' 	This is line number 90
' 	This is line number 91
' 	This is line number 92
' 	This is line number 93
' 	This is line number 94
' 	This is line number 95
' 	This is line number 96
' 	This is line number 97
' 	This is line number 98
' 	This is line number 99
' 

outFile.Close