VB6 Qu'est ce qui remplace le *.*Résolu

Question

Bonjour &#224; tous... j'ai un blanc de m&#233;moire...

Je ne me souvient plus du caract&#232;re utilis&#233; dans VB6 pour remplacer le * (dans l'ancien dos)

En d'autres mots, j'ai des fichiers qui se nomme 01__343_02.htm

Je veux demander d'ouvrir le fichier qui se nomme 01__343 avec les n'importe quel caract&#232;re qui suit le 343 et qui a un extension .htm. 

Car dans les nombreux fichiers que j'ai dans mon r&#233;pertoire, j'ai des fichiers qui comment toute pareil (01__) mais qui ne se termaine pas pareil (dans l'exemple ici, _02) et se sont tous des .htm

Donc qu'est ce que je mets &#224; la place de l'&#233;toile (*) dans le code suivant ???? 

Fichier1 = ShellExecute(Me.hWnd, "open", "m:\Recherches_BPD\index_aux_immeubles\BPD_Montcalm\Kilkenny\INDEX_ST-CALIXTE\MONTCALM\Canton_de_Kilkenny\RANG_8" & "01__" & strIndex & "*.htm", vbNullString, "", SW_SHOWNORMAL)

merci d'avance

PCPT · Accepted Answer

ce fameux dir ... Private Sub cmdIndex_Click() '... strIndex = txtIndex Const sPath As String = "m:\Recherches_BPD\index_aux_immeubles\BPD_Montcalm\Kilkenny" & _ "INDEX_ST-CALIXTE\MONTCALM\Canton_de_Kilkenny\RANG_8" Dim sMyFile As String sMyFile = Dir (sPath & "01__" & strIndex & "*.htm") If sMyFile <> vbNullString Then Fichier1 = ShellExecute(Me.hWnd, "open", sPath & sMyFile, vbNullString, "", SW_SHOWNORMAL) End If End Sub Coloration syntaxique automatique [AFCK]

cs_emma16 · Answer

il me semble que j'ai vu des exemple dans msdn. je croi sque pour ton fichier qui commence par 01__343 il faut mettre # apres le 343
va voir dans msdn...

@+

asecher · Answer

Bonjour,

Je ne comprends pas ce que tu veux faire ....
Que se passe t'il si tu as plusieurs fichiers qui correspondent &#224; tes crit&#232;res ?
sinon, ton crit&#232;re avec l'&#233;toile doit fonctionner, mais fais plut&#244;t une boucle sur une fonction Dir....

A+

Alain 31

cs_JeffC1977 · Answer

Salut....

J'aimerais bien aller sur MSDN mais je ne sai spas quoi chercher.....

Je ne sais pas quoi &#233;crire dans ma recherche....  Comment se nomme le symbole # pour que j epuisse avec des exemple... ????

C'est pour cela que j'ai pens&#233; &#224; &#233;crir sur le forum.... 

&#192; moins que quelqu'un puisse me dire comment se nomme le type de fonction que j'ai besoin...

Merci d'avance

cs_JeffC1977 · Answer

Salut...

C'est un peu bisare les fichiers que j'ai.... ils viennent du gouvernement  c'est peut-&#234;tre pour cela  lol..:P

J'ai qu'un fichier qui se nomme 01__10A-1_02.htm

Je vais &#233;crire dans un textbox 10A-1 et le fichier (01__10A-1_02.htm) doit s'ouvrir.

Sauf que la terminaison de mes fichiers ne se nomme pas tous _02 j'en ai qui se nomme _04 ou _06 mais j'ai jamais un doublon pour la premi&#232;re partie du fichier (01__10A-1).

Donc mon prochain fichier est par exemple 01__10A-2_05.htm

Donc si je ferais une recherche en DOS pour ouvrir le fichier 01__10A-1_02.htm je dirais 01__10A-1*
.htm

Comment je fais pour coder cela ????

merci d'avance

En esp&#233;rant que j'ai &#233;t&#233; un peu plus clair...

asecher · Answer

Je ne comprends pas pourquoi &#231;&#224; ne marche pas ....

Si tu fais  :
'_____________________
strIndex="343_"
strATROUVER = "m:\Recherches_BPD\index_aux_immeubles\BPD_Montcalm\Kilkenny\INDEX_ST-CALIXTE\MONTCALM\Canton_de_Kilkenny\RANG_8" & "01__" & strIndex & "*.htm"
sFile = Dir(strATROUVER) 'recherche le premier fichier qui correspond
     Do While sFile <> ""    's'il en trouve
          shell(sFile)              'lance le
          sfile = Dir               'cherche le suivant
     Loop
'_____________________
Tu dois pouvoir lancer toutes les pages html recherch&#233;es ...

Cordialement,

Alain 31

cs_emma16 · Answer

# = di&#232;se

PCPT · Answer

salut,
tu confonds apparemment le listing et l'ouverture.
il faut d'abord lister (dir) avec *, sauver les chemins en tableau, puis ouvrir avec les chemins complets trouv&#233;s.

asecher · Answer

Ben pourquoi les sauver dans un tableau ?
On les ouvre au fur et &#224; mesure et ya pas de confusion pour l'&#233;toile qui ne sert que de pattern &#224; la recherche effectu&#233;e par le dir.

(non mais....)

Alain 31

PCPT · Answer

les ouvrir apr&#232;s ou en tableau, peu importe...
et dir, je parle de la fonction, pas de l'objet

JB76000 · Answer

Essaie 01__10A-1???????.htm , mets autant de ? que tu en as besoin

Je ne suis pas s&#251;r que ca marche.

Jer

asecher · Answer

Bon, on s'&#233;nerve pour rien : JeffC1977 n'a pas test&#233; ou du moins r&#233;pondu .....

A+

Alain 31

cs_JeffC1977 · Answer

Salut... merci &#224; tous.....

et bien je n'ai pas besoin de faire de boucle dans mon code... J'ai programmer autre chose du genre que si le fichier n'existe pas alors un message est afficher dans un label

If Fichier1 > 32 Then GoTo .........

Mais je vais essayer le ??????  ca devrait marcher....

je vous redonne des nouvelles...

merci

cs_JeffC1977 · Answer

Rebonjour...  ou plut&#244;t bonsoir

J'ai fais deux test &#224; vrai dire...

le premier j'ai essay&#233; les points d'int&#233;rogatuons.... Il ne trouve pas le fichier...
Voicie le code que j'ai utilis&#233;

Private Sub cmdIndex_Click()


strIndex =  txtIndex


Fichier1 = ShellExecute(Me.hWnd, "open", _
"m:\Recherches_BPD\index_aux_immeubles\BPD_Montcalm\Kilkenny\INDEX_ST-CALIXTE\MONTCALM\Canton_de_Kilkenny\RANG_8" _
 & "01__" & strIndex & "????.htm",  vbNullString, "", SW_SHOWNORMAL)
End Sub

Sauf si j'enl&#232;ve tout ce qui est entre guillemet ("01__"  et "????.htm") et bien le fichier s'ouvre (bien sur j'inscrit le nom du fichier au complet)
Voici le code que j'ai modifi&#233; pour le test

Private Sub cmdIndex_Click()


strIndex  = txtIndex


Fichier1 = ShellExecute(Me.hWnd, "open", _
"m:\Recherches_BPD\index_aux_immeubles\BPD_Montcalm\Kilkenny\INDEX_ST-CALIXTE\MONTCALM\Canton_de_Kilkenny\RANG_8" _
& strIndex, vbNullString, "", SW_SHOWNORMAL)
End Sub

cs_JeffC1977 · Answer

salut PCPT

Merci pour le code avec le Dir....

Je ne savais pas comment le coder... mais le bug c'est que j'utilise ce type de code (sans utiliser le Dir) dans mon programme et ca fonctionne tr&#232;s bien....

Mais je vais prendre ton code car on dirais que ce ne fonctionne pas toujours ce shellexecute....

Est-ce que tu peux me dire pourquoi ca fonctionne si j'utilise une ligne de code comme cela
Fichier1 = ShellExecute(Me.hWnd, "open", _
"m:\Recherches_BPD\index_aux_immeubles\BPD_Montcalm\Kilkenny\INDEX_ST-CALIXTE\MONTCALM\Canton_de_Kilkenny\RANG_8" _
& "01__" & strIndex & "*.htm", vbNullString, "", SW_SHOWNORMAL)

Mais pourquoi si je rajoute l'&#233;toile ca ne fonctionne pas ???? et s'il n'y a pas d'&#233;toile, c'est-&#224;-dire je rentre le nom entier du fichier ca fonctionne tr&#232;s bien ????

J'attends de tes nouvelles &#224; savoir si peux m'&#233;clairer un peux...  merci d'avance...

P.S. je vais essayer ton code demain et je viendrai cliquer sur "R&#233;ponse accept&#233;e !"

merci encore

PCPT · Answer

shellexecute te renvoie une valeur.
que contient strIndex ?
peut-&#234;tre que si au final ton fichier est "01__4040.htm", fichier non existant, shell plante.
d'o&#249; une v&#233;rification d'existance &#224; faire avant (pour avoir le fichier correct avec certitude)

asecher · Answer

Mais c'est pas possible !!!
Qu'est-ce que vous racontez ????
Si on ne fournit pas le nom complet du fichier au ShellExecute, le fichier ne sera pas trouv&#233; et donc ne sera pas lanc&#233;.
Le but de la commande Dir, c'est de trouver si un ou plusieurs fichiers correspondent aux crit&#232;res (avec * ou ?).

Donc, pas question de lancer un shellExecute () avec un dfichier avec * ou ?, il faut le nom exact.

Donc le code de PCPT doit marcher.

D&#233;cid&#233;ment, y'en a qui sont t&#233;tus.....

Cordialement,

Alain 31

VB6 Qu'est ce qui remplace le .

17 réponses