Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcel

Excel Examples


ASN.1
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Azure Cloud Storage
Azure Service Bus
Bounced Email
Box
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
ECC
Email Object
Encryption
FTP
Facebook
Firebase
GeoOp
Google APIs
Google Calendar
Google Cloud Storage
Google Drive
Gzip
HTML-to-XML/Text
HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)

Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
NTLM
OAuth1
OAuth2
OneDrive
OpenSSL
Outlook
PEM
PFX/P12
POP3
PRNG
PayPal
Peoplevox
QuickBooks
REST
RSA Encryption
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
SharePoint
Shopify
Socket/SSL/TLS
Spider
Stream
Stripe
SugarCRM
Tar Archive
Twitter
VoiceBase
Walmart
WebSocket
XML
XML Digital Signatures
XMP
Xero
Zip
curl
eBay

 

 

 

(Excel) Implement Preprocessor #include with StringBuilder

Demonstrates how to implement #include with a Chilkat StringBuilder.

Download Excel Class Modules

Chilkat Excel Class Modules

'  First build a string that has a preprocessor include
Dim sbSrc As Chilkat.StringBuilder
Set sbSrc = Chilkat.NewStringBuilder
Dim success As Boolean
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 <> True) Then
    Debug.Print "No #include's found."
    Exit Sub
End If

Debug.Print "filePath: "; filePath

'  Load the contents of the filePath
Dim sbIncludeFile As Chilkat.StringBuilder
Set sbIncludeFile = Chilkat.NewStringBuilder
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(),True)

Debug.Print sbSrc.GetAsString()

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

 

© 2000-2016 Chilkat Software, Inc. All Rights Reserved.