按键精灵_取中间文本内容

Function 取中间文本(原始文本, 特征前, 特征后)//取出中间文本
    Dim qpos,hpos
    qpos=InStr(1, 原始文本, 特征前)
    hpos = InStr(qpos, 原始文本, 特征后)
    取中间文本=Mid(原始文本,qpos+len(特征前),hpos-qpos-len(特征前))	
End Function

按键精灵_取中间文本内容