Hi Dave,
thanks alot for that code, works well, although im stuck again, i need to remove the space from between the order and the 2, can that be incorporated into that code?
thanks again
Anthony
Main Topics
Browse All TopicsHi,
What i want to do is look at a string and get a string from within ( ) and put into a variable.
eg, my string is Name (order2)
i want to put into a var var = order2
how can i do this?
thanks Anthony
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.

Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Hi Anthony
What space in "order2" are you looking at ?
For info aonther way to match strings is to use regular expressions. The syntax is arcane but it is a powerful method
Sub GetStr()
Dim Mystr As String, var As String
Dim RegEx As Object, RegOut As Object
Mystr = " Name (order2)"
Set RegEx = CreateObject("vbscript.reg
' Find a "(" then any alphabetic or numeric charcter then ")"
RegEx.Pattern = "\(\w+\)"
Set RegOut = RegEx.Execute(Mystr)
If RegOut.Count > 0 Then var = RegOut(0)
MsgBox var
End Sub
Cheers
Dave
Business Accounts
Answer for Membership
by: brettdjPosted on 2005-01-11 at 17:29:53ID: 13020301
Hi Anthony,
One way is
Sub GetStr()
Dim Mystr As String, var As String
Dim Firstpos As Integer, Lastpos As Integer
Mystr = "Name (order2)"
Firstpos = InStr(Mystr, "(")
Lastpos = InStr(Mystr, ")")
var = Mid(Mystr, Firstpos + 1, Lastpos - Firstpos - 1)
MsgBox "Var is " & var
End Sub
Cheers
Dave