VBS - nombre d'élément du Split ?
sam
-
sam -
sam -
Bonjour,
j'ai une petite question en vbs
je voudrai recuperer le nom d'un fichier que l'on aura saisi
ex : on tape c:\dos\titi\toto.txt
je veux récuperer "toto"
aors j'ai fais 2 Split
-1 pour recupere le toto.txt
- et l'autre pr recupere le toto
Mais cela ne fonctionne que si l'on sait combien il y a d'élément dans le chemin
Or cela peut etre variable !
Alors je ne sais pas comment faire pour recuperer le nombre d'élément du split pour apres faire mon split sur le dernier élément ?
Est-ce clair ?
Merci de votre aide !
j'ai une petite question en vbs
je voudrai recuperer le nom d'un fichier que l'on aura saisi
ex : on tape c:\dos\titi\toto.txt
je veux récuperer "toto"
aors j'ai fais 2 Split
-1 pour recupere le toto.txt
- et l'autre pr recupere le toto
Mais cela ne fonctionne que si l'on sait combien il y a d'élément dans le chemin
Or cela peut etre variable !
Alors je ne sais pas comment faire pour recuperer le nombre d'élément du split pour apres faire mon split sur le dernier élément ?
Est-ce clair ?
Merci de votre aide !
A voir également:
- VBS - nombre d'élément du Split ?
- Split cam - Télécharger - Messagerie
- Vbs windows - Accueil - Optimisation
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Ascii nombre de caractères - Guide
3 réponses
Bonjour,
Suggestion :
Dim oFS
Dim Valeur, Resultat
Dim Position, Lettre, Mot
Dim Longueur
Set oFS = CreateObject("Scripting.FileSystemObject")
Valeur = "c:\dos\titi\toto.txt"
Wscript.Echo (len(Valeur))
Resultat = Mid(Valeur,1,( ( Len(Valeur) ) -4 ))
Wscript.Echo Resultat
Position = (Len(Resultat))
Lettre = Mid(Resultat,Position,1)
While ( Lettre <> "\")
Position = (Position - 1)
Lettre = Mid(Resultat,Position,1)
Wend
Mot = Mid(Resultat,(Position + 1) )
Wscript.Echo Mot
Lupin
Suggestion :
Dim oFS
Dim Valeur, Resultat
Dim Position, Lettre, Mot
Dim Longueur
Set oFS = CreateObject("Scripting.FileSystemObject")
Valeur = "c:\dos\titi\toto.txt"
Wscript.Echo (len(Valeur))
Resultat = Mid(Valeur,1,( ( Len(Valeur) ) -4 ))
Wscript.Echo Resultat
Position = (Len(Resultat))
Lettre = Mid(Resultat,Position,1)
While ( Lettre <> "\")
Position = (Position - 1)
Lettre = Mid(Resultat,Position,1)
Wend
Mot = Mid(Resultat,(Position + 1) )
Wscript.Echo Mot
Lupin
