请高手回答我这个菜鸟的问题,真得很菜,我给一百分!!!!!!!!!!!

Question

dim strtemp(1 to 5) as string
strtemp=split(strSource,"]")根据"]"分割成数组，就变成这样   
strtemp(0)=[w
strtemp(1)=abandon[t
strtemp(2)=2'b9nd2n[m
只需对strtemp(1)进行操作for i=1 to len(strtemp(1)           遍历每一个字母，如果遇到"["就
  if mid$(strtemp(1),i,1)="[" then  退出，保存当前位置i
    exit for
  end if
next i根据i进行分割字符串
strtemp(1)=mid$(strtemp(i),1,i)就可以了没有测试，可能在位置选择上有出入，请您自己调试
我要走了，没时间测试这个方法比较笨，抛砖引玉

Answer 1

刚才说错了
这样可以，刚刚测试
Private Sub Command1_Click()
Dim strtemp
strCurrentDepartment = "[W]able[T]'eibl[M]a.有能力的；出色的"strtemp = Split(strCurrentDepartment, "]", -1)Dim i As Integer
For i = 1 To Len(strtemp(1))        ' 遍历每一个字母，如果遇到"["就
  If Mid$(strtemp(1), i, 1) = "[" Then '退出，保存当前位置i
    Exit For
  End If
Next i
strtemp(1) = Mid$(strtemp(1), 1, i - 1)
MsgBox strtemp(1)
End Sub只要改变strCurrentDepartment就可以了，也可以从文本框读取