VBScript

Implement Preprocessor #include with StringBuilder

Demonstrates how to implement #include with a Chilkat StringBuilder. VBScript

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

' First build a string that has a preprocessor include
set sbSrc = CreateObject("Chilkat.StringBuilder")
success = sbSrc.Append("1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf)
success = sbSrc.Append("#include <qa_data/txt/helloWorld.txt>" & vbCrLf)
success = sbSrc.Append("4" & vbCrLf & "5" & vbCrLf)

outFile.WriteLine(sbSrc.GetAsString())

' sbSrc contains:
' 	1
' 	2
' 	3
' 	#include <qa_data/txt/helloWorld.txt>
' 	4
' 	5

' The qa_data/txt/helloWorld.txt file contains "Hello World!"

filePath = sbSrc.GetAfterBetween("#include","<",">")
If (sbSrc.LastMethodSuccess <> 1) Then
    outFile.WriteLine("No #include's found.")
    WScript.Quit
End If

outFile.WriteLine("filePath: " & filePath)

' Load the contents of the filePath
set sbIncludeFile = CreateObject("Chilkat.StringBuilder")
success = sbIncludeFile.LoadFile(filePath,"utf-8")

' Replace the first occurrence of #include <...> line with the contents of the include file.
success = sbSrc.ReplaceAllBetween("#include",">",sbIncludeFile.GetAsString(),1)

outFile.WriteLine(sbSrc.GetAsString())

' sbSrce now contains:
' 	1
' 	2
' 	3
' 	Hello World!
' 	4
' 	5

outFile.Close