Discussion :

[DuncanMcLeod]

Bonjour,
Je débute en programmation et je ne sais pas comment faire pour créer un HTA avec un fichier *.ini associé afin d'en tirer des variables à exploiter dans mon HTA.
J'ai trouvé des vbs qui fonctionnent mais je n'arrive pas à l'intégrer dans mon appli.

Dans mon appli, j'ai déclaré par exemple
serveur = "\\EXT-SRV-01"

Je ne voudrai pas retourner dans le code à chaque fois pour modifier la destination mais plutôt dans le fichier.ini.

J'ai donc trouvé ça que j'intègre entre les balises <SCRIPT Language="VBScript"> et </SCRIPT>:

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
Const ForReading = 1 
Dim oFSO, Ts, Cs, s 
Set OFSO = WScript.CreateObject("Scripting.FileSystemObject" ) 
 
fichier_ini = "Config.ini" 
 
Set lect = oFso.OpenTextFile(fichier_ini, ForReading) 
While Not lect.AtEndOfStream 
Ligne = lect.ReadLine 
propriete = Left(Ligne,InStrRev(Ligne,"=" )) 
value = right(Ligne, len(Ligne) - len(Propriete)) 
if propriete = "CHEMIN =" Then Cs = value 
if propriete = "TABLESOURCE =" Then Ts = value 
Wend 
lect.close

Mais quand je l'intègre ca me met un message d'erreur "Un script présent sur cette page ralentit Internet Explorer..."
De plus, bien sûr, ca ne fonctionne pas. J'ai même l'impression que cela me fait une boucle infinie et que le message d'erreur vient de là.
Je pense que la solution n'est pas loin de celle proposée en VBS, mais la je sèche.

Si quelqu'un a une idée...

[kiki29]

Salut, pour ce qui concerne les fichiers INI voir dans la faq : Comment lire / écrire dans un fichier .ini
Comment lister toutes les sections d'un fichier .ini
Comment lister toutes les clés et valeurs d'une section d'un fichier .ini

[DuncanMcLeod]

Houla je suis surestimé ... lol
Merci Kiki pour ta réponse mais je m'y perds ...
Je suis admin réseau et je commence tout juste à faire du HTA...
J'ai besoin simplement d'une ligne de code.

j'ai deux fichiers
- Install.hta
- config.ini

Mes variables dans l' "Install.hta" sont :
- serveur = "\\EXT-SRV-01"
- target = "D:\temp"
- chem1 = "C:\install\Outils\"
- Nextversion = "C:\Install\Bonus\v4.3.txt"
....

A la place je voudrai que les variables soient plutôt définies dans un fichier "config.ini"

Aujourd'hui mon HTA fonctionne très bien sans, mais pour des soucis pratiques, il serait plus facile pour moi de passer par un *.ini...

Merci encore à tous de vos réponses.

[ProgElecT]

Salut

Voir ce post qui doit repondre à ta question

[l_autodidacte]

Dans le cas présent, il me semble qu'il n'y a pas de section dans le fichier ini ( et ce n'est pas nécessaire si les entrées du fichier sont limitées à celles évoquées plus haut).

Une idée (ou suggestion) est de :
1 - Mettre les entrées dans le fichier Config.ini qui devrait(?) se trouver dans le dossier du script(.vbs ou .hta)
2 - Lire le contenu du fichier ini et en tirer la valeur souhaitée en donnant sa clé en paramètre à la fonction FindParams
3 - Dans le HTA, appeler la fonction là où on en a besoin avec le paramètre approprié.

Voici à titre indicatif le

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
Option Explicit
 
Dim FSO, oFich, Ret, TBL, Ligne
Const FichierINI = "Config.ini", ForReading = 1
 
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set oFich = FSO.OpenTextFile(FichierINI, ForReading, False)
 
 Msgbox FindParams("Target")
  oFich.Close
  Set FSO = Nothing
'==================== Fonction de recherche : ========
Function  FindParams(StrIn)
    While Not oFich.AtEndOfStream
      Ligne = oFich.ReadLine
      If InStr(1, Trim(LCase(Ligne)), LCase(StrIn), vbTextCompare) > 0 Then
        TBL = Split(Ligne, "=")
        Ret = TBL(1)
      End If
    Wend
    FindParams = Trim(Ret) ' On doit supprimer les espace avant et après
End Function

[DuncanMcLeod]

Bonjour à tous, et merci beaucoup de votre patience à mon égard,
Je suis allé voir ce que vous me proposez.
Je sais que la solution n'est pas loin dans vos posts.

Le script que j'ai mis au début de ce post m'avait l'air pas mal pourtant (en tout cas dans l'idée)... J'ai juste un message d'erreur.
Je ne remets pas en question vos scripts, je ne me permettrait pas, c'est juste que je ne sais pas si je me fais comprendre correctement étant ultra novice...
Je ne veux pas afficher toute les variables en une seule fois mais en récupérer une lorsque j'en ai besoin.

Exemple dans mon fichier *.ini j'ai :
Fichier config.ini

target = D:\temp\
chem1 = C:\install\outils\

(Sachant que je peux avoir plus d'une 20aine d'entrées, mais je n'en mets que 2 ici)

Fichier Install.hta

Code :

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

1
2
if propriete = "chem1 =" Then C1 = value 
if propriete = "target =" Then Tg = value

Je veux récupérer autant de variables dans le HTA que de lignes dans mon fichier *.ini
Si je prends C1 dans mon hta, je dois pouvoir récupérer la valeur "D:\temp\"

Si dans mon HTA je veux faire une copie de d:\temp sur c:\install\outils je voudrais pouvoir faire, par exemple un copy de C1 sur Tg

[l_autodidacte]

3 - Dans le HTA, appeler la fonction là où on en a besoin avec le paramètre approprié.

Il me semble que la réponse est LÀ.