Quel est cet objet attendu sur Instr ?

**Walterbelo** · 15/06/2009, 01h31

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 :

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
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>

**spantemonium** · 15/06/2009, 12h21

Bonjour,

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

Code :

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

wscript.echo argu 'ou msgbox

devant cette ligne :

Code :

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

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...

**SfJ5Rpw8** · 15/06/2009, 15h02

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....)

**Walterbelo** · 15/06/2009, 17h09

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 :

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
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 :

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
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>

**SfJ5Rpw8** · 15/06/2009, 17h26

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

**Walterbelo** · 15/06/2009, 22h03

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

Quel est cet objet attendu sur Instr ?

VBScript

Discussions similaires

Partager

Partager