[VB6] Estrarre la parte destra di una stringa

[battle]

ciao, io ho una stringa di questo tipo:

Stringa = "file:///c:/documents%20and%20settings/oreste/documenti/scuola%20matteo/università/tesi/verbali/ccdl%202006/settembre/settembre.doc"

e avrei bisogno di estrarre soltanto il nome del file (settembre.doc), ho provato con Right ma accetta come secondo parametro soltanto il numero di caratteri, ma io in altre stringhe non so quanto sia lungo il nome del file, l'unica procedura che mi ha dato il risultato voluto è stata questa:

Rovescio= StrReverse(Stringa)
Vett=Split(Rovescio,"/")
NomeFile = StrReverse(Vett(0))

che è un pò macchinosa, esiste una funzione dedicata che mi permetta di fare ciò?

[hkproj]

in vb6, no

[icecube_HT]

Originariamente inviato da battle
ciao, io ho una stringa di questo tipo:

Stringa = "file:///c:/documents%20and%20settings/oreste/documenti/scuola%20matteo/università/tesi/verbali/ccdl%202006/settembre/settembre.doc"

e avrei bisogno di estrarre soltanto il nome del file (settembre.doc), ho provato con Right ma accetta come secondo parametro soltanto il numero di caratteri, ma io in altre stringhe non so quanto sia lungo il nome del file, l'unica procedura che mi ha dato il risultato voluto è stata questa:

Rovescio= StrReverse(Stringa)
Vett=Split(Rovescio,"/")
NomeFile = StrReverse(Vett(0))

che è un pò macchinosa, esiste una funzione dedicata che mi permetta di fare ciò?

Certo, basta costruirsela !

La funzione InStrRev(s, "/") restituisce la posizione di "/" in s partendo dal fondo.
Dal carattere successivo trovi quello che ti serve.

Quindi: Mid$(s, 1 + InStrRev(s, "/")), dove s e' ovviamente il pathname completo del tuo file, ti restituisce "settembre.doc" !


Se vuoi formalizzare la funzione:

Function UltimaParte(ByVal s As String) As String
UltimaParte = Mid$(s, 1 + InStrRev(s, "/"))
End Function

[MItaly]

Una correzione: sotto Windows il separatore del percorso è \, ossia il backslash (e non /, slash semplice); tuttavia vengono comunemente accettati entrambi; pertanto bisogna modificare la funzione di conseguenza:

Function UltimaParte(ByVal s As String) As String
Dim slashpos As Integer
Dim backslashpos As Integer
slashpos = InStrRev(s, "/")
backslashpos = InStrRev(s, "\")
If slashpos > backslashpos Then
    UltimaParte = Mid$(s, 1 + slashpos)
Else
    UltimaParte = Mid$(s, 1 + backslashpos)
End If
End Function

[battle]

grazie del consiglio ragazzi!