Récupéré et modifier chemin fichier BATCH

Version imprimable

Récupérer et modifier chemin fichier BATCH

Bonjour,

J'aurais besoin de vos connaissances pour résoudre mon problème. Je ne suis pas programmeur de métier mais un simple bidouilleur passionné :lol:

J'utilise au boulot Lotus Note pour la messagerie interne et lorsque je veux envoyé un lien vers un fichier se trouvant sur le réseau, Lotus à du mal à interprété correctement le chemin du dit fichier car il a besoin d'ajouter file:// en remplaçant les espaces et caractères accentués (é,è,ê,à) par %20 ...
Pour me faciliter l'existence j'ai imaginé créer un fichier .bat exécutable via le menu contextuel qui :

1- récupère le chemin complet du fichier dans un fichier texte (imaginons un click droit sur le fichier en question avec une fonction "copier lotus" qui ferait le job)
2- La suite des instructions consisterait à éditer le chemin en ajoutant file:// devant et remplacer les caractères accentués et espace par %20
3- Pour terminer il faudrait récupérer ce chemin modifié dans le presse papier pour pouvoir le coller dans Lotus.

Pensez-vous que cet "Algorithme" soit cohérent et sinon comment feriez-vous?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 1. @echo off 2. 3. for %%i in (monfichier.xyz) do ( 4. set chemin=%%~dpi 5. 6. call :PROCESS 7. ) 8. 9. goto EXIT 10. 11. :PROCESS 12. 13. 14. 15. echo chemin = %chemin%>C:\WINDOWS\Temp\CLP.txt 16. :EXIT
Voilà un début qui déjà pose problème et je ne sais pas trop comment faire la suite.

Quelqu'un peut-il m'aider ?

19/01/2008, 13h59
koKoTis
voila déja pour ajouter file et copier le chemin dans le press papier:
Code:

1 2 3 4 5 set vrChm=%~1 set vrChm=file://%vrChm% echo %vrChm%|clip
mais il faut que tu télécharge la commande clip: http://windows.developpez.com/faq/ba...#presse_papier
19/01/2008, 20h20
rollingboy

Bonsoir,

Merci pour ta réponse kokotis mais où dois installer clip.exe pour pouvoir m'en servir et est-ce que mon début de code est bon?
En particulier comment code-t-on la partie (monfichier.xyz) puisqu'il peut s'agir de n'importe quoi?
20/01/2008, 08h45
koKoTis

Citation:

Envoyé par rollingboy

Bonsoir,

Merci pour ta réponse kokotis mais où dois installer clip.exe pour pouvoir m'en servir et est-ce que mon début de code est bon?
En particulier comment code-t-on la partie (monfichier.xyz) puisqu'il peut s'agir de n'importe quoi?

Tu place clip.exe dans le répertoire C:\WINDOWS\system32
20/01/2008, 19h05
rollingboy
Bonsoir et encore merci pour ce que tu m'as donné çà récupère exactement le chemin du fichier concerné.

J'ai maintenant un problème avec les remplacement de caractère j'ai tester çà après avoir récupéré la commande sed
Code:

1 2 3 4 5 6 @echo off set vrChm=%~1 set vrChm=file://%vrChm% set vrChm2=%vrChm% |sed s/é/e/g echo %vrChm2%|clip
Sans succès:bug:

de même avec çà
Code:

1 2 3 4 5 6 7 @echo off set vrChm=%~1 set vrChm=file://%vrChm% Set vrChm=% vrChm:a=e% echo %vrChm%|clip
qui me renvoi a=e

Comment dois-je m'y prendre

tu a mi un espace en trop:

Code:

1
2
3
4
5
6
7
@echo off
set vrChm=%~1

set vrChm=file://%vrChm%

Set vrChm=%vrChm:a=e%
echo %vrChm%|clip

20/01/2008, 19h42
rollingboy

Merci tu es un(e) :king:
Sans vouloir abuser comment doit-t-on écrire que l'on veut remplacer un espace par la chaîne %20
20/01/2008, 19h45
koKoTis

je ne sais pas si ca va marcher:

Code:

Set vrChm=%vrChm: =20%%

ou peut être:

Code:

Set vrChm=%vrChm: =20^%%

ou encore:

Code:

Set vrChm=%vrChm: =20^^%%
20/01/2008, 20h25
rollingboy

Commetu le pensais çà ne fonctionne pas malheureusement :arf:
Peut-on utiliser du code ascii ou ansi dans un script batch ceci permettrait d'appeler le caractère % sans qu'il soit interprété
20/01/2008, 20h46
koKoTis

Citation:

Envoyé par rollingboy

Peut-on utiliser du code ascii ou ansi dans un script batch ceci permettrait d'appeler le caractère % sans qu'il soit interprété

Je n'sais pas

Bonsoir,

Je n'ai toujours pas trouver de solution en batch mais en voici une en VBScript qui fonctionne tés bien au cas où çà intéresse quelqu'un

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
'+
'    Classe de gestion du clipboard
'-
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


'+
'    Programme principal
'-
Dim ClipBoard
Set Clipboard = New cClipBoard
'
'    récup argument ligne de commande
'
Set sh = CreateObject("WScript.Shell")
Set argv = Wscript.Arguments

'
'    transformation des espaces et autres en "%xx"
'
filename=argv(0)
url="file://" & filename
url=replace(url, " ", "%20")
url=replace(url, "É", "%C9")
url=replace(url, "é", "%E9")
url=replace(url, "è", "%E8")
url=replace(url, "à", "%E0")
url=replace(url, "ê", "%EA")
url=replace(url, "ù", "%F9")
url=replace(url, "È", "%C8")
url=replace(url, "Ç", "%C7")
url=replace(url, "À", "%C0")
url=replace(url, "Ù", "%D9")
url=replace(url, "Ê", "%CA")
url=replace(url, "ç", "%E7")
url=replace(url, "â", "%E2")
url=replace(url, "Â", "%C2")
url=replace(url, "ï", "%EF")
url=replace(url, "Ï", "%CF")
url=replace(url, "ö", "%F6")
url=replace(url, "Ö", "%D6")

'    continuer comme ça pour tous les caractères accentués

ClipBoard.Clear            ' effacemengt du clipboard
ClipBoard.Data = url    ' ajout de l'url dans le clipboard

Amusez vous bien