Is there a command to remove Null Chars from the end of a string?

[Filter300]

I need somthning to remove the null characters from the end of my string kinda like the r trim for spaces. thanks

[Patoooey]

Public Function StripNulls(OriginalStr As String) As String
    If (InStr(OriginalStr, Chr(0)) > 0) Then
        OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = OriginalStr
End Function

[Cander]

This should do the trick I believe

Do Until Asc(Right(strName, 1)) <> 0
    strName = Left(strName, Len(strName) - 1)
    DoEvents
Loop

[Merlin]

You could check for the null characters at the end then do a

Left(variable, Len(variable) - Number Of Null Characters)

Something like that anyway...

[ExcalibursZone]

Temp = Replace(variable, Chr(0), "")

[Mortivan]

Hey,

Nice solution!



-mort