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