[RESOLVED] Is there something in brackets?

[Lauriux1]

Hello!
I need some help again!

1. I have a text and I want to check is there an word or words in [brackets] in that text.
2. And if there is something in brackets then need to display it in TextBox.

So maybe someone have some good ideas how to do this?

[Mxjerrett]

Here is a little function that should work.

Public Function GetText(Text As String) As String
    Dim lngStart As Long
    lngStart = InStr(1, Text, "[")
    GetText = Mid(Text, lngStart + 1, InStr(lngStart, Text, "]") - lngStart - 1)
End Function

[Lauriux1]

It works fine and almost exactly like I want.

Private Sub Command1_Click()
Text2.Text = GetText(Text1.Text)
End Sub

Public Function GetText(Text As String) As String
    Dim lngStart As Long
    lngStart = InStr(1, Text, "[")
    GetText = Mid(Text, lngStart + 1, InStr(lngStart, Text, "]") - lngStart - 1)
End Function

But there is one problem if TextBox is empty or there is no brackets then I'm geting "Run-time error '5' "

[NickThissen]

Just do two checks before calling the function 'GetText'.

Tip:
- Check if textbox is empty (Use If/Then)
- Check if there are brackets (Use the 'InStr' command and see if it returns a value > 0)

You should be able to figure it out.

[Mxjerrett]

Here it is with basic error handling.

Public Function GetText(Text As String) As String
    Dim lngStart As Long
If Trim(Text) = "" Then MsgBox ("Error: No text."), vbInformation, "Error": Exit Function
If InStr(1, Text, "[") = 0 Or InStr(1, Text, "]") = 0 Then MsgBox ("Error: No text in brackets."), vbInformation, "Error": Exit Function
    lngStart = InStr(1, Text, "[")
    GetText = Mid(Text, lngStart + 1, InStr(lngStart, Text, "]") - lngStart - 1)
End Function

[Lauriux1]

Just do two checks before calling the function 'GetText'.

Tip:
- Check if textbox is empty (Use If/Then)
- Check if there are brackets (Use the 'InStr' command and see if it returns a value > 0)

You should be able to figure it out.

Ohhh!!! Yes!!! Thanks!!!
Sorry for stupid question because I'm very tired now.

Thanks for help Mxjerrett and NickThissen!

RESOLVED!

[Lauriux1]

Here it is with basic error handling.

Public Function GetText(Text As String) As String
    Dim lngStart As Long
If Trim(Text) = "" Then MsgBox ("Error: No text."), vbInformation, "Error": Exit Function
If InStr(1, Text, "[") = 0 Or InStr(1, Text, "]") = 0 Then MsgBox ("Error: No text in brackets."), vbInformation, "Error": Exit Function
    lngStart = InStr(1, Text, "[")
    GetText = Mid(Text, lngStart + 1, InStr(lngStart, Text, "]") - lngStart - 1)
End Function

Nice! But if TextBox = "][" then we will get "Run-time error '5' "

[Mxjerrett]

Here is some more slightly better error handling

Public Function GetText(Text As String) As String
On Error GoTo Err
    Dim lngStart As Long
If Trim(Text) = "" Then MsgBox ("Error: No text."), vbInformation, "Error": Exit Function
If InStr(1, Text, "[") = 0 Or InStr(1, Text, "]") = 0 Then MsgBox ("Error: No text in brackets."), vbInformation, "Error": Exit Function
    lngStart = InStr(1, Text, "[")
    GetText = Mid(Text, lngStart + 1, InStr(lngStart, Text, "]") - lngStart - 1)
Exit Function
Err:
    MsgBox ("An unplanned error has triggered. Please check the format of your text"), vbInformation, "Error"
End Function

[Lauriux1]

Here is some more slightly better error handling

Public Function GetText(Text As String) As String
On Error GoTo Err
    Dim lngStart As Long
If Trim(Text) = "" Then MsgBox ("Error: No text."), vbInformation, "Error": Exit Function
If InStr(1, Text, "[") = 0 Or InStr(1, Text, "]") = 0 Then MsgBox ("Error: No text in brackets."), vbInformation, "Error": Exit Function
    lngStart = InStr(1, Text, "[")
    GetText = Mid(Text, lngStart + 1, InStr(lngStart, Text, "]") - lngStart - 1)
Exit Function
Err:
    MsgBox ("An unplanned error has triggered. Please check the format of your text"), vbInformation, "Error"
End Function

Not bad idea!
I think it will be useful for me.