PureBasic

StringBuilder GetAfterFinal

Demonstrates the StringBuilder.GetAfterFinal method.

The GetBefore method was added in Chilkat v9.5.0.77

PureBasic

IncludeFile "CkStringBuilder.pb"

Procedure ChilkatExample()

    success.i = 0

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

    success = CkStringBuilder::ckAppend(sb,"111--222--333--444")

    ; The GetAfterFinal method returns the contents of the string after the final occurrence of
    ; the marker string.  If the remove flag is 1, then both the returned string AND
    ; the marker are removed.

    ; If the marker is not found, then the entire string is returned and the sb is cleared.
    removeFlag.i = 1
    marker.s = "--"
    substr.s
    While (CkStringBuilder::ckLength(sb) > 0)
        substr = CkStringBuilder::ckGetAfterFinal(sb,marker,removeFlag)
        Debug "substr = " + substr + ", sb contains: " + CkStringBuilder::ckGetAsString(sb)
    Wend

    ; Output:
    ; substr = 444, sb contains: 111--222--333
    ; substr = 333, sb contains: 111--222
    ; substr = 222, sb contains: 111
    ; substr = 111, sb contains: 
    ; 


    CkStringBuilder::ckDispose(sb)


    ProcedureReturn
EndProcedure