Remove Name From Text

[ahd2008]

HI,

I created the code below to remove name from tex. For instance, a field contains Caffery(294643)

so i want to get rid of Caffery and get only the figures, but the problme that the code gives this result:
294643)

can anyone help to fixt it becasue i need only the figures.

Private Sub Toggle2_Click()

Dim Begining_name As Integer
Dim End_name As Integer
Begining_name = InStr(1, urtext, "(") + 1
End_name = InStr(1, urtext, ")") - 1
urtext = Mid(urtext, Begining_name, 5)
End Sub

[MikeTheBike]

HI,

I created the code below to remove name from tex. For instance, a field contains Caffery(294643)

so i want to get rid of Caffery and get only the figures, but the problme that the code gives this result:
294643)

can anyone help to fixt it becasue i need only the figures.

Private Sub Toggle2_Click()

Dim Begining_name As Integer
Dim End_name As Integer
Begining_name = InStr(1, urtext, "(") + 1
End_name = InStr(1, urtext, ")") - 1
urtext = Mid(urtext, Begining_name, 5)
End Sub

Hi

I don't think your code returns '294643)' ie. it's more than 5 charactures, but this should give you '294643'

Private Sub Toggle2_Click()
Dim Begining_name As Integer
Dim End_name As Integer
    Begining_name = InStr(1, urtext, "(") + 1
    End_name = InStr(1, urtext, ")")
    urtext = Mid(urtext, Begining_name, End_name - Begining_name)
End Sub

MTB

[ahd2008]

Thanks a lot. i works properly now.

[NeoPa]

The following code uses the Replace() & Split() functions.
Replace the ")" with another "(", then Split out the elements and select the second one (1) as the returned value :

Private Sub Toggle2_Click()
  Me.urtext = Split(Replace(Me.urtext,")","("),"(")(1)
End Sub