Quel est cet objet attendu sur Instr ?

Version imprimable

Bonjour à toutes et à tous,
Le script hta ci dessous est lancé par un . bat de la forme :
xargu.hta "c:\xargu.hta" c:\toto
Pourquoi ce message d'erreur : "objet attendu"
sur la ligne zxi=InStr(3,argu,"c:"); ?
Je débute en vbs.

Merci pour votre aide ?

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
<head
<HEAD>
  <TITLE>Concatener des documents PDF d'un dossier</TITLE>
    <HTA:APPLICATION ID="oHTA"
     APPLICATIONNAME="CctnPDF"
     BORDER="thick"
     BORDERSTYLE="normal"
     CAPTION="yes"
     ICON=""
     MAXIMIZEBUTTON="yes"
     MINIMIZEBUTTON="yes"
     SHOWINTASKBAR="no"
     SINGLEINSTANCE="no"
     SYSMENU="yes"
     VERSION="1.0"
     WINDOWSTATE="normal"/>
<script>
  /* This function also retrieves the value of the commandLine property,
     which cannot be set as an attribute.  */
   function window.onload()
   {
   argu=oHTA.commandLine;
   zxi=InStr(3,argu, "c:"); 
   zxi=zxi+2;
   doss=Mid(argu,zxi)
   targ.innerText=doss;
    }
</script>
<script type="text/javascript">
function coucou() {	
alert(document.getElementById("targ").innerText);}
</script>	
</head>
<body>
Test commandline
<div id="targ">
</div>
<br>
<input type="button" value="GO" onClick="coucou()">

	
</body>

15/06/2009, 11h21
spantemonium

Bonjour,

Je ne travaille pas (encore) avec hta, mais pour voir si la chaine est renseignée, tu peux peut etre essayer un

Code:

wscript.echo argu 'ou msgbox

devant cette ligne :

Code:

zxi=InStr(3,argu, "c:");

Autre chose c'est normal les ";" ? parce qu'en VBS y'en a pas normalement, a moins qu'en HTA...
15/06/2009, 14h02
SfJ5Rpw8

j'ai l'impression que tu nous fait un beau mélange de javascript et vbscript ... essai de te décider sur le langage utilisé ... ton code semble être du javascript (avec tous ces ; en fin de ligne....) :aie:

Mais non mais non :)

Non, je n'ai pas fait de mélange de javascript et de vbscript.
Dans ma page hta j'ai du vbscript (principalement pour récupérer les arguments de la ligne de commande) ET du javascript que je préfère.
J'ai simplement modifié un script que j'ai trouvé : ici. Site Microsoft himself.
On y voit des points-virgule !

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
<HTML>
<HEAD>
  <TITLE>HTA Demo</TITLE>
    <HTA:APPLICATION ID="oHTA"
     APPLICATIONNAME="myApp"
     BORDER="thin"
     BORDERSTYLE="normal"
     CAPTION="yes"
     ICON=""
     MAXIMIZEBUTTON="yes"
     MINIMIZEBUTTON="yes"
     SHOWINTASKBAR="no"
     SINGLEINSTANCE="no"
     SYSMENU="yes"
     VERSION="1.0"
     WINDOWSTATE="maximize"/>
 
  <SCRIPT>
 
  /* This function also retrieves the value of the commandLine property,
     which cannot be set as an attribute.  */
 
  function window.onload()
  {
     sTempStr = "applicationName  = " + oHTA.applicationName + "\n" + 
                "border           = " + oHTA.border          + "\n" +
                "borderStyle      = " + oHTA.borderStyle     + "\n" + 
                "caption          = " + oHTA.caption         + "\n" +
                "commandLine      = " + oHTA.commandLine     + "\n" +
                "icon             = " + oHTA.icon            + "\n" +
                "maximizeButton   = " + oHTA.maximizeButton  + "\n" +
                "minimizeButton   = " + oHTA.minimizeButton  + "\n" + 
                "showInTaskBar    = " + oHTA.showInTaskbar   + "\n" +
                "singleInstance   = " + oHTA.singleInstance  + "\n" +  
                "sysMenu          = " + oHTA.sysMenu         + "\n" + 
                "version          = " + oHTA.version         + "\n" + 
                "windowState      = " + oHTA.windowState     + "\n" ;
 
     oPre.innerText = sTempStr;		  
  }
  </SCRIPT>
</HEAD>
<BODY SCROLL="no">
  <PRE ID=oPre>  </PRE>
</BODY>
</HTML>

Après d'autres recherches, j'ai trouvé un autre exemple qui fonctionne parfaitement. Qu'est-ce qui fait que le premier code plante ? (pour la culture uniquement, bien sur). Et la, plus de point-virgule :)

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
<meta http-equiv="Content-Type" content="text>/html" charset="EUC-JP">
<HEAD>
  <TITLE>Concatener tous les documents PDF d'un dossier</TITLE>
    <HTA:APPLICATION ID="oHTA"
     APPLICATIONNAME="CctnPDF"
     BORDER="thick"
     BORDERSTYLE="normal"
     CAPTION="yes"
     ICON=""
     MAXIMIZEBUTTON="yes"
     MINIMIZEBUTTON="yes"
     SHOWINTASKBAR="no"
     SINGLEINSTANCE="no"
     SYSMENU="yes"
     VERSION="1.0"
     WINDOWSTATE="normal" />
<script LANGUAGE="VBScript">
   sub  window_onload
   window.resizeTo 600,400 
   argu=oHTA.commandLine
   xi=inStr(5, argu, ":")
   xi=xi-1
   doss=Mid(argu, xi)    
   targ.innerText=doss
 end sub
</script>
<script type="text/javascript">
function coucou() {	
alert(document.getElementById("targ").innerText);}
</script>	
</head>
<body>
Dossier contenant les fichiers pdf &agrave concat&eacutener :
<div id="targ">
</div>
<br>
<input type="button" value="GO" onClick="coucou()">
 
 
</body>

15/06/2009, 16h26
SfJ5Rpw8

Citation:

Envoyé par Walterbelo

...Qu'est-ce qui fait que le premier code plante ? (pour la culture uniquement, bien sur). E...

encore une fois ton premier code me semble être du javascript :aie:
15/06/2009, 21h03
Walterbelo

Ben oui bbil

Tu as raison ! Ce script récupéré sur un site Microsoft est bien du Javascript !
Ça alors, je n'en reviens pas que que l'objet application HTA et son attribut commandLine soient reconnus par JavaScript.

Ton tutoriel sur HTA est superbe, le chapitre sur l'utilisation des ActiveX est vraiment clair et va m'être bien utile.
Un paragraphe sur l'utilisation de Wscript.Shell pour le lancement et le pilotage d'application ?

J'ai téléchargé COMView et j'ai deux questions :
1. Je n'ai pas trouvé le contrôle CNTMonthView en faisant une recherche sur le CLSID de ton exmple, ce qui ne l'empêche pas de fonctionner parfaitement ?
2. Comment utiliser les contrôles des boites de dialogues d'ouverture de fichier et de sélection de dossier ?
J'ai lu ton post à ce sujet, j'ai été sur
http://ourworld.compuserve.com/homep...SHDynaCall.htm
C'est un peu ardu pour moi et ils ne parlent pas de XP.

Merci et bravo