Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Modifification d'un fichier .ini


Sujet :

VBScript

  1. #1
    Nouveau membre du Club
    Modifification d'un fichier .ini
    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

  2. #2
    Rédacteur/Modérateur

    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
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Nouveau membre du Club
    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

###raw>template_hook.ano_emploi###