modifier un fichier .ini avec vbs

Version imprimable

11/01/2011, 11h47
alex61

modifier un fichier .ini avec vbs

bonjour

j'aimerais savoir si quelqu'un saurait comment modifier un fichier .ini avec un vbs

cordialement
11/01/2011, 12h12
ProgElecT

FAQ VBScript Accès aux Fichiers
11/01/2011, 12h17
alex61

oui mais il n'y a pas une classe exprès pour ca ?
comme en vb.net ou vb6

maintenant j'ai ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'script permettant de midifié un fichier .ini apprés une saisie
 
 
nom =  InputBox("nom  : " ) 
 
Dim fso  :          Set fso = CreateObject("Scripting.FileSystemObject")
Dim ObjTextStream : Set ObjTextStream = Fso.OpenTextFile("info.ini", 1, False)
Dim strtmp 
Do While Not ObjTextStream.AtEndOfStream
strtmp = Split(ObjTextStream.ReadAll, vbCrLf)
For i = 0 To UBound(strtmp)
    ' MsgBox strtmp(i)
	if strtmp(i) = "=" then
		strtmp(i + 1 ) = nom 
	end if 
Next
Loop
ObjTextStream.Close
Set ObjTextStream = Nothing
Set Fso = Nothing

ca ne marche pas j'ai l'impression qu'on ne peut pas modifier qu'un parti du fichier
il faut tout réécrire ?

11/01/2011, 12h43
ProgElecT

Citation:

Envoyé par alex61

maintenant j'ai ca
.........
.........
il faut tout réécrire ?

:( hélasse oui.

ok

donc voila ma solution

Code:

1
2
3
4
5
6
7
8
9
10
nom =  InputBox("nom  : " ) 
 
   Const ForWriting = 2
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("info.ini", ForWriting,true)
   f.writeline("[Utilisateur]")
   f.writeline("nom =" & nom )
   f.close

merci a vous

cordialement