Delete everything after a "-"[RESOLVED]

[andy345]

I would like to delete everything after a "-" in a textbox. How would I do this? Please help if you can. Thank You.

[RobDog888]

Depending on the event you want this to occur in, you would use something like this.

Text1.Text = Mid$(Text1.Text, 1, InStr(1, tText1.Text, "-") - 1)

Also, you would want to place some error trapping in there too in case there is no "-" found.

[dglienna]

text1.text = Left(text1.text,instr(text1.text,"-")-1)

Will work as long as there is a - in the text. it will fail otherwise, so you should maybe use an error trap.

[RobDog888]

You need to do a -1 if you dont want the dash.

text1.text = Left(text1.text,instr(text1.text,"-"))

[andy345]

Ok I think I messed up what I wanted to say I want to take everything before the "-" and put it in text2 and leave text1 the way it is. so if text1 is yay - text
text2 will become yay and text1 will stay the same

[Max_aka_NOBODY]

IT's even simpler then.

Text2.Text = Mid$(Text1.Text, 1, InStr(1, tText1.Text, "-") - 1)

[dglienna]

ROB - I realizzed that when we both posted at the same time. Instead of blindly following, I pasted it into the IDE to see that I had made an error, and I changed it. We posted at the same time.

Andy, this will do it.

text2.text = Left(text1.text,instr(text1.text,"-")-1)

[RobDog888]

Oh, you must of edited it quite quick. It doesnt show "Last edited by dglienna at xx:xx:xx"

Down to the same minute

[dglienna]

I've noticed that it doesn't show up if you edit the post right away. I tend to do that a lot. I thought the difference may have been using MID as opposed to left, and had the IDE open anyways. Just created a textbox and a button, pasted in the code, added "- asfhhl" to the word "Text" and hit the button. Should have tested first, once again.

[andy345]

Thank You all I got it to work with dglienna's post of

text2.text = Left(text1.text,instr(text1.text,"-")-1)

[dglienna]

Glad to hear it. Keep coming back!