Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Solved
get rid of ANY spaces SPECIAL CHARACTERS etc in variable
Posted on 2011-02-16
Is there a way in the code below to make sure to no:
padded spaces...extra spaces..special characters do not get added as the variable is being passed along
in the function below ?
Thanks
fordraiders
padded spaces...extra spaces..special characters do not get added as the variable is being passed along
in the function below ?
Thanks
fordraiders
Private Sub PosCompartAdvance()
If Me.CheckBox7.Checked = True Then ' Position
' Me.FldPositionTextBox.Text = mlngData7
If Me.CheckBox9.Checked = True Then
Me.FldPositionTextBox.Text = mlngData7 ' Position
Dim arg As Char = Trim(FldPositionTextBox.Text)
If Char.IsLetter(arg) Then
Dim value As Integer = AscW(arg)
Select Case value
Case 65 To 89, 97 To 121
FldPositionTextBox.Text = Trim(ChrW(value + 1).ToString)
End Select
End If
If Char.IsNumber(arg) Then
Dim value As Integer
' Dim value As Integer = CInt(FldPositionTextBox.Text).ToString ' added to string here 01/25/2011
'Dim value As Integer = Trim(Integer.Parse(FldPositionTextBox.Text))
value = Trim(Integer.Parse(FldPositionTextBox.Text))
Select Case value
Case Is > 0 ' or Case 1 To 1000
value += 1
FldPositionTextBox.Text = value.ToString
If Me.FldPositionTextBox.Text = "1" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "2" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "3" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "4" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "5" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "6" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "7" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "8" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "9" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
End Select
End If
End If
Else
' else not checked
End If
If Me.CheckBox8.Checked = True Then ' Compartment
' Me.FldCompartmentTextBox.Text = mlngData8
If Me.CheckBox10.Checked = True Then
Me.FldCompartmentTextBox.Text = mlngData8 ' Compartment
Dim arg As Char = FldCompartmentTextBox.Text
If Char.IsLetter(arg) Then
Dim value As Integer = AscW(arg)
Select Case value
Case 65 To 89, 97 To 121
' value = System.Text.RegularExpressions.Regex.Replace(FldPositionTextBox.Text, "[^a-zA-Z0-9]", String.Empty)
FldCompartmentTextBox.Text = ChrW(value + 1).ToString
End Select
End If
If Char.IsNumber(arg) Then
' Dim value As Integer = CInt(FldCompartmentTextBox.Text)
Dim value As Integer = Integer.Parse(FldCompartmentTextBox.Text)
Select Case value
Case Is > 0 ' or Case 1 To 1000
value += 1
FldCompartmentTextBox.Text = value.ToString
If Me.FldCompartmentTextBox.Text = "1" Then FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "2" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "3" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "4" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "5" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "6" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "7" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "8" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "9" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
End Select
End If
End If
Else
' else not checked
' FldCompartmentTextBox.Clear()
End If
End Sub
-
2
- +1
5 Comments
Comprehensive discussion: http://dotnetperls.com/whitespace this is all C# easily converted to VB.Net with online tools.
Here's VB.Net and this example is very thorough.
http://www.dreamincode.net/code/snippet3423.htm
This article takes a fairly in-depth look at strings. Ideally you'd want to parse the string a number of ways. Looking for " " a space the ASCII characters for space, tab and return and then you'd want to also search for "\r", "\s", "\n" and "\t" you could of course use RegEx as well.
Here is a bunch of solid examples from Google with this search term:
http://www.google.com/search?q=vb.net+code+to+replace+all+space+and+tabs&rls=com.microsoft:en-us&ie=UTF-8&oe=UTF-8&startIndex=&startPage=1&rlz=1I7GGLL_en#q=vb.net+code+to+replace+all+space+in+strings&hl=en&rls=com.microsoft:en-us&rlz=1I7GGLL_en&prmd=ivns&ei=PkZcTfr-M468sQOe_9zwAQ&start=0&sa=N&fp=cb921b9e247079c3
Here's VB.Net and this example is very thorough.
http://www.dreamincode.net/code/snippet3423.htm
This article takes a fairly in-depth look at strings. Ideally you'd want to parse the string a number of ways. Looking for " " a space the ASCII characters for space, tab and return and then you'd want to also search for "\r", "\s", "\n" and "\t" you could of course use RegEx as well.
Here is a bunch of solid examples from Google with this search term:
http://www.google.com/search?q=vb.net+code+to+replace+all+space+and+tabs&rls=com.microsoft:en-us&ie=UTF-8&oe=UTF-8&startIndex=&startPage=1&rlz=1I7GGLL_en#q=vb.net+code+to+replace+all+space+in+strings&hl=en&rls=com.microsoft:en-us&rlz=1I7GGLL_en&prmd=ivns&ei=PkZcTfr-M468sQOe_9zwAQ&start=0&sa=N&fp=cb921b9e247079c3
Hi Fordraiders,
I'm not sure exactly what your code is trying to accomplish, but based on your question/request you might want to try working this into your code.
If you want to eliminate all characters except numbers, letters and spaces (but trim leading and trailing spaces) try this:
FldPositionTextBox.Text = System.Text.RegularExpress
FldPositionTextBox.Text = System.Text.RegularExpress
If you want all "printable" characters and spaces (but again trim all leading and trailing spaces) try this:
FldPositionTextBox.Text = System.Text.RegularExpress
FldPositionTextBox.Text = System.Text.RegularExpress
Please note that the second line in each example replaces multiple spaces with a single space. There may be a more elegant way to do this in Regex but at least this will get you going. If I understood your request correctly, you seemed to have been pretty close with your Regex line that was commented out.
Again, I hope that I understood your request correctly and I hope that this helps. :)
I'm not sure exactly what your code is trying to accomplish, but based on your question/request you might want to try working this into your code.
If you want to eliminate all characters except numbers, letters and spaces (but trim leading and trailing spaces) try this:
FldPositionTextBox.Text = System.Text.RegularExpress
FldPositionTextBox.Text = System.Text.RegularExpress
If you want all "printable" characters and spaces (but again trim all leading and trailing spaces) try this:
FldPositionTextBox.Text = System.Text.RegularExpress
FldPositionTextBox.Text = System.Text.RegularExpress
Please note that the second line in each example replaces multiple spaces with a single space. There may be a more elegant way to do this in Regex but at least this will get you going. If I understood your request correctly, you seemed to have been pretty close with your Regex line that was commented out.
Again, I hope that I understood your request correctly and I hope that this helps. :)
Active 5 days ago
you want to eliminate all characters except numbers, letters trim leading and trailing spaces and extra spaces
fordraiders, when you say "extra spaces", we are interpreting this to mean that single spaces are ok but "extra" i.e. duplicate spaces are not... " " ok but " " not ok. Is that correct? If so, HumbleBeginnings' response will do what you ask.
If you want to remove all spaces, then change
FldPositionTextBox.Text = System.Text.RegularExpress
to
FldPositionTextBox.Text = System.Text.RegularExpress
By the way, this block of code:
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
can be shortened to:
If Regex.IsMatch(FldCompartme
or if you prefer:
If FldCompartmentTextBox.Text
in fact, since you've just assigned the value of FldCompartmentTextBox.Text
If value > 0 AndAlso value < 10 then FldCompartmentTextBox.Text
If you want to remove all spaces, then change
FldPositionTextBox.Text = System.Text.RegularExpress
to
FldPositionTextBox.Text = System.Text.RegularExpress
By the way, this block of code:
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
If Me.FldCompartmentTextBox.T
can be shortened to:
If Regex.IsMatch(FldCompartme
or if you prefer:
If FldCompartmentTextBox.Text
in fact, since you've just assigned the value of FldCompartmentTextBox.Text
If value > 0 AndAlso value < 10 then FldCompartmentTextBox.Text
Featured Post
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code.
First, I create an Abstract Class for my DataTables Common Code. This class Inherits from DataTable.
Also, it can …
If you're writing a .NET application to connect to an Access .mdb database and use pre-existing queries that require parameters, you've come to the right place!
Let's say the pre-existing query(qryCust) in Access takes a Date as a parameter and l…
The video will let you know the exact process to import OST/PST files to the cloud based Office 365 mailboxes. Using Kernel Import PST to Office 365 tool, one can quickly import numerous OST/PST files to Office 365. Besides this, the tool also comes…
Watch the video to learn how one can deal with PST file corruption issue with an outstanding Kernel for Outlook PST Repair Tool easily. Using this tool, non-technical users can swiftly perform the repair process to restore their essential data witho…
Suggested Courses
Course of the Month8 days, 15 hours left to enroll
595 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.