Recommandé à lire et à écrire .fichiers ini dans VBA

Sont toutes les méthodes disponibles dans VBA pour lire et écrire des fichiers INI? Je sais que je pourrais utiliser;

Open "C:\test.ini" For Input As #1

...et analyser les données. Au lieu de cela, je suis en train de voir quels sont les outils déjà disponibles.

Je sais en C#, vous pouvez le faire...

 using INI;
 INIFile ini = new INIFile("C:\test.ini");

Est-il un équivalent pour VBA?

Je suis d'essayer ce en MS Access 2003 VBA.

OriginalL'auteur Curtis Inderwiesche | 2009-03-18

  1. 9

    Voici quelques extraits de code que nous utilisons, il devrait vous aider à avoir l'idée. Ces routines d'utiliser les appels de l'API. Deux fonctions sont incluses pour lire /écrire une chaîne de réglage à une section spécifique dans le fichier ini.

    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 IniFileName() As String
IniFileName = "c:\[yourpath here]\settings.ini"
End Function
Private Function ReadIniFileString(ByVal Sect As String, ByVal Keyname As String) As String
Dim Worked As Long
Dim RetStr As String * 128
Dim StrSize As Long
iNoOfCharInIni = 0
sIniString = ""
If Sect = "" Or Keyname = "" Then
MsgBox "Section Or Key To Read Not Specified !!!", vbExclamation, "INI"
Else
sProfileString = ""
RetStr = Space(128)
StrSize = Len(RetStr)
Worked = GetPrivateProfileString(Sect, Keyname, "", RetStr, StrSize, IniFileName)
If Worked Then
iNoOfCharInIni = Worked
sIniString = Left$(RetStr, Worked)
End If
End If
ReadIniFileString = sIniString
End Function
Private Function WriteIniFileString(ByVal Sect As String, ByVal Keyname As String, ByVal Wstr As String) As String
Dim Worked As Long
iNoOfCharInIni = 0
sIniString = ""
If Sect = "" Or Keyname = "" Then
MsgBox "Section Or Key To Write Not Specified !!!", vbExclamation, "INI"
Else
Worked = WritePrivateProfileString(Sect, Keyname, Wstr, IniFileName)
If Worked Then
iNoOfCharInIni = Worked
sIniString = Wstr
End If
WriteIniFileString = sIniString
End If
End Function

    OriginalL'auteur Birger

  2. 4

    Il n'est pas plaisant, mais vous pouvez utiliser l'API Windows. Voici un lien, et un autre à partir de MS.

    OriginalL'auteur Jon B

  3. 1

    Objet FileSystemObject avec un [TextStream](http://msdn.microsoft.com/en-us/library/314cz14s(SV.85).aspx) est habituellement une méthode recommandée pour la lecture et l'écriture de fichiers texte en VBA.

    Vraiment? Pourquoi voudriez-vous utiliser un à l'extérieur de la bibliothèque (je suppose que la liaison tardive, bien sûr) pour quelque chose qui VBA fournit nativement? Quels sont les avantages?
    Elle rend le code de lecture plus facile, à mon avis. Et vous pouvez l'utiliser Pour ... à Chaque itération à travers des dossiers facilement.
    C'est probablement une bonne idée de ne pas les lire et les écrire directement. L'API approche est beaucoup mieux, car il les résumés de la nécessité de comprendre la mise en forme du fichier INI. A aucun sens dans l'écriture de code pour comprendre les fichiers INI, quand il existe déjà.

    OriginalL'auteur Fionnuala

  4. 1

    Karl Peterson kpini a à peu près tout, vous êtes susceptible d'avoir besoin: des déclarations d'API, un Cinifile classe, des trucs comme ça. J'aimerais commencer avec l'un et l'morph goût, qui ne devrait pas prendre longtemps.

    OriginalL'auteur Mike Woodhouse