problem with getting a partial part of a string 1

[atray04]

I have a case statement and I am trying to search for part of a sentence in a string so that I can use that in my case. I am thinking that I will need to use a length function and get the part of gthe string I want that way. Heres the code that I am using minus the length method.
fName = c:\file.xls
sheetName = fName 'fName has the whole string and sheetName should equal the partial string which is file
Select Case sheetName
Case file
ws.Name = "file"
Case dinner
ws.Name = "Dinner"
Case nc
ws.Name = "NC"
Case pc
ws.Name = "PC"
Case Else
'more possibilities?
End Select

 

[SkipVought]

Hi,

Here's a way using instr...

    Dim sName(3)
    sName(0) = "file"
    sName(1) = "Dinner"
    sName(2) = "NC"
    fname = "c:\file.xls"
    For i = 0 To 2
        If InStr(fname, sName(i)) > 0 Then
            ws.Name = sName(i)
            Exit For
        End If
    Next

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

Skip,

http://www.TheOfficeExperts.com

 

[atray04]

thank you that was very helpful

 

[giny]

Use can try the mid function:

mid(<your proposition>,<length of fragment>,<starting position in your proposition>)

Debugging is Futile!

 

[atray04]

yea that will work, but the inStr applys more to what im doing. Thanxs though