hi.

I do want to extract this string "abcdefg" from string
"C:\dir1\dir2\abcdefg-12345gsd"


Note : the length of the text string "abcdefg" may vary, but the last
character is always "-".
I need only the string "abcdefg" not "-12345gsd"

thanks pjl Denmark

Per Juul Larsen wrote:
> hi.
>
> I do want to extract this string "abcdefg" from string
> "C:\dir1\dir2\abcdefg-12345gsd"
>
>
> Note : the length of the text string "abcdefg" may vary, but the last
> character is always "-".
> I need only the string "abcdefg" not "-12345gsd"
>
> thanks pjl Denmark

Assuming you're using VB6...

Dim s As String
Dim n As Integer

s = "C:\dir1\dir2\abcdefg-12345gsd"
Debug.Print s

n = InStrRev(s, "\")
If n > 0 Then
s = Mid$(s, n + 1)
Debug.Print s
End If

n = InStr(s, "-")
If n > 0 Then
s = Left$(s, n - 1)
End If
Debug.Print s

Easy, wasn't it?

Jason Keats skrev:
> Per Juul Larsen wrote:
>> hi.
>>
>> I do want to extract this string "abcdefg" from string
>> "C:\dir1\dir2\abcdefg-12345gsd"
>>
>> Note : the length of the text string "abcdefg" may vary, but the
>> last character is always "-".
>> I need only the string "abcdefg" not "-12345gsd"
>>
>> thanks pjl Denmark
>
> Assuming you're using VB6...
>
> Dim s As String
> Dim n As Integer
>
> s = "C:\dir1\dir2\abcdefg-12345gsd"
> Debug.Print s
>
> n = InStrRev(s, "\")
> If n > 0 Then
> s = Mid$(s, n + 1)
> Debug.Print s
> End If
>
> n = InStr(s, "-")
> If n > 0 Then
> s = Left$(s, n - 1)
> End If
> Debug.Print s
>
> Easy, wasn't it?
That Easy.. thanks
regards pjl