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
按键精灵_取所有中间文本