SplitToArray.pkg

splitToArray.pkg

Function SplitToArray Global String sVal String sChar Returns String[]
    String[] astVal
    String sHold
    Integer iCount
    Integer iPos 
    Integer iBreak
    Integer iMax 
    
    Move (Length(sVal)) to iMax 
    Move (Length(sChar)) to iBreak 

    Move 0 to iCount 
    Repeat 
        Move (Pos(sChar,sVal)) to iPos
        If (iPos<>0) Begin 
            Move (Left(sVal,iPos-1)) to astVal[iCount]
            Move (Mid(sVal,iMax,(iPos+iBreak))) to sVal 
        End
        Else Begin 
            Move sVal to astVal[iCount]
        End
        Increment iCount
    Until (iPos=0)
        
    Function_Return astVal
End_Function // Split