TC按关键字截取字符串

功能 mid(source,startStr,endStr="")
    变量 startpos
    变量 endpos
    变量 temp
    如果(startpos=="")
        startpos=0
    否则
        startpos=字符串查找(source,startStr)
        
    结束
    temp=字符串截取(source,startpos+字符串长度(startStr),字符串长度(source))
    
    如果(endStr=="")
        endpos=字符串长度(temp)
    否则
        endpos=字符串查找(temp,endStr)
    结束
    
    如果(startpos==-1 || endpos==-1)
        返回 ""
    结束
    变量 ret=字符串截取(temp,0,endpos)
    返回 ret 
结束