Remove a string between 2 characters

[PasJes]

I have a field (badge) in a table that contains a bunch of data that I don't require in the field.


eg

Super Charger (291N) Quad System
Super Charger (1NMBCFL) Quad
GTA (937.AXL1) Axpro
JTDM (937.AXN1B, 937.BXN1B) Trident

So the information between the parentheses (and the parentheses themselves) are not required...

Ideally the data above should look like:

Super Charger Quad System
Super Charger Quad
GTA Axpro
JTDM Trident

Is there any way to do this? I have about 20,000 records so doing this manually would be problematic!

Thanks in advance.

[xps35]

Sure there is a way. Invest some time in learning about the Mid and Instr function.

https://support.microsoft.com/en-us/...8-77cd0cb8a55b
https://support.microsoft.com/en-au/...1-5ecf4421eb8a

[orange]

PasJes,

You may get some insight and/or examples from the Similar Threads at the bottom of this page.

[Micron]

I'm thinking these functions
- Instr
- InstrRev
- Mid
- Replace
However this type of task is often solved with less coding using vba and RegEx - just don't ask me how to do it.

[Micron]

Actually it's not that bad - six lines of code. Since we're all posting code solutions at one time or another, I don't see why not this time. It might help someone else in the future even if the OP doesn't come back. While it works, it probably needs additional code in order to make it work with some other process such as a form, report or update query.

Function ParensText(strIn As String) As String
Dim intPos1 As Integer, intpos2 As Integer

intPos1 = InStr(strIn, "(")
intpos2 = InStrRev(strIn, ")")
ParensText = Replace(strIn, Mid(strIn, intPos1, intpos2 - intPos1 + 2), "")
Debug.Print ParensText

End Function

called like
parenstext "JTDM (937.AXN1B, 937.BXN1B) Trident"