Discussion :

[Bandzaille]

Bonjour à tous


Je n'arrive pas à décortiquer une chaine de caractère correspondant à un chemin de fichier (je ne suis pas un expert d'access)

Exemple: C:\MonRepParent\Monrep\monDoc.doc

Je souhaiterais récupérer " monDoc.doc ". Je sais qu'il faut utiliser les fonction mid(), trim(), left(),right() ou encore instr() comme je l'ai etudié sur cette faq http://access.developpez.com/faq/?page=ManipDATA mais j'y arrive paaaaaaaaaas

Please... Help me

[DMboup]

C'est pas compliqué. Tout est d'ailleurs dans l'aide Access

Avec Mid ca donne ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim MaChaine, MonRes as String
MaChaine="C:\MonRepParent\Monrep\monDoc.doc"
 
MonRes=Mid(MaChaine,23, len(Machaine))

Le 23 correspond au nombre de carastères de C:\MonRepParent\Monrep\
len(Machaine) te retourne le nombre de caractère de toute ta chaine

[mcdotta]

Tiens, mon grand, une fonction.... pour toi.

Tu peux faire du copier coller, c'est testé (car utilisé par moi hi hi hi)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Function FileExtract(strPathFile As String) As String
    Dim i As Integer
    Dim StrCurCar As String
    On Error Resume Next
    i = 0
    For i = Len(strPathFile) To 1 Step -1
        StrCurCar = Mid(strPathFile, i, 1)
        If StrCurCar = "/" Or StrCurCar = "\" Then
            FileExtract = Left(strPathFile, i)
            Exit For
        End If
    Next
    FileExtract = Right(strPathFile, Len(strPathFile) - Len(FileExtract))
End Function

[Bandzaille]

ok MDboup... c'est gentil quand meme


Merci mcdotta pour cette formidable fonction.

Pour ceux qui auraient du mal a la comprendre, comme moi ,voici celle que j'ai trouvé. Ca marche impec et c'est pas prise de tête...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
txtbox1= "toto\zobi\la mouche.doc"
I = Len(txtbox1)
While (Mid(txtbox1, I, 1) <> "\")
    I = I - 1
Wend
txtbox2 = Mid(txtbox1, I + 1, Len(txtbox1) - I)

txtbox2 est donc égal a " la mouche.doc "

Merci d'avoir répondu

Ciaoooooooo