(DataFlex) Load StringTable from a StringBuilder

Demonstrates how to load a StringTable from the text contained in a Chilkat StringBuilder object.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoStrTab
    Variant vSb
    Handle hoSb
    Boolean iSuccess
    Integer i
    Integer iNumStrings
    String sTemp1

    Get Create (RefClass(cComChilkatStringTable)) To hoStrTab
    If (Not(IsComObjectCreated(hoStrTab))) Begin
        Send CreateComObject of hoStrTab
    End
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
    If (Not(IsComObjectCreated(hoSb))) Begin
        Send CreateComObject of hoSb
    End

    Get ComAppend Of hoSb "This is line 1" + (character(13)) + (character(10)) To iSuccess
    Get ComAppend Of hoSb "An empty line follows..." + (character(13)) + (character(10)) To iSuccess
    Get ComAppend Of hoSb (character(13)) + (character(10)) To iSuccess
    Get ComAppend Of hoSb "This is line 4" + (character(13)) + (character(10)) To iSuccess

    Get pvComObject of hoSb to vSb
    Get ComAppendFromSb Of hoStrTab vSb To iSuccess

    Move 0 To i
    Get ComCount Of hoStrTab To iNumStrings
    While (i < iNumStrings)
        Get ComStringAt Of hoStrTab i To sTemp1
        Showln i ": " sTemp1
        Move (i + 1) To i
    Loop



End_Procedure