Supprimer une chaîne de caractère variable

Bonjour,

Je récupère dans une variable le contenu du chemin d'accès d'un fichier.

Le contenu de la variable, pour un fichier lambda est

Macintosh HD/Users/Vincent/Documents/lambda.txt

Je souhaite faire ensuite un upload FTP de ce fichier en appelant le terminal mac os.

Pour cela j'utilise la commande PUT mais il faut que je mette PUT /Users/Vincent/Documents/lambda.txt (en supprimant donc MACINTOSH HD de la chaîne de caractère).

Le problème étant que MACINTOSH HD est le nom du disque dur, cela peut varier.

Y a t'il possible de supprimer une chaîne de caractère, délimitée pour le coup entre deux / ?

Merci de votre aide.

Vincent

Bonjour,

Supprime le texte à gauche du premier "/" :

Sub Test()

    Dim Chemin As String

    Chemin = "Macintosh HD/Users/Vincent/Documents/lambda.txt"

    MsgBox Right(Chemin, Len(Chemin) - InStr(Chemin, "/") + 1)

End Sub

Hervé.

Bonjour Vincent, bonjour le forum,

La fonction Split renvoie un tableau séparant les éléments entre les délimiteurs avec les arguments : chaîne de caractères, délimiteur, position.

Split("chaîne de caractères," ")(0) va renvoyer "chaîne"

Split("chaîne de caractères," ")(1) va renvoyer "de"

Split("chaîne de caractères," ")(2) va renvoyer "caractères"

La fonction Mid permet de ne renvoyer qu'une partie d'une chaîne de caractères avec les argument : chaîne de caractères, début, longueur (jusqu'au dernier caractère si non spécifié).

Mid("chaîne de caractère", 8, 7) va renvoyer "e carac"

En combinant les deux plus la fonction LEN (qui renvoie le nombre de caractères d'une chaîne) on obtient :

Sub Macro1()
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim LPP As Byte 'déclare la variable LPP (Longueur Premier Partie)
Dim NC As String 'déclare la variable NC (Nouveau Chemin)

CA = ... ' la tu récupères le chemin d'accès
'definit la longueur de la première partie LPP du chemin d'accès (tu remplaceras la chaîne par ta variable
LPP = Len(Split(CA, "\")(0))
NC = Mid(CA, LPP + 2)'définit le nouveau chemin NC (+2 à cause du slash)
MsgBox NC 'message juste pour voir, tu le supprimeras dans ton code
End Sub

[Édition]

Bonjour Theze on s est croisé... Plus simple et efficace le tien...

Ahhh super merci ça marche super bien.

J'ai pris la solution 1 elle me semblait plus simple!

Re,

Elle ne semble pas. Elles est !...