[Gelöst] Schreiben in eine *.ini Datei

Hallo,

unter Windows habe ich Daten mit folgendem Makro
aus einem Calc Dialogfeld in eine *.ini Datei geschrieben.

******************************************************************************************************************
'* WriteSettings: Schreiben der settings.ini
'**************************************************
Sub WriteSettings
Dim sPfad as String
Dim FileNo as Integer
Dim sLine as String

sPfad = DirectoryNameoutofPath(ConvertFromURL(ThisComponent.URL), "\") + "\settings.ini"
FileNo = Freefile()
If FileExists(sPfad) Then
Open sPfad For Output As #FileNo
Print #FileNo, "[Dialog]"
Print #FileNo, "Gemarkung=" + oDlg.getControl("cmb_input_1").GetText()
Print #FileNo, "Flur=" + oDlg.getControl("cmb_input_2").GetText()
Print #FileNo, "Flurstknummer=" + oDlg.getControl("txt_input_3").GetText()
Print #FileNo, "Pfad=" + oDlg.getControl("file_input").GetText()
Close #FileNo
End If
End Sub
******************************************************************************************************************


Mit dem nachfolgenden Makro wurden die Daten aus der *.ini Datei wieder
in das Calc Dialogfeld eingelesen.


'**************************************************
'* ReadSettings: Lesen der settings.ini
'**************************************************
Function ReadSettings(sPfad as String, sBereich as String, sParam as String) as String
Dim FileNo as Integer
Dim sLine as String

FileNo = Freefile()
If FileExists(sPfad) Then
Open sPfad For Input As #FileNo
While not eof(#FileNo)
Line Input #FileNo, sLine
If sLine = "[" + sBereich + "]" Then Bereich=true
If Bereich Then If InStr(mid(sLine, 1, len(sParam)+1), sParam+"=") Then ReadSettings = mid(sLine, len(sParam)+2)
Wend
Close #FileNo
End If
End Function

******************************************************************************************************************


Unter SUSE Linux 10.0 funktioniert das Ganze nicht mehr.
Wer kann mir weiterhelfen :idea: , damit das auch unter Oo. 2.0.2 unter SUSE Linux 10.0 klappt?


mfg
mike

Dir ist schon klar, daß unter Linux Pfade per Slash / und nicht per Backslash \ gesetzt werden, oder?

Hallo,

vielen Dank , das wars :!:


mfg
mike

Damit das Problem nicht wieder vorkommt: Auch unter Windows kann man den nochmalen Schrägstrich „/“ verwenden.