Discussion :

[marsup54]

Bonjour,

J'ai crée une association entre certain type de fichier et mon programme.
Lorsque je lance le fichier, mon programme associé se lance automatiquement et récupère l'argument envoyé par ligne de commande par l'OS.

Dans mon Formulaire principal, je récupère cet argument pour lancer directement le fichier via mon programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
'Récupération de la ligne de commande éventuelle passée en argument
CmdLine = Command()
CmdLnLen = Len(CmdLine)
'Ouverture si nécéssaire du fichier
If CmdLine <> "" And CmdLnLen > 0 Then
    If Dir(CmdLine, vbHidden) <> "" Then
        ' File number
        FileNum = FreeFile
        ' Type scenario
        Scenario_Len = CmdLnLen
       ' Open the file which contains the scenario
        Open CmdLine For Random As FileNum Len = Scenario_Len + 10000
        Get #FileNum, 1, ScenarioData
        Get #FileNum, 2, AnAssociation
        Get #FileNum, 3, Strats
        Close
		....

Ceci marche très bien sauf sur certain poste où l'OS renvoie la ligne de commande entre double quote ...

Exemple :
Si je fais le code suivant pour tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox "CmdLine : " & CmdLine
MsgBox "CmdLnLen: " & CmdLnLen

1 ) Cas qui fonctionne sur certain PC:
-> CmdLine : D:\JFS\...\MonFichier.monExtension
-> CmdLnLen : 42

2 ) Cas qui pause problème:
-> CmdLine : "D:\JFS\...\MonFichier.monExtension"
-> CmdLnLen : 42

De plus vous remarquerez que la longueur de la chaine est identique ...

Bref, comment supprimer ces doubles quotes ...
un Replace(MaChaine, """, "") ... ne fonctionne pas

Comment expliquez vous ce phénomène en fonction des PC ... surtout que mon problème apparait sur 2 PC de même config et service pack (2000 SP4)

Merci d'avance pour votre aide

++

[Le Pharaon]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

un Replace(MaChaine, """, "") ... ne fonctionne pas

Et si tu remplaces les doubles par des espaces (" ") ?

[marsup54]

En fait quand je dit :

Replace(MaChaine, """, "") ... ne fonctionne pas

C'est que VB6 n'accepte pas cette synthaxe.

Il doit sûrement exister un charactère pour dire de ne pas interpréter la " par le compilateur VB6

Genre le \ en java que l'on mets devant une "

Merci d'avance pour votre aide

++

[Le Pharaon]

Syntaxe simple de la fonction Replace(expression, find, replacewith)

si replacewith a une longueur nulle Replace envoie une copie de l'expression, toutes les occurrences de find étant retirées.

Je vois juste une différence entre "" (qui a une longueur nulle) et " " .

[marsup54]

Replace(MaChaine, """, "")

C'est ce morceau qui pose problème au compilateur VB.
La synthaxe est incorrecte ...

Si j'avais la chaine :

'D:\JFS\...\MonFichier.monExtension'

Un Replace(MaChaine, "'", "") ferait l'affaire.

Là, je dois gérer des " qui est interprété par VB comme un délimiteur de chaine ... donc je vois pas trop comment faire.

Ou alors, je comprends pas bien ce que tu veux me dire.

Merci d'avance pour votre aide.

++

[Le Pharaon]

Ah oki maintenant je vois mieux, le problème peut être contourné en utilisant le code ascii du caractère spécial

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(MaChaine, chr(34) , "")

[marsup54]

OK merci !

J'y avais pensé, mais ne connaissant pas le code ascii de la quote

[Le Pharaon]

n'oubli donc pas le tag [RESOLU].

[sovo]

n'oubli donc pas le tag [RESOLU].

[SfJ5Rpw8]

....
Il doit sûrement exister un charactère pour dire de ne pas interpréter la " par le compilateur VB6

Genre le \ en java que l'on mets devant une "

....
++

en passant .. il suffit de doubler les " ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(MaChaine, """" , "")

[marsup54]

Je n'oublie pas le Tag Résolu ... mais j'espère encore comprendre pourquoi en fonction des postes client, l'OS me renvoie tantôt le Path du fichier entre double quote ou pas.

Phénomène que je trouve très étrange ...

En remarque, ce problème est lié au post suivant :
http://www.developpez.net/forums/sho...d.php?t=215265

Si je mets %L dans la ligne ci dessous, la ligne de commande correspond au chemin "Long".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

b.regwrite "HKCR\" & FileType & "\shell\open\command\", FileName & " %L"

Avec %1, la ligne de commande retournée correspond au chemin "Court"
Par contre, j'ai toujours de façon aléatoire le chemin entre double quote ou non

Si vous avez une idée, d'avance merci

++