Split分割详解:Var=Split(参数1,参数2)
- 参数1:需要分割的内容
- 参数2:用于分割的符号
- 分割结果以一维数组形式写入Var
例子1:需求:
- 需要分割的内容:"****企业管理有限公司 ****0600MA39AB558K"
- 需要得到的结果:公司名称、编号
结论:代码:- 需要分割内容 = "****企业管理有限公司 ****0600MA39AB558K"
- 需要分割符号 = " "
- Var = Split(需要分割内容, 需要分割符号)
- TracePrint Var(0)'公司名称
- TracePrint Var(1)'编号
复制代码 解析:例子2:封装成函数[收集]:- MsgBox GetStrAB("[演]特定内容[示]", "[演]", "[示]")
- Function GetStrAB(Str, StrA, StrB)
- If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrAB=Split(Split(Str,StrA)(1),StrB)(0)
- End Function
复制代码 返回所有符合分割[分割]:MsgBox GetStrAB("[演]特定内容1[示]12321[演]特定内容2[示]", "[演]", "[示]")
Function GetStrAB(Str, StrA, StrB)
Dim i,ArrStrA,Ck
ArrStrA=Split(Str,StrA)
For i = 1 To UBound(ArrStrA)
If InStr(ArrStrA(i), StrB) > 0 Then Ck = Ck & Split(ArrStrA(i),StrB)(0) &"|"
Next
GetStrAB=Ck
End Function