PureBasic

Get a Mail-Merge Replacement String by Index

Demonstrates the Chilkat Email.GetReplaceString method, which returns the replacement string for the Nth previously-defined pattern/replacement pair (a mail-merge feature). The index is zero-based and corresponds to the same index used by GetReplacePattern. This example defines two pairs and prints each pattern with its replacement.

Background: Pairing GetReplacePattern (the token to find) with GetReplaceString (the text to substitute) at the same index lets you walk the full mail-merge table. Retrieving a replacement by its position is handy when enumerating all substitutions; to look one up by its pattern instead, use GetReplaceString2.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    ;  Demonstrates the GetReplaceString method, which returns the replacement string for the
    ;  Nth previously-defined pattern/replacement pair (a mail-merge feature).  The index is
    ;  zero-based and corresponds to the same index used by GetReplacePattern.

    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(email, "Hello FIRST_NAME")
    CkEmail::setCkBody(email, "Dear FIRST_NAME, welcome to CITY.")

    CkEmail::ckSetReplacePattern(email,"FIRST_NAME","John")
    CkEmail::ckSetReplacePattern(email,"CITY","Denver")

    n.i = CkEmail::ckNumReplacePatterns(email)
    i.i
    For i = 0 To n - 1
        Debug CkEmail::ckGetReplacePattern(email,i) + " -> " + CkEmail::ckGetReplaceString(email,i)
    Next


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure