Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: GetPrivateProfileString ??
Autor: VestMerkur
Datum: 10.03.05 14:06
Hi teccer, die Deklarationen der API habe ich mir aber gespart: Schreiben: ' Einzelnen Eintrag strKey(KCode) im Abschnitt "Art" speichern ' WritePrivateProfileString "Art", strkey, strKCode, strIniDatei Hierbei ist strKCode=" beliebigerText", strKey = "Code", strIniDatei = Ini-Dateipfad INI-Datei (nach dem Schreiben): [Art] Code= beliebigerText Lesen: strKCode = fctGetIniStr("Art", strkey, "", strIniDatei) Rückgabewert=beliebigerText Public Function fctGetIniStr(ByVal strAbschnitt As String, ByVal strKey As String, ByVal strDefault As String, _ ByVal strIniFile As String, Optional ByVal iKeySize As Integer = 300) As String ' Eintrag aus INI-Datei lesen ' Dim lKeySizeRet As Long Dim strKeyWert As String strKeyWert = Space$(iKeySize) lKeySizeRet = GetPrivateProfileString(strAbschnitt, strKey, strDefault, strKeyWert, iKeySize, strIniFile) ' strKeyWert wird OHNE führende BLANK zurückgegeben, die eigentlich in der INI-Datei enthalten sind. ' lKeySizeRet hat den Wert "Länge des Strings - führende Blank" fctGetIniStr = Left$(strKeyWert, lKeySizeRet) End Function Oder meintest Du den WorkAround ??? Der FUNKTIONIERT !

GetPrivateProfileString ??	870	VestMerkur	10.03.05 11:52
Re: GetPrivateProfileString ??	550	teccer	10.03.05 12:10
Re: GetPrivateProfileString ??	577	VestMerkur	10.03.05 14:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen