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.

**tofju** · 24/06/2009, 16h50

Un très grand MERCI spantemonium

Et un très grand merci à mon collègue de boulot

Voilà le script FINISH

Exécuter --> cscript "chemin du script" "chemin des Notes.ini"

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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
Option Explicit
 
	On error Resume Next
 
	Dim path_start, var, i
	Dim Myfso, Result, tResult
	Set Myfso = CreateObject("Scripting.FileSystemObject")
 
	' On récupère le chemin passé en Argument
	set var = Wscript.Arguments
	path_start = var(0)
 
	' Si aucun chemin précisé en argument, on prend un chemin par défaut
	If path_start = "" Then path_start = "C:\Temp"
 
	' On récupère la liste des chemins où le fichier recherché est présent
	result = Find(path_start, "notes.ini")
 
	' On découpe la liste des chemins pour la traiter chemin par chemin
	tResult = Split(result,vbcrlf)
 
	' On traite chaque fichier de la liste un par un
	For i = 0 to Ubound(tResult) - 1
 
		'#########################################################################################
		'	Copier la ligne suivante autant de fois que nécessaire pour chaque modification 
		'	à apporter aux fichiers notes.ini. 
		'	Cette modification sera appliquée à tous les fichiers trouvés
		'#########################################################################################
 
		WriteINIString "Notes", "SPELL_DIR", "D:\temp", tResult(i)
		WriteINIString "Notes", "Cache", "D:\temp", tResult(i)
 
		'#########################################################################################
 
	Next
 
 
 
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
 
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

Merci pour ceux qui aide car c'est pas simple quand on a jamais fait de développement

**tofju** · 08/07/2009, 09h36

Avez vous une idée pour que le script ne respecte pas la CASE ?

Si l'extension est en majuscule il fait rien

**spantemonium** · 08/07/2009, 10h20

essaie de remplacer :

Code :

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

1
2
3
4
 
For Each MyFile In MyDir.Files
		If Ucase(MyFile.Name) = strFileName Then strResult = strResult & strPath & "\" & MyFile.Name & vbCrLf
	Next

par

Code :

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

1
2
3
4
 
For Each MyFile In MyDir.Files
		If UCase(MyFile.Name) = UCase(strFileName) Then strResult = strResult & strPath & "\" & MyFile.Name & vbCrLf
	Next

**tofju** · 09/07/2009, 09h10

spantemonium

J'ai une deuxième colle je viens de m'apercevoir qu'il est limité dans la recherche, je m explique :

Je lui donne un répertoire avec 1 fichier INI à modifier cela fonctionne, je lui donne un répertoire avec 100 répertoire en dessous et donc 100 fichier INI et il fait pas tout

Quelqu'un aurait une idée ?
Ma méthode de traitement des lignes est elle limitée ?

**tofju** · 09/07/2009, 11h15

J'ai trouvé mon problème mais pas la solution

Il sait pas traiter les répertoires à la racine d'un lecteur Réseau

Si je fais la commande cscript "chemin du script" "C:\Temp"

Il fait les modifications de tout les notes.ini qu'il trouve. J'ai rajouté

Code :

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

Msgbox Ubound(tResult)

Il me sort bien le nombre de Notes.ini qu'il trouve

Si je fais la commande cscript "chemin du script" "P:\Volume-users"

Il me sort un résultat -1

HELP SVP

**tofju** · 09/07/2009, 14h23

L'erreur est : "Erreur d'exécution Microsoft VBScript: Permission refusée"

ligne :

Code :

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

For Each MyFile In MyDir.Files

Quelqu'un a déjà eu le problème ? Je suis Admin du domaine donc tout les droits sur le répertoire ou j'ai même réappliqué les droits

Help please

**spantemonium** · 09/07/2009, 14h26

permission refusée des fois c'est que le fichier est tenu par ailleurs, qu'il n'est accessible qu'en lecture.

**tofju** · 09/07/2009, 14h44

Comment je peux le faire continuer si c'est le cas ?
Mais cela m'étonne c'est pas un fichier tenu le notes.ini

**spantemonium** · 09/07/2009, 14h56

modifie le manuellement pour voir si tu y arrives

**tofju** · 09/07/2009, 16h57

Bon je craque complet....Marche pas en réseau, enfin la fonction FIND pose problème.

Qui peut m'aider à adapter le script pour le faire lire dans un fichier txt ou autre les chemins ou se trouve les fichiers "notes.ini"

Rechercher et modifier un fichier INI

VBScript

Discussions similaires

Partager

Partager