Rechercher et modifier un fichier INI

**tofju** · 19/06/2009, 11h55

Bonjour,

Je voudrais faire une recherche d'un fichier INI dans un lecteur réseau ou un repertoire et modifier la valeur d'une clé.
Voila ce que j'ai Bricolé mais cela ne fonctionne pas. Je voudrais bien une aide SVP.

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
 
 
'Rechercher le chemin des fichiers
 
 Function Find (strPath, strFileName)
 Dim MyDir, MyFile, MySubDir
 Dim strResult
 
path_start = "c:\Temp"
 
 result = Find(path_start, "notes.ini")
 
 If strFileName = Empty Then Exit Function
 Set ObjFSO = CreateObject("Scripting.FileSystemObject")
 
 
 Set MyDir = ObjFSO.GetFolder(strPath)
 
 For Each MyFile In MyDir.Files
 If ObjFSO.GetFileName(MyFile.Name) = strFileName Then strResult = strResult & strPath & "\" & MyFile.Name & vbCrLf
 
 Next
 
 For Each MySubDir In MyDir.SubFolders
 strResult = strResult & Find(strPath & "\" & MySubDir.Name, strFileName)
 Next
End Function
 
'Modifier le fichier
 
WriteINIString "Notes", "MailServer", "CN=BORDS01", strResult
wscript.echo GetINIString("Notes", "MailServer", "CN=BORDS01", strResult)
 
 
Sub WriteINIString(Section, KeyName, Value, FileName)
  Dim INIContents, PosSection, PosEndSection
 
  'Get contents of the INI file As a string
  INIContents = GetFile(FileName)
 
  'Find section
  PosSection = InStr(1, INIContents, "[" & Section & "]", vbTextCompare)
  If PosSection>0 Then
    'Section exists. Find end of section
    PosEndSection = InStr(PosSection, INIContents, vbCrLf & "[")
    '?Is this last section?
    If PosEndSection = 0 Then PosEndSection = Len(INIContents)+1
 
    'Separate section contents
    Dim OldsContents, NewsContents, Line
    Dim sKeyName, Found
    OldsContents = Mid(INIContents, PosSection, PosEndSection - PosSection)
    OldsContents = split(OldsContents, vbCrLf)
 
    'Temp variable To find a Key
    sKeyName = LCase(KeyName & "=")
 
    'Enumerate section lines
    For Each Line In OldsContents
      If LCase(Left(Line, Len(sKeyName))) = sKeyName Then
        Line = KeyName & "=" & Value
        Found = True
      End If
      NewsContents = NewsContents & Line & vbCrLf
    Next
 
    If isempty(Found) Then
      'key Not found - add it at the end of section
      NewsContents = NewsContents & KeyName & "=" & Value
    Else
      'remove last vbCrLf - the vbCrLf is at PosEndSection
      NewsContents = Left(NewsContents, Len(NewsContents) - 2)
    End If
 
    'Combine pre-section, new section And post-section data.
    INIContents = Left(INIContents, PosSection-1) & _
      NewsContents & Mid(INIContents, PosEndSection)
  else'if PosSection>0 Then
    'Section Not found. Add section data at the end of file contents.
    If Right(INIContents, 2) <> vbCrLf And Len(INIContents)>0 Then 
      INIContents = INIContents & vbCrLf 
    End If
    INIContents = INIContents & "[" & Section & "]" & vbCrLf & _
      KeyName & "=" & Value
  end if'if PosSection>0 Then
  WriteFile FileName, INIContents
End Sub
 
Function GetINIString(Section, KeyName, Default, FileName)
  Dim INIContents, PosSection, PosEndSection, sContents, Value, Found
 
  'Get contents of the INI file As a string
  INIContents = GetFile(FileName)
 
  'Find section
  PosSection = InStr(1, INIContents, "[" & Section & "]", vbTextCompare)
  If PosSection>0 Then
    'Section exists. Find end of section
    PosEndSection = InStr(PosSection, INIContents, vbCrLf & "[")
    '?Is this last section?
    If PosEndSection = 0 Then PosEndSection = Len(INIContents)+1
 
    'Separate section contents
    sContents = Mid(INIContents, PosSection, PosEndSection - PosSection)
 
    If InStr(1, sContents, vbCrLf & KeyName & "=", vbTextCompare)>0 Then
      Found = True
      'Separate value of a key.
      Value = SeparateField(sContents, vbCrLf & KeyName & "=", vbCrLf)
    End If
  End If
  If isempty(Found) Then Value = Default
  GetINIString = Value
End Function
 
'Separates one field between sStart And sEnd
Function SeparateField(ByVal sFrom, ByVal sStart, ByVal sEnd)
  Dim PosB: PosB = InStr(1, sFrom, sStart, 1)
  If PosB > 0 Then
    PosB = PosB + Len(sStart)
    Dim PosE: PosE = InStr(PosB, sFrom, sEnd, 1)
    If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf, 1)
    If PosE = 0 Then PosE = Len(sFrom) + 1
    SeparateField = Mid(sFrom, PosB, PosE - PosB)
  End If
