Fichier texte incrémenter.Résolu

Question

Bonjour,

Voila je vous expose mon problème:
Il m'a été demandé d'ajouter des lignes dans un fichier .ini à certain endroits bien précis avec un numéro d'item.
La premiere chose à faire est de repérer le dernier numéro d'item par exemple dans ce fichier c'est le ITEM5 il me faut donc ajouter  ITEM6= à la ligne avec certaines valeurs.

Fichier à modifier
[Address]
Item1=
Item2=
Item3=
Item4=
Item5=
[Codepage]
Item1=1100
Item2=1100
Item3=1100
Item4=1100
Item5=1100
[CodepageIndex]
Item1=-1
Item2=-1
Item3=-1
Item4=-1
Item5=-1
[Configuration]
SessManNewKey=11
[Database]
Item1=
Item2=
Item3=
Item4=
Item5=
[Description]
Item1=
Item2=
Item3=
Item4=
Item5=
[LowSpeedConnection]
Item1=0
Item2=0
Item3=0
Item4=0
Item5=0
[MSSrvName]
Item1=
Item2=
Item3=
Item4=
Item5=
[MSSrvPort]
Item1=
Item2=
Item3=
Item4=
Item5=
[MSSysName]
Item1=
Item2=
Item3=
Item4=
Item5=
[Origin]
Item1=USEREDIT
Item2=USEREDIT
Item3=USEREDIT
Item4=USEREDIT
Item5=USEREDIT
[Router]
Item1=
Item2=
Item3=
Item4=
Item5=
[Router2]
Item1=
Item2=
Item3=
Item4=
Item5=
[RouterChoice]
Item1=0
Item2=0
Item3=0
Item4=0
Item5=0
[Server]
Item1=
Item2=
Item3=
Item4=
Item5=
[SessManKey]
Item1=-1
Item2=-1
Item3=-1
Item4=-1
Item5=-1
[SncChoice]
Item1=-1
Item2=-1
Item3=-1
Item4=-1
Item5=-1
[SncName]
Item1=
Item2=
Item3=
Item4=
Item5=
[System]
Item1=3
Item2=3
Item3=3
Item4=3
Item5=3
[MSWinPos]
NormX=31
NormY=0

Valeur à ajouter:

[Address]
ItemXX=128.1.6.68
[Codepage]
ItemXX=1100
[CodepageIndex]
ItemXX=-1
[Configuration]
ItemXX=32
[Description]
ItemXX=VP3_NEW [production]
[LowSpeedConnection]
ItemXX=0
[MSSrvName]
ItemXX=vuspr3b1.val.fr.thav.thales
[MSSrvPort]
ItemXX=sapmsVP3
[MSSysName]
ItemXX=VP3
[Origin]
ItemXX=MS_SEL_GROUPS
[Router]
ItemXX=
[Router2]
ItemXX=
[RouterChoice]
ItemXX=0
[Server]
ItemXX=production
[SessManKey]
ItemXX=26
[SncChoice]
ItemXX=-1
[SncName]
ItemXX=
[System]
ItemXX=3
[Utf8Off]
ItemXX=0

Merci d'avance :)

bouv · Accepted Answer

1°- Merci de ne poster les questions qu'une seule fois
2°- Copie ça dans un module

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Function EcritDansFichierIni(Section As String, Cle As String, Valeur As String, Fichier As String) As Long

    EcritDansFichierIni = WritePrivateProfileString(Section, Cle, Valeur, Fichier)

End Function

Public Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, Optional ValeurParDefaut As String = "") As String

    Dim strReturn As String
    strReturn = String(255, 0)
    GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
    LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)

End Function

Et voila

bouv · Answer

PS 

1°- Pour creer ou modifier une valeur

call EcritDansFichierIni("Codepage", "Item1", "1100", CheminDuFichierIni)

2°- Pour lire une valeur

Dim sValeur as string
sValeur = LitDansFichierIni("Codepage","Item1", CheminDuFichierIni)

Bonne prog
++

Quatrelator · Answer

Bonjour et merci de ta réponse. Cela fait une journée que je regarde comment ca doit fonctionner mais je ne comprends pas.
Je n'ai encore jamais fait de vbs...

Fichier texte incrémenter.

3 réponses

Discussions similaires