Classic ASP

Implement Preprocessor #include with StringBuilder

Demonstrates how to implement #include with a Chilkat StringBuilder.

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' First build a string that has a preprocessor include
set sbSrc = Server.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)

Response.Write "<pre>" & Server.HTMLEncode( sbSrc.GetAsString()) & "</pre>"

' 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
    Response.Write "<pre>" & Server.HTMLEncode( "No #include's found.") & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "filePath: " & filePath) & "</pre>"

' Load the contents of the filePath
set sbIncludeFile = Server.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)

Response.Write "<pre>" & Server.HTMLEncode( sbSrc.GetAsString()) & "</pre>"

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

%>
</body>
</html>