Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: probleme mit GetPrivateProfileString
Autor: smither
Datum: 27.02.04 15:08
hier meine funktion die macht alles sauber: Function ReadINIFile(szFileName As String, ByVal szSection As String, ByVal szField As String, Optional sDef As String) As String Dim nRet As Integer Dim szBuffer As String Dim szDefault As String Dim nTempLength As Integer szDefault = "" szBuffer = String(150, " ") nRet = GetPrivateProfileString(szSection, szField, szDefault, szBuffer, Len(szBuffer), szFileName) If nRet > 0 Then ReadINIFile = Left(szBuffer, nRet) Else ReadINIFile = IIf(sDef <> "", sDef, szDefault) End If End Function

probleme mit GetPrivateProfileString	782	hidry	27.02.04 14:45
Re: probleme mit GetPrivateProfileString	422	smither	27.02.04 15:08
Re: probleme mit GetPrivateProfileString	533	hidry	27.02.04 15:36

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