如 何 获 得 一 字 符 串 中 [ ] 中 的 内 容

Question

如 何 获 得 一 字 符 串 中 [ ] 中 的 内 容 
如 : 字 符 串 
FSDFIEF DSFEI NVDVD [SD WE BV ER GF] ERERE FDSFDS FDSFDSF
我 想 得 到 [ ]号 中 的 几 个 字 符 ,请 问 如 何 编 程 解 决 ,急 用 ,谢 了 

Answer 1

Option ExplicitPrivate Function getstr(ByVal s As String) As String
    Dim i As Long
    i = InStr(1, s, "[")
    If i > 0 Then
        Dim j As Long
        j = InStr(i, s, "]")
        If j > 0 Then
            getstr = Mid(s, i + 1, j - i - 1)
            Exit Function
        End If
    End If
End Function
Private Sub Command1_Click()
    Debug.Print getstr("FSDFIEF DSFEI NVDVD [SD WE BV ER GF] ERERE FDSFDS FDSFDSF ")
End Sub

Answer 2

        Dim Str$
        Str = "FSDFIEF DSFEI NVDVD [SD WE BV ER GF] ERERE FDSFDS FDSFDSF "
        Str = Mid(Str, InStr(1, Str, "[") + 1, InStr(1, Str, "]") - InStr(1, Str, "[") - 1)
        Debug.Print Str