TC截取字符串--包括或不包括关键字

//截取字符串,1.包括前后字符串,2.不包括前后字符串
function 截取字符串(原文内容, 文本开头="", 文本结尾="", CutType=2)
    var 开始位置=-1, 结束位置=-1,查找开始位置,查找结束位置,截取结果=""
    select( CutType)
        case 1
        如果(文本开头=="")
            查找开始位置=0
        否则
            查找开始位置 = 字符串查找(原文内容, 文本开头)
        结束
        如果(查找开始位置>-1)
            开始位置=查找开始位置
            如果(文本结尾=="")
                查找结束位置=字符串长度(原文内容)
            否则
                查找结束位置=字符串查找( 原文内容, 文本结尾,开始位置)
            结束
            如果(查找结束位置>-1)
                结束位置 = 查找结束位置+字符串长度(文本结尾)
            结束
        结束
        case 2
        如果(文本开头=="")
            查找开始位置=0
        否则
            查找开始位置=字符串查找(原文内容, 文本开头)
        结束
        如果(查找开始位置>-1)
            开始位置 = 查找开始位置+字符串长度(文本开头)
            如果(文本结尾=="")
                查找结束位置=字符串长度(原文内容)
            否则
                查找结束位置=字符串查找(原文内容, 文本结尾,开始位置)
            结束
            如果(查找结束位置>-1)
                结束位置 = 查找结束位置
            结束
        结束
    end
    如果(开始位置>-1&&结束位置>-1)
        截取结果=字符串截取(原文内容, 开始位置, 结束位置)
    结束
    return 截取结果
end