trim characters after the first parenthesis

[cic]

I am trying to trim a string up to a parenthesis. I am senting a city parameter to mapquest.However, some of our cities pull up with parenthesis. For example, Marble Falls (Austin). I don't want to pass anything after the first parenthesis. I am assuming I need to use a trim function but I am not sure how to go about doing it.

Thanks

 

[swampBoogie]

p = instr(s,"(&quot
if p > 0 then s = left(s,p-1)

 

[SIG357]

The trim function only removes leading and trailing spaces. You will need to find the position of the first parenthases and use the left() function correspondingly, such as

strCity = "Marble Falls (Austin)"

strCity = Trim(Left(strCity, Instr(strCity, "(&quot - 1))

-----
Instr(strCity, "(&quot will return the position of the first instance of "(" in strCiry. Use this to determine the length you need to specify in the left() function (return the n leftmost characters) then trim() to remove any leading or trailing spaces

 

[JohnYingling]

Dim strW
Dim nInstr
nInstr = Instr(strIn,"(&quot
if nInstr > 0 then
' not pass anything AFTER the first parenthesis???
strW = Left(strIN,nInstr) ' "Marble Falls ("
' OR include UP TO but NOT INCLUDING (
strW = RTrim(Left(strIn,nInstr - 1)) "Marble Falls"
else
strW = strin
end if

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[SIG357]

sorry, swampBoogie's method is better: if "(" is not in the string you're searching, it will pass left() a -1 and give you a runtime error

 

[JohnYingling]

SIG357

strCity = Trim(Left(strCity, Instr(strCity, "(&quot - 1))
will throw an error if there is no "(" because the length will be -1.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[cic]

Thank you all for your help. I have inserted my code however I am getting the following error. I am a newbie at ASP so it is probably a simple fix. Can you help.

Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Left'
/website/registration/form.asp, line 62

 

[JohnYingling]

What is at line 62?

Perhaps you forgot to test the Innstr return for being 0.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript