Bonjour,
J'essai d'extraire une chaine de caractère d'un fichier .ini.
Je voudrais extraire le "5a15b" de la ligne 2 et juste ce petit bout.Citation:
Envoyé par Mon fichier .ini
Pourriez-vous m'aider ?
Merci.
Version imprimable
Bonjour,
J'essai d'extraire une chaine de caractère d'un fichier .ini.
Je voudrais extraire le "5a15b" de la ligne 2 et juste ce petit bout.Citation:
Envoyé par Mon fichier .ini
Pourriez-vous m'aider ?
Merci.
Je me suis peut être mal exprimé, je voudrais juste que la valeur récupéré s'affiche dans une fenêtre.
S'il s'agit toujours de la clé Version, on peut faire plus simple :Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Option Explicit Const ForReading = 1 Dim fso, Fich, Ret , SrcIniFile, Ligne Set fso = CreateObject("Scripting.FileSystemObject") SrcIniFile = "Fichier.ini" ' avec eventuellement le chemin complet si le fichier ' est dans un autre dossier que celui du script Set fich = fso.OpenTextFile(SrcIniFile, ForReading, False) Do While Not Fich.AtEndOfStream Ligne=Fich.ReadLine If InStr(1, LCase(Ligne), "version") > 0 Then Ret = Mid(Ligne, InStr(1, Ligne, "=", 1) +1) ' Ret contient la valeur recherchée MsgBox Ret Exit Do End If Loop
Merci à tous mais merci particulièrement à l'autodidacte.
C'est exactement ce que je recherchais. :D
:resolu:
Il y a quand même bien plus simple. La fonction GetPrivateProfileString est justement faite pour ça.
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
A bon on peut utiliser les api Windows directement en vbs ?
Je ne savais pas :lol:
judicieuse remarque.. on ne peut pas... enfin pas nativementCitation:
A bon on peut utiliser les api Windows directement en vbs ?
et sinon je viens de créer une contribution sur le sujet (de la lecture des clés d'un fichier INI)