Dim Ystr As String
Dim Tstr() As String
Dim n As Integer
Dim YesNo As Boolean
Dim Lstr As String
Dim i As Integer
Ystr = "iegiuhrjknbe.walhio[jkgshaugui]bhsagyueajbdnbs,u[kauyuibaqjbcu]nbagajshvbhj[我啊不能兼顾噶额级别]jhasbdjhjaehujhejb[你看历史回顾IU感激不尽安静]hi回去啊U价格比较昂贵醋意[bjkhajhiuqahilhg]nbjklsabhjkbj"
n = 0
YesNo = False
For i = 1 To Len(Ystr)
If Not YesNo Then
If Mid(Ystr, i, 1) = "[" Then
Lstr = Mid(Ystr, i, 1)
YesNo = True
End If
Else
Lstr = Lstr & Mid(Ystr, i, 1)
If Mid(Ystr, i, 1) = "]" Then
n = n + 1
ReDim Preserve Tstr(n) As String
Tstr(n) = Lstr
YesNo = False
End If
End If
Next i
For i = 1 To UBound(Tstr)
Debug.Print Tstr(i)
Next i
温馨提示:答案为网友推荐,仅供参考