recuperer des infos depuis un fichier ini

Question

Bonjour &#224; tous et &#224; toutes. J'ai bien cherch&#233; sur le site mais je ne vois pas de solution &#224; mon probl&#232;me. Tout d'abord j'ai cr&#233;&#233; un fichier INI qui est de la forme
[fr01SERV07]
dossier1="C:\....."
typeFichier1 = "*.csv"
Nbjours1 = 90
TypeFichier2 = "*.txt"
Nb jours2 = 90

dossier2 = "E:\..."
typeFichier3="*.txt"
nbjours3 = 60

[fr01SERV06]
dossier1 = "E:\...."
typeFichier1 = "*.txt"
nbjours1 = 60

Ensuite je dois cr&#233;er une application qui effectue du m&#233;nage dans divers dossiers. Ces dossiers sont ceux situ&#233;s dans le fichier INI. Par exemple si il y a des fichiers *.txt de plus de 60 jours je les supprime. 
Mon probl&#232;me de faire en sorte une application qui peut s'adapter sur n'importe quel serveur &#224; partir que celle ci est li&#233;e au fichier INI suivant sa section. Est ce que qu'un pourrait me dire comment faire. Merci pour votre aide. Ceci est  assez urgent

cs_CanisLupus · Answer

Salut,

Tu as mal cherch&#233; alors, tapes dans la zone de recherche "fichier ini" en s&#233;lectionnant Codes, tu verras plusieurs sources et diff&#233;rentes m&#233;thodes.

Bonne prog

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_dragon · Answer

j'aurais pr&#233;f&#233;r&#233; un fichier XML, c,est plus structur&#233; que les fichiers ini


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

yoman64 · Answer

Voila un code qui permet de lire un ini via les apis :

  Declare Function GetPrivateProfileString Lib "kernel32" Alias 
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName 
As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal 
nSize As Long, ByVal lpFileName As String) As Long

    Declare Function 
WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" 
(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As 
Any, ByVal lpFileName As String) As Long



Function 
ReadINI(Section As String, KeyName As String, FileName As String) As 
Variant

    Dim sRet As String

    sRet = String(255, 
Chr(0))

    ReadINI = Left(sRet, GetPrivateProfileString(Section, ByVal 
KeyName, "", sRet, Len(sRet), FileName))

End Function

Function 
WriteINI(sSection As String, sKeyName As String, sNewString As Variant, 
sFileName) As Integer

    Dim r

    r = 
WritePrivateProfileString(sSection, sKeyName, CStr(sNewString), 
sFileName)

End Function







Sinon jette un coup d'oeil a la source ici:

http://www.vbfrance.com/code.aspx?ID=6658



En esperant t'avoir aider et que la prog soit avec toi 


YoMan64

@++

Recuperer des infos depuis un fichier ini

3 réponses

Discussions similaires