分隔符拼接字符

/// Description: 以某固定分隔符拼接多个字符
ClassMethod ConnactString(split = ",", pArgs...)
{
    s ret = ""
    for i = 1 : 1 : pArgs {
        s str = pArgs(i)
        continue:(str = "")
        s ret = $s(ret = "" : str , 1 : ret _ split _ str)
    }
    q ret
}

ConnactString("^", "a", "b", "c")
> a^b^c