End Function
 
 
'File functions
Function GetFile(ByVal FileName)
  Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
  'Go To windows folder If full path Not specified.
  If InStr(FileName, ":\") = 0 And Left (FileName,2)<>"\\" Then 
    FileName = FS.GetSpecialFolder(0) & "\" & FileName
  End If
  On Error Resume Next
 
  GetFile = FS.OpenTextFile(FileName).ReadAll
End Function
 
Function WriteFile(ByVal FileName, ByVal Contents)
 
  Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
  'On Error Resume Next
 
  'Go To windows folder If full path Not specified.
  If InStr(FileName, ":\") = 0 And Left (FileName,2)<>"\\" Then 
    FileName = FS.GetSpecialFolder(0) & "\" & FileName
  End If
 
  Dim OutStream: Set OutStream = FS.OpenTextFile(FileName, 2, True)
  OutStream.Write Contents
End Function

J'ai trouvé les 2 codes sur le NET, il fonctionne tout les 2 séparément. Maintenant pour les lier et bien je galère vu mon niveau

**spantemonium** · 19/06/2009, 15h56

Je ne trouve pas dans ton code la fonction Find pourtant elle a l'air appelée là :

Code :

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

result = Find(path_start, "notes.ini")

Est ce que tu peux aussi préciser ce que tu compte modifier, avec un exemple de fichier ini.

**tofju** · 19/06/2009, 16h10

En faite le script suivant recherche tout les notes.ini indiqué dans "path_start"

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
 
Option Explicit
 
 Dim path_start
 Dim Myfso, result
 Set Myfso = CreateObject("Scripting.FileSystemObject")
 
 
 path_start = "c:\Temp"
 
 result = Find(path_start, "notes.ini")
 
 MsgBox result
 
 Function Find (strPath, strFileName)
 Dim MyDir, MyFile, MySubDir
 Dim strResult
 
 If strFileName = Empty Then Exit Function
 strFileName = Ucase(strFileName)
 
 Set MyDir = Myfso.GetFolder(strPath)
 
 For Each MyFile In MyDir.Files
 If Ucase(MyFile.Name) = strFileName Then strResult = strResult & strPath & "\" & MyFile.Name & vbCrLf
 Next
 For Each MySubDir In MyDir.SubFolders
 strResult = strResult & Find(strPath & "\" & MySubDir.Name, strFileName)
 
Next
 
Find = strResult
 
End Function

Le 2eme code modifie une section dans le fichier notes.ini

[Notes]
MailServer=CN=MAIL04

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
 
WriteINIString "Notes", "MailServer", "CN=MAIL01/OU=Srv/O=Barclays-France",
"C:\Temp\notes.ini"
wscript.echo GetINIString("Notes", "MailServer",
"CN=MAIL01/OU=Srv/O=Barclays-France", "C:\Temp\notes.ini")
 
Sub WriteINIString(Section, KeyName, Value, FileName)
 Dim INIContents, PosSection, PosEndSection
 
 'Get contents of the INI file As a string
 INIContents = GetFile(FileName)
 
 'Find section
 PosSection = InStr(1, INIContents, "[" & Section & "]", vbTextCompare)
 If PosSection>0 Then
   'Section exists. Find end of section
   PosEndSection = InStr(PosSection, INIContents, vbCrLf & "[")
   '?Is this last section?
   If PosEndSection = 0 Then PosEndSection = Len(INIContents)+1
 
   'Separate section contents
   Dim OldsContents, NewsContents, Line
   Dim sKeyName, Found
   OldsContents = Mid(INIContents, PosSection, PosEndSection - PosSection)
   OldsContents = split(OldsContents, vbCrLf)
 
   'Temp variable To find a Key
   sKeyName = LCase(KeyName & "=")
 
   'Enumerate section lines
   For Each Line In OldsContents
     If LCase(Left(Line, Len(sKeyName))) = sKeyName Then
       Line = KeyName & "=" & Value
       Found = True
     End If
     NewsContents = NewsContents & Line & vbCrLf
   Next
 
   If isempty(Found) Then
     'key Not found - add it at the end of section
     NewsContents = NewsContents & KeyName & "=" & Value
   Else
     'remove last vbCrLf - the vbCrLf is at PosEndSection
     NewsContents = Left(NewsContents, Len(NewsContents) - 2)
   End If
 
   'Combine pre-section, new section And post-section data.
   INIContents = Left(INIContents, PosSection-1) & _
     NewsContents & Mid(INIContents, PosEndSection)
 else'if PosSection>0 Then
   'Section Not found. Add section data at the end of file contents.
   If Right(INIContents, 2) <> vbCrLf And Len(INIContents)>0 Then
     INIContents = INIContents & vbCrLf
   End If
   INIContents = INIContents & "[" & Section & "]" & vbCrLf & _
     KeyName & "=" & Value
 end if'if PosSection>0 Then
 WriteFile FileName, INIContents
End Sub
 
Function GetINIString(Section, KeyName, Default, FileName)
 Dim INIContents, PosSection, PosEndSection, sContents, Value, Found
 
 'Get contents of the INI file As a string
 INIContents = GetFile(FileName)
 
 'Find section
 PosSection = InStr(1, INIContents, "[" & Section & "]", vbTextCompare)
 If PosSection>0 Then
   'Section exists. Find end of section
   PosEndSection = InStr(PosSection, INIContents, vbCrLf & "[")
   '?Is this last section?
   If PosEndSection = 0 Then PosEndSection = Len(INIContents)+1
 
   'Separate section contents
   sContents = Mid(INIContents, PosSection, PosEndSection - PosSection)
 
   If InStr(1, sContents, vbCrLf & KeyName & "=", vbTextCompare)>0 Then
     Found = True
     'Separate value of a key.
     Value = SeparateField(sContents, vbCrLf & KeyName & "=", vbCrLf)
   End If
 End If
 If isempty(Found) Then Value = Default
 GetINIString = Value
End Function
 
'Separates one field between sStart And sEnd
Function SeparateField(ByVal sFrom, ByVal sStart, ByVal sEnd)
 Dim PosB: PosB = InStr(1, sFrom, sStart, 1)
 If PosB > 0 Then
   PosB = PosB + Len(sStart)
   Dim PosE: PosE = InStr(PosB, sFrom, sEnd, 1)
   If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf, 1)
   If PosE = 0 Then PosE = Len(sFrom) + 1
   SeparateField = Mid(sFrom, PosB, PosE - PosB)
 End If
End Function
 
 
'File functions
Function GetFile(ByVal FileName)
 Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
 'Go To windows folder If full path Not specified.
 If InStr(FileName, ":\") = 0 And Left (FileName,2)<>"\\" Then
   FileName = FS.GetSpecialFolder(0) & "\" & FileName
 End If
 On Error Resume Next
 
 GetFile = FS.OpenTextFile(FileName).ReadAll
End Function
 
Function WriteFile(ByVal FileName, ByVal Contents)
 
 Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
 'On Error Resume Next
 
 'Go To windows folder If full path Not specified.
 If InStr(FileName, ":\") = 0 And Left (FileName,2)<>"\\" Then
   FileName = FS.GetSpecialFolder(0) & "\" & FileName
 End If
 
 Dim OutStream: Set OutStream = FS.OpenTextFile(FileName, 2, True)
 OutStream.Write Contents
End Function

Je voudrais lui donner une racine ou il y a 250 fichiers notes.ini et écrire dedans pour indiquer de nouveaux paramètre

**tofju** · 22/06/2009, 16h18

S'il vous plait, un coup de pouce. Je rame grave.....

J'essaye d'adapter le script 1 dans le 2..... je m'arrache les cheveux....

J'aurais peut être une solution dans la semaine d'un collègue. Je déposerais si cela intéresse.

**spantemonium** · 22/06/2009, 17h03

regarde si ca marche cà :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
 
'Petite remise en forme
Dim path_start
Dim Myfso, result
Set Myfso = CreateObject("Scripting.FileSystemObject")
path_start = "c:\Temp"
result = Find(path_start, "notes.ini")
WriteINIString "Notes", "MailServer", "CN=MAIL01/OU=Srv/O=Barclays-France", result
wscript.echo GetINIString("Notes", "MailServer","CN=MAIL01/OU=Srv/O=Barclays-France", result)
 
 
Sub WriteINIString(Section, KeyName, Value, FileName)
	Dim INIContents, PosSection, PosEndSection
	'Get contents of the INI file As a string
	INIContents = GetFile(FileName)
	'Find section
	PosSection = InStr(1, INIContents, "[" & Section & "]", vbTextCompare)
	If PosSection>0 Then
		'Section exists. Find end of section
		PosEndSection = InStr(PosSection, INIContents, vbCrLf & "[")
		'?Is this last section?
		If PosEndSection = 0 Then PosEndSection = Len(INIContents)+1
		'Separate section contents
		Dim OldsContents, NewsContents, Line
		Dim sKeyName, Found
		OldsContents = Mid(INIContents, PosSection, PosEndSection - PosSection)
		OldsContents = split(OldsContents, vbCrLf)
		'Temp variable To find a Key
		sKeyName = LCase(KeyName & "=")
		'Enumerate section lines
		For Each Line In OldsContents
			If LCase(Left(Line, Len(sKeyName))) = sKeyName Then
				Line = KeyName & "=" & Value
				Found = True
			End If
			NewsContents = NewsContents & Line & vbCrLf
		Next
		If isempty(Found) Then
			'key Not found - add it at the end of section
			NewsContents = NewsContents & KeyName & "=" & Value
		Else
			'remove last vbCrLf - the vbCrLf is at PosEndSection
			NewsContents = Left(NewsContents, Len(NewsContents) - 2)
		End If
		'Combine pre-section, new section And post-section data.
		INIContents = Left(INIContents, PosSection-1) & _
		NewsContents & Mid(INIContents, PosEndSection)
	else'if PosSection>0 Then
		'Section Not found. Add section data at the end of file contents.
		If Right(INIContents, 2) <> vbCrLf And Len(INIContents)>0 Then
			INIContents = INIContents & vbCrLf
		End If
		INIContents = INIContents & "[" & Section & "]" & vbCrLf & _
		KeyName & "=" & Value
	end if'if PosSection>0 Then
	WriteFile FileName, INIContents
End Sub
Function GetINIString(Section, KeyName, Default, FileName)
	Dim INIContents, PosSection, PosEndSection, sContents, Value, Found
	'Get contents of the INI file As a string
	INIContents = GetFile(FileName)
	'Find section
	PosSection = InStr(1, INIContents, "[" & Section & "]", vbTextCompare)
	If PosSection>0 Then
		'Section exists. Find end of section
		PosEndSection = InStr(PosSection, INIContents, vbCrLf & "[")
		'?Is this last section?
		If PosEndSection = 0 Then PosEndSection = Len(INIContents)+1
		'Separate section contents
		sContents = Mid(INIContents, PosSection, PosEndSection - PosSection)
		If InStr(1, sContents, vbCrLf & KeyName & "=", vbTextCompare)>0 Then
			Found = True
			'Separate value of a key.
			Value = SeparateField(sContents, vbCrLf & KeyName & "=", vbCrLf)
		End If
	End If
	If isempty(Found) Then Value = Default
	GetINIString = Value
End Function
'Separates one field between sStart And sEnd
Function SeparateField(ByVal sFrom, ByVal sStart, ByVal sEnd)
	Dim PosB: PosB = InStr(1, sFrom, sStart, 1)
	If PosB > 0 Then
		PosB = PosB + Len(sStart)
		Dim PosE: PosE = InStr(PosB, sFrom, sEnd, 1)
		If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf, 1)
		If PosE = 0 Then PosE = Len(sFrom) + 1
		SeparateField = Mid(sFrom, PosB, PosE - PosB)
	End If
End Function
'File functions
Function GetFile(ByVal FileName)
	Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
	'Go To windows folder If full path Not specified.
	If InStr(FileName, ":\") = 0 And Left (FileName,2)<>"\\" Then
		FileName = FS.GetSpecialFolder(0) & "\" & FileName
	End If
	On Error Resume Next
	GetFile = FS.OpenTextFile(FileName).ReadAll
End Function 
Function WriteFile(ByVal FileName, ByVal Contents)
	Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
	'On Error Resume Next
	'Go To windows folder If full path Not specified.
	If InStr(FileName, ":\") = 0 And Left (FileName,2)<>"\\" Then
		FileName = FS.GetSpecialFolder(0) & "\" & FileName
	End If
	Dim OutStream: Set OutStream = FS.OpenTextFile(FileName, 2, True)
	OutStream.Write Contents
End Function 
Function Find (strPath, strFileName)
	Dim MyDir, MyFile, MySubDir
	Dim strResult
	If strFileName = Empty Then Exit Function
	strFileName = Ucase(strFileName)
	Set MyDir = Myfso.GetFolder(strPath)
	For Each MyFile In MyDir.Files
		If Ucase(MyFile.Name) = strFileName Then strResult = strResult & strPath & "\" & MyFile.Name & vbCrLf
	Next
	For Each MySubDir In MyDir.SubFolders
		strResult = strResult & Find(strPath & "\" & MySubDir.Name, strFileName)
	Next
	Find = strResult
End Function

**vikingraver** · 24/06/2009, 09h54

Tu devrais regarder le code de spantemonium
Je suis pas un prof mais tu as ecris :

Code :

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

1
2
3
4
5
6
7
8
 
 Function Find (strPath, strFileName)
 Dim MyDir, MyFile, MySubDir
 Dim strResult
 
path_start = "c:\Temp"
 
 result = Find(path_start, "notes.ini")

tu as ecris :

Creer Fonction Find
Mettre dans path_start le chemin c:\temp
Mettre dans la variable result le resultat de la fonction Find
Fin de création de la fonction Find

Tu appelles ta fonction à l'interieur de cette derniere donc c'était mal parti.

Rechercher et modifier un fichier INI

VBScript

Vue hybride

Discussions similaires

Partager

Partager