Brauche dringend Hilfe!



Excel-Version: 2000
nach unten

Betrifft: Brauche dringend Hilfe!
von: Jeanne
Geschrieben am: 25.04.2002 - 09:21:49

Guten Morgen Alle zusammen,

Mein Problem:
Ich habe ganz viele Textdateien, die in Form einer .ini Datei aufgebaut sind(mit eckigen Klammern). In diesen Klammern steht immer eine Name und darunter halt persönl. Daten. Wie kann ich nun in dieser Datei nach Bestimmten Namen suchen? Mir wurde gesagt, es gibt wohl schon fertige Routinen dafür. Weiß jemand was das für Routinen sind, und wie muß ich diese einsetzen?
Ich steh da ganz schön aufen Schlauch und bräuchte schon Hilfe?

Liebe Grüße von

Jeanne

nach oben   nach unten

Re: Brauche dringend Hilfe!
von: Rolf, Lgh.
Geschrieben am: 25.04.2002 - 14:05:19

Hallo Jeanne, sieh Dir das man an:
Option Explicit ' zunächst die benötigten API-Deklarationen (INI) Public 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 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 'Eintrag aus INI-Datei lesen Public Function _        GetIniString _        (ByVal Sektion As String, _         ByVal Titel As String, _         ByVal Vorgabe As String, _         ByVal INIFile As String, _         Optional ByVal nSize As Integer = 256) As String   Dim lResult As Long   Dim sValue As String   sValue = Space$(nSize)   lResult = GetPrivateProfileString(Sektion, Titel, _                                     Vorgabe, sValue, _                                     nSize, INIFile)   GetIniString = Left$(sValue, lResult) End Function ' Alle Schlüsselwörter eines Abschnittes auslesen ' und in die Tabelle "Serverdaten" schreiben Sub Init_Keys()   Dim strKeys As String   Dim strServer As String   Dim strDez As String   Dim Key() As String   Dim As Integer   strServer = GetSetting("BK", "Path", "Serververzeichnis", "")   strServer = strServer & "Server.INI"   strDez = GetSetting("BK", "SBDaten", "SB_Dez", "")   ' vbNullString übergeben, um alle gespeicherten   ' Keys zu ermitteln   strKeys = GetIniString(strDez, vbNullString, _                          "", strServer, 32767)   ' Sind überhaupt Einträge vorhanden?   If strKeys <> "" Then     ' Rückgabestring "splitten"     Key = Split(strKeys, vbNullChar)     ' Alle Einträge der Tabelle hinzufügen     With ThisWorkbook.Worksheets("Serverdaten")       For I = 0 To UBound(Key) - 1         Cells(I + 1, 1) _         = Key(I)         Cells(I + 1, 2) _         = GetIniString(strDez, Key(I), "", strServer)       Names.Add Name:=Key(I), RefersTo:="=Serverdaten!$B$" & I + 1       Next I     End With   End If End Sub
weitere Hilfe findest Du auch hier:http://www.visualbasic-archiv.de/workshop/workshop17.php3 Grzß Rolf

nach oben   nach unten

Danke Rolf, werd ich sofort ausprobieren!!!
von: Jeanne
Geschrieben am: 25.04.2002 - 14:30:12

Danke....

nach oben   nach unten

INI-Datei [nur für eine spätere Recherche] (o. T.)
von: Rolf, Lgh.
Geschrieben am: 25.04.2002 - 15:25:42


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Excel aufrufen"