Wish TRIM function

[ciarli]

I'd like to have three functions: LTrim for the left spaces, RTrim for the right spaces and Trim for all spaces.
Thanks.

 

[Erel]

Trim is already supported:

Dim s As String = " slsdfsdf    "
s = s.Trim

You can add these two subs to implement LTrim and RTrim:

Sub LTrim(s As String) As String
   Dim m As Matcher = Regex.Matcher("^(\s+)", s)
   If m.Find Then
     Return s.SubString(m.GetEnd(1))
   Else
     Return s
   End If
End Sub

Sub RTrim(s As String) As String
   Dim m As Matcher = Regex.Matcher("(\s+)$", s)
   If m.Find Then
     Return s.SubString(m.GetEnd(1))
   Else
     Return s
   End If
End Sub

 

[MikeH]

TrimStart:

dim count as int

do while Mystring.startswith(" ")

Mystring = Mystring.substring2(count, string.length)
count = count + 1

loop

TrimEnd:

dim count as int = Mystring.length

do while Mystring.endswith(" ")

Mystring = Mystring.substring(count)
count = count -1

loop

 

[Erel]

Mike your code can be problematic if the string is long and there are many white spaces as each call to MyString.SubString will create a new string instance.

It is better to find the index of the last space (with Regex or any other way) and then call substring once.