Hur tar jag.

Ex:
<code>
Dim s As String, i As Integer
s = "Hej då" & Space(10)
'Hur får jag bort Space tecknen, trim går inte
'Gjorde ett försök:
For i = Len(s) To 1 Step -1
If Right(s, Len(s) - 1) = " " Then 'Chr(32)
s = Left(s, Len(s) - 1)
Else
Debug.Print Len(s)
End If

Next i
</code>
Tacksam för hjälp!

Förstår inte varför inte trim skulle fungera, men testa det här:

<code>
Dim s As String, i As Integer
s = "Hej då" & Space(10)
Debug.Print s & " " & Len(s)
For i = Len(s) To 1 Step -1
If Mid(s, Len(s), 1) = " " Then
s = Left(s, i)
End If
Next i
Debug.Print s & " " & Len(s)
</code>

Trim fungerar perfekt.
<code>
Dim s As String
s = "Hej då" & Space(10)
s = Trim(s)
</code>

Thomas

det är inte så att du har ett null tecken i din sträng då?
att du tex hämtat din sträng från ett apianrop?`

så strängen innehåller "abcde @"
vilket skulle förhindra trim från att fungera

//Roger

Vet inte varför du inte får trim att fungera, om jag skriver så här

<code>
Dim s As String

s = "Hej då" & Space(10)
Debug.Print s, Len(s)
s = Trim(s)
Debug.Print s, Len(s)
</code>

så blir utskriften
Hej då 16
Hej då 6


//
Janne

Jo exakt. men jag löste det med : sValue = Replace(sValue , Chr(0), "")

Tack för hjälpen alla! :-)