Discussion :

[Angelus1753]

Bonjour à tous

Je pose une nouvelle question sur un nouveau sujet tout du moins pour moi.

Ma question est donc est-il possible de modifier un mot ou une ligne dans fichier .ini en (vbs)

Un script qui serai capable de modifier tous ce que l'on veut si dans mon .ini en ligne 2 se trouve marquer =ARTHUR le changer en =BERNARD

Merci par avance de vos réponse, merci pour l'aide déjà apporté CDT

[ProgElecT]

Salut

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
Function RecupFichier(CheminNomDuFIchier)
	Dim oFso, f
	Set oFso = CreateObject("Scripting.FileSystemObject")
	 'Ouverture et lecture
	Set f = oFso.OpenTextFile(CheminNomDuFIchier, 1)
        'recuperation du contenu du fichier
        RecupFichier = f.ReadAll
        f.close
        set f = nothing
        set oFso = nothing
End Function
 
Function EcritFichier(CheminNomDuFIchier, NewContenu )
	Dim oFso, f
	Set oFso = CreateObject("Scripting.FileSystemObject")
	 'Ouverture du fichier en ecriture suite à l'actualisation du contenu
	Set f = oFso.OpenTextFile(CheminNomDuFIchier, 2)
        f.Write NewContenu
        f.close
        set f = nothing
        set oFso = nothing
End Function
 
 
Dim ChemCtnFich, CtnFichier, MotRech, MotRemplace
ChemCtnFich = "C:\MesProgs\En VBScript et HTA\Data.ini"
CtnFichier = RecupFichier(ChemCtnFich)
 
MotRech = "=ARTHUR"
MotRemplace ="=BERNARD"
If Instr(CtnFichier,MotRech)<>0 Then
        'Le mot recherché existe dans le fichier .ini, remplace par le mot de remplacement
       CtnFichier = replace(CtnFichier,MotRech,MotRemplace)
       EcritFichier ChemCtnFich,CtnFichier
End If

[Angelus1753]

Bonjour ProgElect

je vous vous dis une nouvelle fois un Très, Très, grand merci.

resolu avec une rapidité fulgurante

merci et à bientôt