Deleting several chr's...

[Asaf_99]

I have a FileListBox (I've been on this for too long!).
I want to do that when I click on one item in the FileListBox, to show the filename in the Me.Caption.
I know, this is too easy:

Me.Caption = File1.filename

But the thing is that it shows the extension too. I don't want that...
Any ideas?

[kedaman]

Function Extensionlesspart(filepath)
    For n = Len(filepath) To 1 Step -1
        If Mid(filepath, n, 1) = "." Then Extensionlesspart = Left(filepath, n - 1): Exit Function
    Next n
    Extensionlesspart = filepath
End Function


'to use

Me.Caption = Extensionlesspart(File1.filename)

[ExcalibursZone]

Just parse it out using Left().

Me.Caption = Left(File1.FileName, Len(File1.FileName) - _
InStrRev(File1.FileName, "."))

Though Kedaman's way will work fine, this kills the loop

[Asaf_99]

Thanks you 2.
Kedaman's code worked!

[seaweed]

Two things...

1. You don't need to do Len(File1) - InStrRev... Just InStrRev by itself (minus one) returns the length of the string to dispay.

2. One small note, I've read that VB runs faster when you don't explicitly state a default property of a control when you reference it.

So the above code would actually run faster (and more accurately) if typed as:

Me.Caption = Left$(File1, InStrRev(File1, ".") - 1)

since FileName is the default property of a FileListBox.

[Edited by seaweed on 11-09-2000 at 03:19 PM]

[ExcalibursZone]

hey, thanks for the scoop. I keep forgetting that InStrRev gives the actual position +1 that you're looking for.

I did not know that using the default property actually sped up the code ... I'll have to keep that in mind.