Visual Basic 6.0

Implement Preprocessor #include with StringBuilder

Demonstrates how to implement #include with a Chilkat StringBuilder. Visual Basic 6.0

' First build a string that has a preprocessor include
Dim sbSrc As New ChilkatStringBuilder
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)

Debug.Print 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!"

Dim filePath As String
filePath = sbSrc.GetAfterBetween("#include","<",">")
If (sbSrc.LastMethodSuccess <> 1) Then
    Debug.Print "No #include's found."
    Exit Sub
End If

Debug.Print "filePath: " & filePath

' Load the contents of the filePath
Dim sbIncludeFile As New ChilkatStringBuilder
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)

Debug.Print sbSrc.GetAsString()

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