Inversser les slashes dans un chemin de fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Inversser les slashes dans un chemin de fichier

Coolnut

Bonjour, j'avai fait un script batch qui inversser les slashs dans un chemin de fichier contenu dans un variable:

Code :

set VarChemCop=C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier
set VarChemCop=%%VarChemCop:\=/%%
echo %VarChemCop%

Je voudrai exactement la même chose en VBS, pourie vous me donner un exemple ?

Publicité

olivthill

Une petite boucle :

' ==================================================
' Remplace les anti-slashs par des slashs
' ou inversement
' ==================================================

VarChemCop = "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier"

wscript.echo "VarChemCop=" & VarChemCop & "."

NewVarChemCop = ""
For i = 1 To Len(VarChemCop)
c = Mid(VarChemCop, i, 1)
If (c = "/" ) Then
c = "\"
Else
If (c = "\" ) Then
c = "/"
End If
End If
NewVarChemCop = NewVarChemCop & c
Next
wscript.echo "NewVarChemCop=" & NewVarChemCop & "."

(Programme testé qui marche)

Coolnut

Bonjour et merci beaucoup

Mais je voudrai juste inverser le shlass, pas inverssement, c'est pour ajouter dans un long script et il me faudrai quelque chose de simple

olivthill

Les boucles sont simples, mais elles font toujours peur à certains programmeurs. Je ne sais pas pourquoi.
Bon voici une solution avec quelques lignes en moins :

VarChemCop = "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier"
NewVarChemCop = ""
For i = 1 To Len(VarChemCop)
c = Mid(VarChemCop, i, 1)
If (c = "\" ) Then c = "/"
NewVarChemCop = NewVarChemCop & c
Next
VarChemCop = NewVarChemCop

dreameddeath

Replace me semble plus appriorié, je sais qu'elle existe en VB/VBA et a priori aussi en VBS. A essayer donc :

Code :

str_dest = Replace(str_orig,"\","/" );

Message cité 1 fois

Coolnut

Merci beaucoup

Coolnut

J'ai donc modifier un peut le script, au lieu de prendre le chemin du fichier dans une variable, je récupére le chemin du fichier glisser deposer sur le vbs, et j'ai rajouter un code pour copier le chemin dans le press papier, mais rien dans le presse papier, pourait tu m'aider a résoudre ce probléme ?

Code :

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
vrRcpChmFchOuDoss = objArgs(I)
Next
NewVarChemCop = ""
For i = 1 To Len(vrRcpChmFchOuDoss)
c = Mid(vrRcpChmFchOuDoss, i, 1)
If (c = "\" ) Then c = "/"
NewVarChemCop = NewVarChemCop & c
Next
VarChemCop = NewVarChemCop
wscript.echo NewVarChemCop
Class cClipBoard
Private objIE
Public Property Get Data()
Data = objIE.Document.ParentWindow.ClipboardData.GetData("Text" )
End Property
Public Property Let Data ( Value )
objIE.Document.ParentWindow.ClipboardData.SetData "Text" , Value
End Property
Public Sub Clear()
objIE.Document.ParentWindow.ClipboardData.ClearData()
End Sub
Private Sub Class_Initialize
Set objIE = CreateObject("InternetExplorer.Application" )
objIE.Navigate ("about:blank" )
End Sub
Private Sub Class_Terminate
objIE.Quit
Set objIE = Nothing
End Sub
End Class
Dim ClipBoard
Set Clipboard = New cClipBoard
ClipBoard.Clear
ClipBoard.Data = NewVarChemCop

Message édité par Coolnut le 13-01-2008 à 17:14:41

Coolnut

dreameddeath a écrit :

Replace me semble plus appriorié, je sais qu'elle existe en VB/VBA et a priori aussi en VBS. A essayer donc :

Code :

str_dest = Replace(str_orig,"\","/" );

Mais le code n'est pas complet la, je ne sais pas comment faire ?

dreameddeath

Code :

NewVarChemCop = replace(vrRcpChmFchOuDoss,"\","/" )

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Inversser les slashes dans un chemin de fichier

Sujets relatifs
lancer plusieurs fichier sur imprimante réseau	Modifier un fichier texte en php
Début du fichier au format RTF	[Resolu] [Bash] Ecrire le résultat d'une commande dans un fichier HTML
récupérer le chemin du fichier interprété ? [résolu]	Script enlever espaces d'un nom de fichier
[Resolu] Transformation d'un fichier en liste doublement chainée	Imprimer in fichier sous Windows
Plus de sujets relatifs à : Inversser les slashes dans un chemin de fichier

Page générée en 0.049 secondes