PureBoard

Code: Alles auswählen

; Funktionen zum leichten Umgang mit INI-Dateien unter Windows
; 25.08.2005 by TS-Soft

; Löscht einen Key
Procedure IniDelKey(szIniFileName.s, szSectionName.s, szKeyName.s)
  Protected Buffer.l
  If WritePrivateProfileString_(@szSectionName, @szKeyName, #Null, @szIniFileName)
    ProcedureReturn #True
  Else
    FormatMessage_(#FORMAT_MESSAGE_ALLOCATE_BUFFER|#FORMAT_MESSAGE_FROM_SYSTEM,0,GetLastError_(),0,@Buffer,0,0)
    Debug "IniDelKey: " + PeekS(Buffer)
    LocalFree_(Buffer)
    ProcedureReturn #False
  EndIf  
EndProcedure

; Löscht eine Section
Procedure IniDelSection(szIniFileName.s, szSectionName.s)
  Protected Buffer.l
  If WritePrivateProfileString_(@szSectionName, #Null, "", @szIniFileName)
    ProcedureReturn #True
  Else
    FormatMessage_(#FORMAT_MESSAGE_ALLOCATE_BUFFER|#FORMAT_MESSAGE_FROM_SYSTEM,0,GetLastError_(),0,@Buffer,0,0)
    Debug "IniDelSection: " + PeekS(Buffer)
    LocalFree_(Buffer)
    ProcedureReturn #False
  EndIf
EndProcedure

; Liest einen Longwert
Procedure.l IniReadLong(szIniFileName.s, szSectionName.s, szKeyName.s, nDefault.l)
  ProcedureReturn GetPrivateProfileInt_(@szSectionName, @szKeyName, nDefault, @szIniFileName)
EndProcedure

; Liest eine komplette Sektion und gibt diese als String zurück
Procedure.s IniReadSection(szIniFileName.s, szSectionName.s, szSeperator.s)
  Protected BufferSize.l, Result.s, Temp.s, *MEM, Length.l
  If OSVersion() = #PB_OS_Windows_95
    BufferSize = 32767
  Else
    BufferSize = 64000
  EndIf
  *MEM = AllocateMemory(BufferSize)
  Length = GetPrivateProfileSection_(@szSectionName, *MEM, BufferSize, @szIniFileName)
  If Length = -1
    Debug "IniReadSection: more memory needed"
    FreeMemory(*MEM)
    ProcedureReturn ""
  EndIf
  Repeat
    Temp = PeekS(*MEM, Length)
    If Temp
      Result + Temp + szSeperator
      *MEM + Len(Temp) + 1
    EndIf
  Until Temp = ""
  FreeMemory(*MEM)
  ProcedureReturn Result 
EndProcedure

; List eine String
Procedure.s IniReadString(szIniFileName.s, szSectionName.s, szKeyName.s, szDefault.s)
  Protected  ReturnBuffer.s
  ReturnBuffer = Space(1024)
  GetPrivateProfileString_(@szSectionName, @szKeyName, szDefault, @ReturnBuffer, 1024, @szIniFileName)
  ProcedureReturn Trim(ReturnBuffer)
EndProcedure

; Schreibt ein Long
Procedure.l IniWriteLong(szIniFileName.s, szSectionName.s, szKeyName.s, nValue.l)
  Protected Buffer.l
  If WritePrivateProfileString_(@szSectionName, @szKeyName, *Str(nValue), @szIniFileName)
    ProcedureReturn #True
  Else
    FormatMessage_(#FORMAT_MESSAGE_ALLOCATE_BUFFER|#FORMAT_MESSAGE_FROM_SYSTEM,0,GetLastError_(),0,@Buffer,0,0)
    Debug "IniWriteLong: " + PeekS(Buffer)
    LocalFree_(Buffer)
    ProcedureReturn #False
  EndIf
EndProcedure

; Schreibt einen String
Procedure.l IniWriteString(szIniFileName.s, szSectionName.s, szKeyName.s, szValue.s)
  Protected Buffer.l
  If WritePrivateProfileString_(@szSectionName, @szKeyName, @szValue, @szIniFileName)
    ProcedureReturn #True
  Else
    FormatMessage_(#FORMAT_MESSAGE_ALLOCATE_BUFFER|#FORMAT_MESSAGE_FROM_SYSTEM,0,GetLastError_(),0,@Buffer,0,0)
    Debug "IniWriteString: " + PeekS(Buffer)
    LocalFree_(Buffer)
    ProcedureReturn #False
  EndIf
EndProcedure

;Beispiel zur Nutzung von IniReadSection:

String$ = IniReadSection("win.ini", "Mail", "|")
For I = 1 To CountString(String$, "|")
  Debug StringField(String$, I, "|")
Next