Jag eftersöker en funktion som kan ta bort tecken från höger..
Jag har strängar av typen filnamn.txt men vill bara ha det som är till vänster om punkten... d.v.s. "filnamn". Detta namn varierar mellan 6-9 tecken i längd.
Alt. borde vara att splitta strängen på "." men det borde finnas en funktion..eller..!?

/Patrik

är filändelsen alltid 3 teckenlång?
isf kan du ju alltid använda
myString=left(myString,len(myString)-4)

eller om filändelsen lan vara olika lång så kan du ju leta åt punkten och avbryta vid den.

dotPlace=InStr(myString,".")
myString=left(myString,dotPlace-1)


Med stor reservation för all möjlig sorts felskrivningar och sånt jox.

/Magnus

Eftersom ett filnamn kan innehålla flera punkter är detta bättre:

minfil = "min.fil.med.punkt.txt"
filnamn = Left(minfil, InStrRev(minfil, ".") - 1)

/Johan

testa detta som funkar


Public Function RemoveFromRight(rString As String, FindChar As String) As String
Dim Temp As String, I As Long

I = InStrRev(rString, FindChar, , vbTextCompare)
RemoveFromRight = Mid(rString, 1, I - 1)
End Function

Man tackar, jag tar och provar alla tre tipsen.

/Patrik