自用命令库代码：取所有中间文本

Function 取所有中间文本(原始文本, 特征前, 特征后)
    Dim ct,ct1,cd,ct2,wz
    Do
        ct1 = 取中间文本(原始文本, 特征前, 特征后)
        If ct1 = null Then
            Exit Do
        End If
        cd=Len(原始文本)
        wz = InStr(1, 原始文本, 特征前&ct1&特征后)
        ct2 = Right(原始文本,cd-wz)
        原始文本 = ct2
        ct = ct1&"-"&ct
    Loop
    取所有中间文本 = Split(ct,"-")
End Function