How to trunicate string from right to left

06-27-2005, 07:19 AM

drumgod

Regular

Join Date: Nov 2003

Posts: 69

How to trunicate string from right to left

All,

I need to know how to trunicate a string from right to left, until I hit a specified character.

Example:

I have a program that looks at a specific server, and then reports the installed directory from where the service runs. It returns a value of something like this:

C:\Service\Servicename.exe

I need to be able to remove the Servicename.exe (basically walk the string backward until i Hit the "\".
This is so I can backup files located in that specific directory which the service is located. The installation directory can be different, so I cannot hard code this string..

Does anyone know how to do this?

TIA

Drum on .. .. . . .

06-27-2005, 07:27 AM

ProfEich

Newcomer

Join Date: Jan 2004

Posts: 9

Hi!

Try using the InStrRev function:

Dim Index As Integer
Dim Path As String

Index = InStrRev( FileName, "\" )
if Index=0 then
Path = ""
else
Path = Left( FileName, Index )
end if

06-27-2005, 07:36 AM

RoofRabbit RoofRabbit is offline

Contributor

Join Date: Sep 2003

Location: Lenoir, NC - USA

Posts: 731

There's an easier way of doing it but just to show the logic:

Code:

'GetFileName("C:\Service\Servicename.exe") returns "Servicename.exe"
'
Function GetFileName(str As String) As String
    Dim i As Integer
    Dim j As Integer
    Dim ts As String
    If Len(str) > 0 Then    'Make sure it's not zero length
        j = 1    'Start a count
        For i = Len(str) To 1 Step -1
            If Mid$(str, i, 1) = "\" Then    'Found what we're looking for
                GetFileName = Right$(str, j - 1)    'j-1 = don't include the "\"
                Exit Function
            End If
            j = j + 1
        Next i
        'Assume entire string given is filename only
        GetFileName = str
    Else
        'Was given a null string to work with, return with null string
        GetFileName = ""
    End If
End Function

__________________
Website http://roofrabbit.com/

06-27-2005, 07:42 AM

drumgod

Regular

Join Date: Nov 2003

Posts: 69

You are just awesome! Works great!

06-27-2005, 10:50 AM

DubbleClick DubbleClick is offline

Contributor

Join Date: Mar 2005

Location: Tennessee

Posts: 511

Code:

StringPath = GetPath("C:\Service\Servicename.exe")

Private Function GetPath(ByVal as_path As String) As String
GetPath = Mid$(as_path ,1 , InStrRev(as_Path, "\"))
End Function