How can I remove hyphens from string?

phuc2583 · #1 (**permalink**) February 2nd, 2010, 03:08 AM

Hello everybody

I need to remove empty spaces and hyphens from strings (or any non alphanumeric characters).Can you please help and point me to somewhere i can find help?

ex: nha----trang --live
turn into
nha-trang-live

Thanks,

Phuc Hoang

om_prakash · #2 (**permalink**) February 2nd, 2010, 04:27 AM

You can create function something like:

Code:

public string RemoveSpecialChars(string str) 
    { 
 //you can add more chars as well !!
 string[] chars = new string[] { ",", ".", "/", "!", "@", "#", "$", "%", "^", "&", "*", "'" }; 
 for (int i = 0; i < chars.Length; i++) 
 { 
     if (str.Contains(chars[i])) 
     { 
  str = str.Replace(chars[i], ""); 
     } 
 } 
 return str; 
  }

This can be called as:

Code:

  string originalS = "T!t^t%!s#f&'#;$%m|i%t(te)  [o:h]i)t@*t}est";
  string newString = RemoveSpecialChars(originalS);

or use regular experssion to do the same.

Code:

  string s = Regex.Replace(originalS, "[^\\w\\.@-]", "");

phuc2583 · #3 (**permalink**) February 2nd, 2010, 05:55 AM

Thanks for replying me to do that
and i have convert your code into vb.net like this:

Public Shared Function RemoveSpecialChars(ByVal str As String) As String
'you can add more chars as well !!
Dim chars() As String = New String() {",", ".", "/", "!", "", "#", "$", "%", "^", "&", "*", "'"}
Dim i As Integer
For i = 0 To chars.Length - 1 Step i + 1
If str.Contains(chars(i)) Then
str = str.Replace(chars(i), "")
End If
Next
Return str
End Function

i use this function and i have met an error as " String cannot be of zero length.
Parameter name: oldValue

"
Thanks all

om_prakash · #4 (**permalink**) February 3rd, 2010, 12:52 AM

Please check the following code:

Code:

 
Dim originalS AsString = "T,.E/s! #T^"
Dim newString AsString = RemoveSpecialChars(originalS)
 
PublicSharedFunction RemoveSpecialChars(ByVal str AsString) AsString
'you can add more chars as well !!
Dim chars() AsString = NewString() {",", ".", "/", "!", " ", "#", "$", "%", "^", "&", "*", "'"}
Dim i AsInteger
For i = 0 To chars.Length - 1 Step i + 1
If str.Contains(chars(i)) Then
str = str.Replace(chars(i), "")
EndIf
Next
Return str
EndFunction

poonamt93 · #5 (**permalink**) February 16th, 2010, 04:02 AM

'String Manipulation - How to Remove two or more hyphens from a string
Sub main()
Dim sText As String
sText = "This test-string. This is -- the test-string. " & _
"This is --------- the test-string. This is - the ------ " & _
"test - string. This is the test--string."
Debug.Print sText
Do While InStr(sText, "--") > 0
sText = Replace(sText, "---", "--")
sText = Replace(sText, "--", "")
sText = Replace(sText, " ", " ")
Loop
Debug.Print sText
End Sub

'Or

Sub main()
'You Need to set reference to Microsoft VBScript Regular Expressions 5.5
Dim sText As String
Dim re As RegExp, m As MatchCollection
Set re = New RegExp

sText = "This test-string. This is -- the test-string. " & _
"This is --------- the test-string. This is - the ------ " & _
"test - string. This is the test--string."
Debug.Print sText

re.Global = True
re.Pattern = "[-]{2,}"
sText = re.Replace(sText, "")
re.Pattern = "[ ]{2,}"
sText = re.Replace(sText, " ")
Debug.Print sText
End Sub

May this will help you...........

Need to download code?

Navigation