Formatting Text: How To?

[palehorse]

I have a textbox and a button.

no matter what is entered in the textbox - I want a space to appear after the first two characters when the button is clicked. So it will happen like this:

textbox = AA1111B

- button clicked -

textbox = AA 1111B

I have tried, format(textbox.text, "## #####") but that doesn't work. Can somebody help me on this one

 

[kulrom]

button event:

[/color]
[color=#0000ff][size=2][color=#0000ff]Private[/color][/size][size=2][color=#000000] [/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2][color=#000000] Button1_Click([/color][/size][size=2][color=#0000ff]ByVal[/color][/size][size=2][color=#000000] sender [/color][/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#000000] System.Object, [/color][/size][size=2][color=#0000ff]ByVal[/color][/size][size=2][color=#000000] e [/color][/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#000000] System.EventArgs) [/color][/size][size=2][color=#0000ff]Handles[/color][/size][size=2][color=#000000] Button1.Click[/color]

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] str1 [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2] = TextBox1.Text

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] strAdd [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2] = str1.Insert(2, " ")

MessageBox.Show(strAdd)

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][/color]

[color=#0000ff]

Cheers

 

[palehorse]

button event:

[/color]
[color=#0000ff][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2][color=#000000] Button1_Click([/color][/size][size=2][color=#0000ff]ByVal[/color][/size][size=2][color=#000000] sender [/color][/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#000000] System.Object, [/color][/size][size=2][color=#0000ff]ByVal[/color][/size][size=2][color=#000000] e [/color][/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#000000] System.EventArgs) [/color][/size][size=2][color=#0000ff]Handles[/color][/size][size=2][color=#000000] Button1.Click[/color]
 
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] str1 [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String[/color][/size][size=2] = TextBox1.Text
 
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] strAdd [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String[/color][/size][size=2] = str1.Insert(2, " ")
 
MessageBox.Show(strAdd)
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub[/color][/size][/color]
 
[color=#0000ff]

Cheers

Man...that works perfect - and it look so simple. Thank you for that. The only thing I run into with it is that if I already have a space there - it puts another one. I thought about setting the max length of the textbox, but that wouldn't work - as there are cases when the text will be longer then other times. Is there an If/Then statement I can run with this? What are your thoughts -?

I noticed a textbox1.text.replace method, but that will just replace the 2nd character - which would work I guess if there was already a space there, but what if there wasnt' - AA1111A would end up like A 1111A.

 

[kulrom]

wait a minute ... if i got it correct you want to avoid insert, if there is already white space on certain position (3rd in your case)?

Cheers

 

[palehorse]

Well, it is like this:


Lets say the database lists column "locations"

the data is like so:

AA America
BB Africa
CC Canada
DD France

if a user types in the search box, aaamerica - it will not find what I need. That is the purpose to add a "white space" in the third position. But if the user enters aa america - it will not find what I need either because the string will be aa america instead of aa america.

I need a way for the program to determine if there is or is not a space in the 3rd position and respond accordingly.

 

[kulrom]

Dim[/color][/size][size=2] str1 [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String
 
[/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] strAdd [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String[/color][/size]


[size=2][color=#0000ff][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2][color=#000000] Button1_Click([/color][/size][size=2][color=#0000ff]ByVal[/color][/size][size=2][color=#000000] sender [/color][/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#000000] System.Object, [/color][/size][size=2][color=#0000ff]ByVal[/color][/size][size=2][color=#000000] e [/color][/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#000000] System.EventArgs) [/color][/size][size=2][color=#0000ff]Handles[/color][/size][size=2][color=#000000] Button1.Click[/color]
 
str1 = TextBox1.Text
 
[/size][size=2][color=#0000ff]If[/color][/size][size=2] str1.Substring(2, 1) = " " [/size][size=2][color=#0000ff]Then
 
[/color][/size][size=2]MessageBox.Show(str1) [/size][size=2][color=#008000]'it's ok
 
[/color][/size][size=2][color=#0000ff]Else
 
[/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] strAdd [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String[/color][/size][size=2] = str1.Insert(2, " ")
 
MessageBox.Show(strAdd)
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If 
 
[/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub[/color][/size]

[size=2][color=#0000ff]

Cheers
[/color][/size]

 

[palehorse]

Kulrom,

You have been a great help. Thank you so much for this. I was trying to use indexOf and that wasn't going anywhere...thank you again!

 

[kulrom]

welcome ... btw you could use this to be sure that it doesn't preform else if statement all the time:

If[/color][/size][size=2] str1.Substring(2, 1) = " " [/size][size=2][color=#0000ff]Then[/color][/size]
[color=#0000ff][/color] 
 
[size=2][color=#0000ff]
[/color][/size][size=2]MessageBox.Show(str1) [/size][size=2][color=#008000]'it's ok
 
[/color][/size][size=2][color=#0000ff]ElseIf[/color][/size][size=2] str1.Substring(2, 1) <> " " [/size][size=2][color=#0000ff]Then
 
[/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] strAdd [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String[/color][/size][size=2] = str1.Insert(2, " ")
 
MessageBox.Show(strAdd)
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If[/color][/size]
[size=2][color=#0000ff]

Cheers