PowerBuilder

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method. PowerBuilder

integer li_rc
oleobject loo_StrTab
string s
integer i
integer li_NumStrings

loo_StrTab = create oleobject
li_rc = loo_StrTab.ConnectToNewObject("Chilkat.StringTable")
if li_rc < 0 then
    destroy loo_StrTab
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// SplitAndAppend make it easy to break apart comma delimited, semicolon delimited,
// or strings delimited by other characters.
s = "abc,123,xyz,456,music,math,~"World History~",~"Chicago,Cubs~",Japan"

loo_StrTab.SplitAndAppend(s,",",1,1)

i = 0
li_NumStrings = loo_StrTab.Count
do while i < li_NumStrings
    Write-Debug string(i) + ": " + loo_StrTab.StringAt(i)
    i = i + 1
loop

// The output is: 
// 0: abc
// 1: 123
// 2: xyz
// 3: 456
// 4: music
// 5: math
// 6: "World History"
// 7: "Chicago,Cubs"
// 8: Japan

// Note: Keeping the quotes is intentional.


destroy loo_StrTab