Trim$ function problem... 1

[Sheffield]

I'm attempting to remove trailing spaces from a queried field in a database, with no luck. However, I don't want to alter the database, itself. Every field in the column has at least one trailing blank space.

Given Values
DataEnviron.rscmdStation.Fields!Station = "WPXN "
Text1.Text = "WPXN"

For reasons unknown, the code below doesn't 'trim' down the "WPXN " to "WPXN".

If Trim$(.rscmdStation.Fields!Station)= Text1.Text Then
     '- do whatever
End If

Any ideas?

 

[jmarler]

Trim Removes spaces (CHR$(32)). If you last character was a null character (CHR$(0)) or someother non-printing character, trim will not remove it. - Jeff Marler B-)

 

[JohnYingling]

Also Trim$ removes from Left AND right. If you want to trim only the right then use RTrim$.

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[Sheffield]

How can such characters (null, non-printing ones) like (CHR$(0)) be removed?

Very curious...

 

[JohnYingling]

Dim strTrim as string
strTrim = If Trim$(.rscmdStation.Fields!Station)
For I = Len(strTrim) to 1 step -1
if Mid$(strTrim,I,1) <> Chr$(0) then exit for
Next
strTrim = Left$(strTrim,I) ' I can be 0

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[MichaelRed]

John,

It is O.K. - to JUST taks care of the Null. AT the &quot;END&quot; of the string.

I think this is more Complete:

Public Function basReallyTrim(strIn As String) As String

    Dim strTrim As String
    Dim Idx As Long
    Dim strTmp As String

    strTrim = Trim$(strIn)      'Removes Spaces ONLY

    Idx = 1
    Do While Idx <= Len(strTrim)
        MyChr = Mid(strTrim, Idx, 1)
        Select Case UCase(MyChr)
            Case Chr(32) To Chr(94)     'Space through ^
                strTmp = strTmp & MyChr

            Case Chr(97) To Chr(126)    'a through ~
                strTmp = strTmp & MyChr

        End Select
        Idx = Idx + 1
    Loop

    basReallyTrim = strTmp

End Function

MichaelRed
m.red@att.net

There is never time to do it right but there is always time to do it over

 

[Sheffield]

jmarler, JohnYingling & MichaelRed,

Everything works perfectly!

Many thanks for all your help