Empfohlen zu Lesen und zu schreiben .ini-Dateien in VBA

Sind keine Methoden verfügbar, die in VBA zum Lesen und schreiben von INI-Dateien? Ich weiß, ich könnte verwenden;

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

...und die Daten analysieren. Stattdessen versuche ich, um zu sehen, welche tools bereits vorhanden sind.

Ich weiß in C# können Sie tun...

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

Gibt es ein äquivalent für VBA?

Ich bin versucht, dies in MS Access 2003-VBA.

InformationsquelleAutor Curtis Inderwiesche | 2009-03-18
  1. 9

    Hier sind einige code-snippets, die wir verwenden, sollte es helfen Sie bekommen die Idee. Diese Routinen benutzen die API-Aufrufe. Zwei Funktionen zum Lesen /schreiben einer Zeichenkette Einstellung zu einem bestimmten Abschnitt in der ini-Datei.

    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
    InformationsquelleAutor Birger
  2. 4

    Es ist nicht angenehm, aber Sie können die Windows-API verwenden. Hier ist ein link, und ein anderes von MS.

    InformationsquelleAutor Jon B
  3. 1

    FileSystemObject-Objekt mit einem [TextStream](http://msdn.microsoft.com/en-us/library/314cz14s(VS.85).aspx) ist die meist empfohlene Methode zum Lesen und schreiben von Textdateien in VBA.

    • Wirklich? Warum würden Sie verwenden eine externe Bibliothek (ich nehme an, late binding, natürlich) für etwas, das VBA bietet nativ? Was sind die Vorteile?
    • Es macht den code auch Lesen einfacher, meiner Meinung nach. Und Sie können For ... Each Durchlaufen den Ordner einfach.
    • Es ist wahrscheinlich eine gute Idee, nicht zu Lesen und schreiben Sie Sie direkt. Die API-Ansatz ist viel besser, weil es abstrahiert die Notwendigkeit zu verstehen, die Formatierung der INI-Datei. Nicht sinnvoll, code zu schreiben, um zu verstehen, INI-Dateien, wenn es bereits vorhanden ist.
    InformationsquelleAutor Fionnuala
  4. 1

    Karl Peterson kpini hat fast alles, was Sie wahrscheinlich brauchen: API-Deklarationen, eine Cinifile Klasse Zeug. Ich würde anfangen mit, und verwandeln es, um zu schmecken, das sollte nicht lange dauern.

    InformationsquelleAutor Mike Woodhouse
Schreibe einen Kommentar