trim() function does not work

[BlackMustard]

hi all,

i am having problems using the Trim() function in a program written in VB6. i'm getting my strings from reading a textfile line by line, but regardless of the trim function a couple of extra spaces are always included in the variable.

this is the code i use:

    Dim filepath As String
    Dim FileNo As Long
    Dim LineNo, i As Integer
    Dim LineText As String
 
    FileNo = FreeFile ' Get next available file number.
 
    cdb.ShowOpen
    filepath = cdb.FileName
 
    Open filepath For Input Access Read Shared As #FileNo
        Do Until EOF(FileNo) ' Repeat until end of file...
            Line Input #FileNo, LineText ' Read a line from the file.
            LineNo = LineNo + 1
 
            txtFileName.Text = Trim(LineText) ' This line still leaves a couple of spaces at the end of the string in txtFileName.Text
 
            DoEvents ' Allow Windows to handle other tasks.
        Loop
    Close #FileNo
 

why doesn't the Trim() function remove all tracing spaces?

[QVeen72]

Hi,

Last Chars may be Chr(0) and not a Space. if they are Chr(0) then trim cannot remove those spaces. Instead use Replace Function :

txtFileName.Text = Replace(Trim(LineText),Chr(0),"")
 

Regards
Veena

[BlackMustard]

Hi,

Last Chars may be Chr(0) and not a Space. if they are Chr(0) then trim cannot remove those spaces. Instead use Replace Function :

txtFileName.Text = Replace(Trim(LineText),Chr(0),"")
 

Regards
Veena

nope - didn't work. the strings are still trailed by spaces. could you please give me a simple function to split the string into a character array so i can check what characters they really are?

EDIT:
never mind - i took the last character, found out that it was chr(160) that i (also?) needed to replace, and when i did it worked. but the question remains... is there a better way to get the file extensions than using right(linetext,4)?

[QVeen72]

could you please give me a simple function to split the string into a character array so i can check what characters they really are?

Hi,

use this :

Dim i As Integer
For i = 1 to Len(LineText)
   Debug.Print Mid(LineText,i,1)   & "   Ascii =  "  & Asc(Mid(LineText,i,1))
Next
 

Regards
Veena