How to loop a string?

[atf32]

I need to loop a string and to do the following:

1. Determine if one of these characters ( "/", " [", " (" ) exist in the string.
2. If one of the above strings do exist, then I want to return all of the string to the left of the targeted characters ( "/", " [", " (" ).
3. If none of the targeted characters exist, then return the full string.

 

[Sektor]

UDF alternative.

[COLOR="Blue"]Function[/COLOR] ToLeft(Str [COLOR="Blue"]As[/COLOR] String) [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]String[/COLOR]
    [COLOR="Blue"]With[/COLOR] CreateObject("VBScript.RegExp")
        .Pattern = "(/|\[|\()"
        ToLeft = Left(Str, .Execute(Str)(0).FirstIndex)
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Function[/COLOR]

 

[Marcelo Branco]

Sektor,

I *think* you need to check if any match was founded, like

Function ToLeft(Str As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(/|\[|\()"
        If .Execute(Str).Count > 0 Then
            ToLeft = Left(Str, .Execute(Str)(0).FirstIndex)
        Else
            ToLeft = Str
        End If
    End With
End Function

M.

 

[Rick Rothstein]

Here is another UDF for you to consider (it is a non-RegEx solution if that matters to you)...

Function ToLeft(Text As String) As String
  Dim X As Long
  For X = 1 To Len(Text)
    If Mid(Text, X, 1) Like "[/[(]" Then
      ToLeft = Left(Text, X - 1)
      Exit For
    End If
  Next
End Function

 

[Biz]

Sektor,

I *think* you need to check if any match was founded, like

Function ToLeft(Str As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(/|\[|\()"
        If .Execute(Str).Count > 0 Then
            ToLeft = Left(Str, .Execute(Str)(0).FirstIndex)
        Else
            ToLeft = Str
        End If
    End With
End Function

M.

Kwel I was thinking how to use VBScript.RegExp. Thank you for solution.

Biz

 

[atf32]

Thanks Rick and Biz....both worked great.......Appreciate the help.