Inversser les slashes dans un chemin de fichier

Marsh Posté le 13-01-2008 à 09:59:35

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 ?

Reply

Marsh Posté le 13-01-2008 à 09:59:35

Reply

Marsh Posté le 13-01-2008 à 14:53:24

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)

Reply

Marsh Posté le 13-01-2008 à 15:03:12

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

Reply

Marsh Posté le 13-01-2008 à 15:07:29

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

Reply

Marsh Posté le 13-01-2008 à 15:09:54

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

Reply

Marsh Posté le 13-01-2008 à 15:14:01

Merci beaucoup

Reply

Marsh Posté le 13-01-2008 à 15:15:24

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

Reply

Marsh Posté le 13-01-2008 à 15:16:46

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 ?

Reply

Marsh Posté le 14-01-2008 à 23:14:34

Code :

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

Reply

Inversser les slashes dans un chemin de fichier

Sujets relatifs:

Leave a Replay