Discussion :

[alex61]

bonjour

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


cordialement

[ProgElecT]

FAQ VBScript Accès aux Fichiers

[alex61]

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

[alex61]

maintenant j'ai ca

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
'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 ?

[ProgElecT]

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

hélasse oui.

[alex61]

ok

donc voila ma solution

Code :

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

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