PowerBuilder

Implement Preprocessor #include with StringBuilder

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

integer li_rc
oleobject loo_SbSrc
string ls_FilePath
oleobject loo_SbIncludeFile

// First build a string that has a preprocessor include
loo_SbSrc = create oleobject
li_rc = loo_SbSrc.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_SbSrc
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_SbSrc.Append("1~r~n2~r~n3~r~n")
loo_SbSrc.Append("#include <qa_data/txt/helloWorld.txt>~r~n")
loo_SbSrc.Append("4~r~n5~r~n")

Write-Debug loo_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!"

ls_FilePath = loo_SbSrc.GetAfterBetween("#include","<",">")
if loo_SbSrc.LastMethodSuccess <> 1 then
    Write-Debug "No #include's found."
    destroy loo_SbSrc
    return
end if

Write-Debug "filePath: " + ls_FilePath

// Load the contents of the filePath
loo_SbIncludeFile = create oleobject
li_rc = loo_SbIncludeFile.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbIncludeFile.LoadFile(ls_FilePath,"utf-8")

// Replace the first occurrence of #include <...> line with the contents of the include file.
loo_SbSrc.ReplaceAllBetween("#include",">",loo_SbIncludeFile.GetAsString(),1)

Write-Debug loo_SbSrc.GetAsString()

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


destroy loo_SbSrc
destroy loo_SbIncludeFile