VB如何提取指定字符中的内容？

Dim Tstr()作为字符串

将n表示为整数

Dim YesNo为布尔值

将Lstr标注为字符串

将I标注为整数

Ystr = "iegIUrjknbe。wal hio[jkgshaugui]bhsagyueajbdnbs，u[kauyuibaqjbcu]nbagajshvbhj[我无法兼顾因果报应的高低]jhasbdjjaehujjb[你看历史回顾，iu是感恩的，安静的]嗨，回去吧，u更贵更嫉妒[bjkhajjuqahilhg]nbjklsabhjkbj。

n = 0

YesNo = False

对于i = 1到Len(Ystr)

如果不是是否，那么

如果Mid(Ystr，I，1) = " " "那么

Lstr = Mid(Ystr，I，1)

YesNo =真

如果…就会结束

其他

Lstr = Lstr & ampMid(Ystr，I，1)

如果Mid(Ystr，I，1) = "]"那么

n = n + 1

ReDim将Tstr(n)保留为字符串

Tstr(n) = Lstr

YesNo = False

如果…就会结束

如果…就会结束

接下来我

对于i = 1至欠载(Tstr)

调试。打印Tstr(i)

接下来我